再标准模块中插入下面的代码,执行后可以删除该工作表的空白行
Option Explicit
Sub DeleteBlankRow()
Dim i As Long
Dim intLastRow As Long
intLastRow = ActiveSheet.UsedRange.Rows.Count
For i = intLastRow To 1 Step -1
If Rows(i).Find("*", , xlValues, , , 2) Is Nothing Then
Rows(i).Delete
End If
Next
End Sub