Home |
Search |
Today's Posts |
#1
Posted to microsoft.public.excel.programming
|
|||
|
|||
deleting blank rows for up to 60000 rows of data
I have worksheets with up to 60000 rows in one column I have tried using the
following macro from this site and it does not do anything. Any ideas?: Sub Sonic() Dim i As Long With Application .Calculation = xlCalculationManual .ScreenUpdating = False Lastrow = ActiveSheet.UsedRange.Rows.Count For i = Lastrow To 1 Step -1 If WorksheetFunction.CountA(Rows(i)) = 0 Then Rows(i).EntireRow.Delete End If Next i .Calculation = xlCalculationAutomatic .ScreenUpdating = True End With End Sub |
Thread Tools | Search this Thread |
Display Modes | |
|
|
Similar Threads | ||||
Thread | Forum | |||
Deleting blank rows which contain blank drop-down list boxes | Excel Programming | |||
Deleting 63,886 Blank Rows Under My Data | Excel Discussion (Misc queries) | |||
Deleting blank rows | Excel Programming | |||
Deleting blank rows | Excel Programming | |||
DELETING BLANK ROWS | Excel Programming |