office交流网--QQ交流群号

Access培训群:792054000         Excel免费交流群群:686050929          Outlook交流群:221378704    

Word交流群:218156588             PPT交流群:324131555

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

2021-01-31 08:00:00
tmtony8
原创
167

在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

删除成功:

    分享