VBA For Each循环删除符合条件行仅生效一半该如何解决？

问题原因 #

你遇到的漏删问题是正向遍历删除行的典型bug：从上到下遍历每行时，只要某一行被删除，它下方的所有行都会自动上移一行，而循环指针会直接跳到下一个原行号，刚好跳过了刚上移的那一行，所以会漏掉近一半符合条件的行。标黄操作不需要修改表格行结构，所以不会触发这个问题。

解决方法 #

推荐两种常用的修复方案：

方案1：倒序遍历（修改成本最低） #

把原来的正向For Each循环改成从最后一行往上遍历的For循环，删行操作不会影响还没遍历的上层行，完全避免漏删，修改后代码如下：

Sub zakat()
    Dim i As Long
    Dim lastRow As Long ' 原代码用String类型存行号是错误的，行号是数值，应该用Long类型
    Dim ws As Worksheet
    
    ' 直接绑定工作表对象，避免用Activate/Select导致的不稳定问题
    Set ws = ThisWorkbook.Sheets("payment sheet")
    
    ws.Cells.EntireColumn.AutoFit
    lastRow = ws.Range("A1").CurrentRegion.Rows.Count
    
    ' 从最后一行往上遍历到第2行
    For i = lastRow To 2 Step -1
        If ws.Range("M" & i).Text Like "*4435*" Or ws.Range("M" & i).Text Like "*1292*" Or ws.Range("M" & i).Text Like "*1293*" Then
            ws.Rows(i).Delete Shift:=xlUp
        End If
    Next i
End Sub

方案2：先汇总符合条件的行再批量删除（适合数据量大的场景） #

先把所有符合条件的行合并成一个Range对象，最后只执行一次删除操作，不需要反复修改表格结构，执行效率更高：

Sub zakat()
    Dim cell As Range
    Dim lastRow As Long
    Dim ws As Worksheet
    Dim delRng As Range
    
    Set ws = ThisWorkbook.Sheets("payment sheet")
    ws.Cells.EntireColumn.AutoFit
    lastRow = ws.Range("A1").CurrentRegion.Rows.Count
    
    For Each cell In ws.Range("M2:M" & lastRow)
        If cell.Text Like "*4435*" Or cell.Text Like "*1292*" Or cell.Text Like "*1293*" Then
            ' 把符合条件的行合并到待删除范围里
            If delRng Is Nothing Then
                Set delRng = cell.EntireRow
            Else
                Set delRng = Union(delRng, cell.EntireRow)
            End If
        End If
    Next cell
    
    ' 最后一次性删除所有符合条件的行
    If Not delRng Is Nothing Then delRng.Delete Shift:=xlUp
End Sub

额外优化建议 #

• 尽量不要用Activate、Select这类操作，不仅执行效率低，还容易因为用户手动切换工作表导致运行错误，直接绑定工作表对象更稳定
• 行号是数值类型，不要用String类型存储，避免后续运算报错

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