使用VBA循环删除Excel表格筛选行时交替行被跳过的解决方法

问题原因 #

当你从前往后遍历筛选后的可见行并执行删除时，删除某一行后，后续行会上移填补空缺，但循环会直接跳到下一个遍历对象，导致原本的下一行被跳过，最终只删除了交替行。

最优解决方案：一次性删除（无需循环） #

利用ListObject的DataBodyRange直接定位表格数据行，一次性删除所有可见行，高效且无跳过问题：

Sub deleteRows()
    Dim tbl As ListObject
    Set tbl = ActiveSheet.ListObjects("myTable")
    
    ' 清除原有筛选
    tbl.AutoFilter.ShowAllData
    ' 筛选第一列等于「Project X」的行
    tbl.Range.AutoFilter Field:=1, Criteria1:="Project X"
    
    On Error Resume Next ' 处理无匹配行的情况，避免报错
    ' 删除筛选后的可见数据行（自动排除表头）
    tbl.DataBodyRange.SpecialCells(xlCellTypeVisible).Delete
    On Error GoTo 0
    
    ' 清除筛选状态
    tbl.AutoFilter.ShowAllData
End Sub

备选方案：从后往前循环删除 #

如果必须用循环实现，需从最后一行往前遍历，避免删除行导致的索引混乱：

Sub deleteRows()
    Dim tbl As ListObject
    Dim visibleRows As Range
    Dim i As Long, j As Long
    
    Set tbl = ActiveSheet.ListObjects("myTable")
    
    tbl.AutoFilter.ShowAllData
    tbl.Range.AutoFilter Field:=1, Criteria1:="Project X"
    
    On Error Resume Next
    Set visibleRows = tbl.DataBodyRange.SpecialCells(xlCellTypeVisible)
    On Error GoTo 0
    
    If Not visibleRows Is Nothing Then
        ' 从最后一个区域开始遍历，每个区域内从最后一行往前删
        For i = visibleRows.Areas.Count To 1 Step -1
            For j = visibleRows.Areas(i).Rows.Count To 1 Step -1
                visibleRows.Areas(i).Rows(j).Delete
            Next j
        Next i
    End If
    
    tbl.AutoFilter.ShowAllData
End Sub

内容的提问来源于stack exchange，提问作者kavm