Home |
Search |
Today's Posts |
|
#1
![]()
Posted to microsoft.public.excel.programming
|
|||
|
|||
![]()
it's probably more suited to a database app than an excel app.
Excel is really just a "database application light". What is your understanding of an Excel application? However, I don't see how a simple deletion of a line range is too much to ask of Excel VBA - we're speaking about Excel freezing for 20-40 seconds here, for a mere 60k lines. That's ridiculous. Yes, I guess you could say Excel is a "database application light", but it also has a monstrous calculating engine attached to it which, I guess, can get in the way, speed-wise, sometimes. See if this modification to the code I posted earlier makes things go quicker... Sub DeleteAllData() Dim AddressParts() As String Application.ScreenUpdating = False Application.Calculation = xlCalculationManual With Worksheets("Sheet1") AddressParts = Split(.UsedRange.Address, "$") .Range("A2:A" & AddressParts(UBound(AddressParts))).EntireRow.Dele te End With Application.Calculation = xlCalculationAutomatic Application.ScreenUpdating = True End Sub Rick |
Reply |
Thread Tools | Search this Thread |
Display Modes | |
|
|
![]() |
||||
Thread | Forum | |||
Hpw do I delete multiple empty rows found between filled rows? | Excel Worksheet Functions | |||
Delete Rows if any cell in Column H is blank but do not Delete Fir | Excel Programming | |||
Copy pasting Rows, but need to Delete any Shapes/Pictures that are within copied rows | Excel Programming | |||
How to delete rows when List toolbar's "delete" isnt highlighted? | Excel Worksheet Functions | |||
Delete every 3rd row, then delete rows 2-7, move info f/every 2nd row up one to the end and delete the row below | Excel Programming |