如何在VBA的For循环中使用If语句？解决删除非空行循环中断问题

我太懂这个坑了——从上到下循环删行的时候，很容易出现跳行或者提前终止的情况，这可是VBA处理行删除的经典陷阱！

问题根源 #

你当前的代码是从第2行从上到下循环到初始的NumRows：

For VarDeleteLoop = 2 To NumRows

当你删除某一行后，下面所有行都会自动上移一行。比如你删了第2行，原来的第3行就变成了新的第2行，但循环变量VarDeleteLoop会直接跳到3，这就导致新的第2行（原第3行）完全被跳过。而且初始的NumRows是9324，但删除行后实际行数会减少，循环到后期可能会访问不存在的行，直接导致错误或提前终止。

修复方案：从后往前循环 #

解决这个问题的核心是从最后一行开始往上循环，这样删除行不会影响还没处理的行（因为上面的行位置不会被下面的删除操作改变）。同时，去掉不必要的Select操作，既能提高运行速度，也能避免不必要的界面交互。

修改后的代码如下：

Sub DeleteRowsWithValueInD()
    Dim VarDeleteLoop As Long
    Dim NumRows As Long
    Dim ws As Worksheet
    
    ' 定义工作表对象，避免重复引用
    Set ws = ThisWorkbook.Worksheets("Sheet")
    
    ' 获取A列最后一行的行号
    NumRows = ws.Cells(ws.Rows.Count, "A").End(xlUp).Row
    
    ' 从最后一行往上循环到第2行
    For VarDeleteLoop = NumRows To 2 Step -1
        ' 检查D列当前行是否有值
        If ws.Cells(VarDeleteLoop, 4).Value <> "" Then
            ' 删除整行，无需Select
            ws.Rows(VarDeleteLoop).Delete
        End If
    Next VarDeleteLoop
End Sub

额外优化建议（针对9000+行的大数据量） #

如果你的数据量很大（9324行），可以加上以下代码来大幅提升运行速度：

Sub DeleteRowsWithValueInD_Optimized()
    Dim VarDeleteLoop As Long
    Dim NumRows As Long
    Dim ws As Worksheet
    
    Set ws = ThisWorkbook.Worksheets("Sheet")
    
    ' 关闭屏幕更新、事件和自动计算，提升速度
    Application.ScreenUpdating = False
    Application.EnableEvents = False
    Application.Calculation = xlCalculationManual
    
    NumRows = ws.Cells(ws.Rows.Count, "A").End(xlUp).Row
    
    For VarDeleteLoop = NumRows To 2 Step -1
        If ws.Cells(VarDeleteLoop, 4).Value <> "" Then
            ws.Rows(VarDeleteLoop).Delete
        End If
    Next VarDeleteLoop
    
    ' 恢复Excel默认设置
    Application.ScreenUpdating = True
    Application.EnableEvents = True
    Application.Calculation = xlCalculationAutomatic
End Sub

关闭这些不必要的Excel后台操作后，处理几千行数据的速度会快很多。

为什么原来的代码只处理了D2就停了？ #

如果你的D2有值，删除后原来的D3变成了新的D2，但循环变量跳到3，此时如果新的D3（原D4）是空值，循环会继续，但如果后续有连续的行被删除，可能因为行数减少导致循环提前结束。从后往前循环就能彻底避免这个问题。

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