Excel VBA删除含指定内容行异常：仅删除半数行求助

你遇到的问题根源是正向循环遍历行时，删除行后后续行会自动上移，导致循环跳过了相邻的目标行。比如删除第2行后，原来的第3行变成新的第2行，但循环变量xx会继续走到3，直接跳过这个新的第2行，所以每次只能删除一半目标行。

以下是两种可靠的解决方法：

方案1：反向循环遍历 #

从最后一行往前遍历，删除操作不会影响未遍历的行位置，避免跳过目标行：

Sub DeleteABC()
    Dim lastRow2 As Long
    Dim xx As Long
    
    With Worksheets(ActiveSheet.Name)
        lastRow2 = .Cells(.Rows.Count, "C").End(xlUp).Row
        
        ' 从最后一行向前循环
        For xx = lastRow2 To 2 Step -1
            If .Cells(xx, "C") Like "*ABC*" Then
                .Rows(xx).EntireRow.Delete
            End If
        Next
    End With
End Sub

方案2：批量删除（高效版） #

先收集所有需要删除的行到Union对象，最后一次性删除，减少Excel的刷新和行移动操作，适合数据量大的场景：

Sub DeleteABC_Batch()
    Dim lastRow2 As Long
    Dim xx As Long
    Dim deleteRows As Range
    
    With Worksheets(ActiveSheet.Name)
        lastRow2 = .Cells(.Rows.Count, "C").End(xlUp).Row
        
        For xx = 2 To lastRow2
            If .Cells(xx, "C") Like "*ABC*" Then
                ' 收集目标行
                If deleteRows Is Nothing Then
                    Set deleteRows = .Rows(xx)
                Else
                    Set deleteRows = Union(deleteRows, .Rows(xx))
                End If
            End If
        Next
        
        ' 一次性删除所有目标行
        If Not deleteRows Is Nothing Then
            deleteRows.Delete
        End If
    End With
End Sub

• 反向循环逻辑简单，适合小数据量场景；
• 批量删除能大幅提升执行效率，尤其处理上万行数据时优势明显。

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