在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

刪除成功：