ExcelVBA 删除空行 - 匿名者code

 1 Public Sub 删除空行()
 2     Dim LastRow As Long
 3     Dim r As Long
 4     LastRow = ActiveSheet.UsedRange.Row - 1 + ActiveSheet.UsedRange.Rows.Count
 5     Application.ScreenUpdating = False
 6     For r = LastRow To 1 Step -1
 7         If Application.WorksheetFunction.CountA(Rows(r)) = 0 Then Rows(r).Delete
 8     Next r
 9     Application.ScreenUpdating = True
10 End Sub