Delete blank rows in Excel
|
 |
|
All you need is a little short macro to delete those extra blank rows that we end up
with from time to time.
Take the following macro and copy it to a module sheet in Ver. 5.0, Or
in the VBA editor new module. All versions to XP
Sub DeleteEmptyRow()
LastRow = ActiveSheet.UsedRange.Rows.Count
Application.ScreenUpdating = False
For r = LastRow to 1 Step -1
If Application.CountA(Rows(r)) = 0 Then
Rows(r).Delete
Next r
End Sub
| 
