Sub DelEmptyRows()
'程序说明:快速删除所有空行
'制作:深山老猫
Dim LastRow As Double
Dim i As Double
LastRow = ActiveSheet.UsedRange.Rows.Count + ActiveSheet.UsedRange.Row - 1
For i = LastRow To 1 Step -1
If WorksheetFunction.CountA(Rows(i)) = 0 Then Rows(i).Delete
Next i
End Sub

Sub DelEmptyRows2()
'程序说明:快速删除所有空行
'制作:欢乐小爪
  Selection.SpecialCells(xlCellTypeBlanks).Select
    Selection.EntireRow.Delete
End Sub