EntireRow.Delete仅删除隔行求助：VBA循环删除指定行异常排查

嘿，这个问题我太熟悉了！咱们一步步拆解你遇到的核心问题：

问题根源：正向循环删除行的索引错位 #

你当前的代码是从第1行到第30行正向遍历，当你删除某一行（比如第11行）后，Excel会自动把后面的所有行往上挪一行——原来的第12行现在变成了新的第11行，但你的currRow已经加到12了，下一次检查的是新的第12行（也就是原来的第13行），直接跳过了刚挪上来的那一行，这就导致了“隔行删除”的现象。

举个具体例子：

• 初始状态：行11是"no"，行12也是"no"
• 你删除行11后，行12自动变成新行11
• 但currRow已经变成12，接下来检查的是新行12（原行13），原行12（现新行11）就被彻底跳过了

关于你提到的“反向循环也有问题” #

大概率是你写反向循环时逻辑不对！正确的反向循环应该是从最后一行往第一行遍历，这样删除行不会影响前面未遍历的行（因为前面的行索引不会因为后面行的删除而改变）。如果你的反向循环还是在递增currRow，那肯定还是会出问题。

正确的解决方案 #

方案1：反向遍历（最推荐） #

从最后一行开始，逐步往前检查删除，这样完全不会有索引错位的问题：

' 从第30行倒序遍历到第1行
For i = 30 To 1 Step -1
    ' 直接检查当前行的第21列值
    If Cells(i, 21).Value = "no" Then
        Rows(i).EntireRow.Delete
    End If
Next i

方案2：正向遍历但调整索引 #

如果一定要用正向循环，那删除行后不要递增索引，因为当前位置已经是新的一行了，需要再检查一次：

currRow = 1
Do While currRow <= 30
    If Cells(currRow, 21).Value = "no" Then
        Rows(currRow).EntireRow.Delete
        ' 删除后不递增，因为下一行已经挪上来了
    Else
        ' 只有没删除的时候才递增索引
        currRow = currRow + 1
    End If
Loop

总结 #

删除行时的核心坑就是行索引会因为删除操作发生变化，反向遍历是最稳妥的解决方式，能避免所有索引错位的问题。

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