Thread: Delete Rows x-n
View Single Post
  #1   Report Post  
Posted to microsoft.public.excel.programming
Rick Rothstein \(MVP - VB\)[_2356_] Rick Rothstein \(MVP - VB\)[_2356_] is offline
external usenet poster
 
Posts: 1
Default Delete Rows x-n

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