VBA 删除Excel空白行

再标准模块中插入下面的代码，执行后可以删除该工作表的空白行

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