VBA宏删除指定空白列对应行时跳过行的原因咨询

问题原因 #

你遇到的跳过行问题，核心原因是正向遍历行并删除时，Excel行索引会自动错位。

当用For Each循环遍历Range("DEX").Rows并删除行时，每删除一行，该行下方的所有行会自动上移填补空缺。但For Each是按原始集合的顺序遍历的，这就导致被删除行的下一行会被跳过——比如原本的第5行被删除，原第6行变成新的第5行，但循环已经推进到下一个迭代，直接处理原第7行（现在的第6行），漏掉了新的第5行。你的第二个循环正是这个逻辑，所以需要多次运行才能把符合条件的行删干净。

修复方案 #

解决这个问题的标准做法是从最后一行往前遍历，这样删除操作不会影响未遍历的行（因为后面的行已经处理过，前面的行上移不会干扰当前遍历的位置）。同时可以优化逻辑，把标记和删除合并，减少一次遍历：

Sub DEX_Clean()
    Dim W As Worksheet
    Set W = Worksheets("DEX")
    
    Dim lastRow As Long
    Dim i As Long
    
    ' 获取数据区域最后一行（以第一列非空行判断）
    lastRow = W.Cells(W.Rows.Count, 1).End(xlUp).Row
    
    ' 从后往前遍历行，避免删除导致的索引错位
    For i = lastRow To 1 Step -1
        With W.Rows(i)
            ' 直接判断条件并删除，无需标记列
            If .Cells(1).Value <> "" And (.Cells(3).Value = "" Or .Cells(4).Value = "") Then
                .Delete
            End If
        End With
    Next i
End Sub

额外说明 #

• 取消了标记第七列的步骤，直接判断条件后删除，简化逻辑并提升运行效率
• 用lastRow获取实际数据的最后一行，避免遍历无效空行
• 反向循环Step -1确保每一行都被检查到，彻底解决跳过行的问题

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