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

Hi,

The code works fine for me. One point is the entire row must be empy before
it will be selected for deletion. i.e a formula thta returns a null string
and looks empty won't be deleted.

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

Mike

"gbpg" wrote:

> 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
>

Noe,

I hope this is work for you
Sub Delete_Rows()
Range("C1").Select



a = 0



Do While a <> 1

If ActiveCell.Value = Empty Then
Selection.EntireRow.Delete
Else




End If



If ActiveCell.Value = "BLANK" Then

a = 1

Else

ActiveCell.Offset(1, 0).Activate



End If

Loop
Application.CutCopyMode = False
Range("A2").Select

End Sub




"gbpg" wrote:

> 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
>

Hi

Try this one liner, just change the column letter to suit:

Sub DeleteEmptyRows()
Columns("B").SpecialCells(xlCellTypeBlanks).EntireRow.Delete
End Sub

Regards,
Per

On 27 Dec., 09:26, gbpg <g...@discussions.microsoft.com> wrote:
> 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