Excel VBA中For Each循环结合If语句为何无法选中所有符合条件的行？

问题原因 #

核心问题是For Each的正向遍历逻辑遇到行删除后的单元格移位冲突了：

• For Each会按照选区的原始单元格顺序逐个遍历。当你删除某一行时，该行下方的所有行都会向上移动一行填补空缺。
• 举个实际场景：假设循环到第2行的单元格并删除了该行，原来的第3行就变成了新的第2行，但循环指针已经准备去遍历原来的第3行（现在的第3行是原来的第4行），这就直接跳过了刚移上来的新第2行，导致它没被检查。
• 所以首次运行时，只有部分符合条件的行被删除，剩下的都是因为移位被跳过的目标行。

解决方法 #

方法1：反向遍历行

从选区的最后一行往第一行倒着遍历，这样删除行后，还没遍历到的行都在当前行的上方，移位不会影响遍历顺序：

Sub delete_3Digit_Numbers()
    Dim i As Long
    ' 从选区最后一行遍历到第一行
    For i = Selection.Rows.Count To 1 Step -1
        With Selection.Cells(i, 1)
            If .Value <> "" And Len(.Value) = 3 Then
                .EntireRow.Delete
            End If
        End With
    Next i
End Sub

方法2：先收集目标行再批量删除

先把所有符合条件的行存入一个Range对象，最后一次性删除，避免多次移位带来的遍历遗漏：

Sub delete_3Digit_Numbers()
    Dim delRange As Range
    Dim cell As Range
    
    For Each cell In Selection
        If cell.Value <> "" And Len(cell.Value) = 3 Then
            ' 逐步合并要删除的行
            If delRange Is Nothing Then
                Set delRange = cell.EntireRow
            Else
                Set delRange = Union(delRange, cell.EntireRow)
            End If
        End If
    Next cell
    
    ' 统一删除所有目标行（先判断是否有行要删）
    If Not delRange Is Nothing Then delRange.Delete
End Sub

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