在Excel中利用vba代码删除多余的空白行

在Excel表格中，我们有时需要删除多余的空白行。逐行删除想必是比较麻烦的。

前面的文章我们介绍过删除空白行的方法《Excel批量删除空白行》，也有用代码删除固定列的行的方法《删除行》

下面介绍另外的vba代码，通过计算非空单元格个数来删除空白行

详细代码：

Sub DeleteEmptyRows()
    Dim LastRow As Long
    Dim i As Long
    Dim Counter As Long
    Application.ScreenUpdating = False
    LastRow = ActiveSheet.UsedRange.Rows.Count + ActiveSheet.UsedRange.Rows(1).Row - 1
    For i = LastRow To 1 Step -1
        If Application.WorksheetFunction.CountA(Rows(i)) = 0 Then
            Rows(i).Delete
            Counter = Counter + 1
        End If
    Next i
    Application.ScreenUpdating = True
    MsgBox Counter & " 空行已被删除"
End Sub

删除成功：