VBA For循环迭代次数异常问题求助：运行次数逐次递减

问题现象 #

编写的VBA代码中，For循环首次运行仅执行4次迭代即停止；再次运行时执行2次迭代，后续每次运行仅执行1次，但待处理数据可达百行以上。

问题根源 #

1. 循环索引与行删除冲突：循环采用正序i = 1 To 总行数，但每次迭代都会删除第1行，导致后续数据行上移，循环变量i递增时会跳过部分行。同时循环的终止条件ws.Cells(Rows.Count, "E").End(xlUp).Row在每次迭代后都会变小，直接缩短了循环范围。
2. 提前退出逻辑误触发：If ws.Cells(i, "E").Value = 0 Then Exit For的判断在删除行后，原本靠后的行上移到i的位置，可能提前遇到值为0的单元格导致循环提前终止。
3. Select/Activate滥用：大量使用工作表切换和单元格选择，不仅降低代码效率，还容易因上下文切换导致引用错误，比如公式中的相对引用会因为行删除而出错。

修复方案 #

采用倒序循环避免行删除影响索引，移除Select/Activate直接操作对象，修正公式引用逻辑：

Sub SASDAB()
    Dim wsSAS As Worksheet
    Dim wsParts As Worksheet
    Dim lastRow As Long
    Dim i As Long
    
    ' 提前绑定工作表对象，避免反复切换
    Set wsSAS = ThisWorkbook.Sheets("SAS&DAB")
    Set wsParts = ThisWorkbook.Sheets("Parts List")
    
    ' 获取初始总行数，避免循环中动态变化影响范围
    lastRow = wsSAS.Cells(wsSAS.Rows.Count, "E").End(xlUp).Row
    
    ' 倒序循环：从最后一行往第一行处理，删除行不影响未处理的行索引
    For i = lastRow To 1 Step -1
        ' 跳过E列为0的行（如果需要保留这些行，可改为Continue）
        If wsSAS.Cells(i, "E").Value = 0 Then
            Continue For ' 或者直接跳过，不退出整个循环
        End If
        
        ' 直接赋值公式，无需Select/Activate，使用绝对行号避免引用错误
        wsParts.Range("B3").FormulaR1C1 = "='SAS&DAB'!R" & i & "C[-1]" ' 对应SAS&DAB的i行D列
        wsParts.Range("B4").FormulaR1C1 = "='SAS&DAB'!R" & i & "C[2]" ' 对应SAS&DAB的i行G列
        wsParts.Range("E5").FormulaR1C1 = "='SAS&DAB'!R" & i & "C[-2]" ' 对应SAS&DAB的i行C列
        wsParts.Range("E6").FormulaR1C1 = "='SAS&DAB'!R" & i & "C" ' 对应SAS&DAB的i行E列
        
        ' 设置筛选并打印
        wsParts.Range("$D$6:$D$845").AutoFilter Field:=1, Criteria1:=">0"
        wsParts.PrintOut Copies:=1, Collate:=True, IgnorePrintAreas:=False
        
        ' 删除当前处理的行（倒序循环下，删除i行不影响前面的行索引）
        wsSAS.Rows(i).Delete Shift:=xlUp
    Next i
    
    ' 清除筛选状态（可选）
    If wsParts.AutoFilterMode Then wsParts.AutoFilterMode = False
End Sub

关键修改点说明 #

• 绑定工作表对象：直接用wsSAS和wsParts操作，避免反复切换工作表，减少错误。
• 倒序循环：从最后一行开始处理，删除行后不会改变未处理行的索引，确保所有符合条件的行都能被处理。
• 绝对行号引用：公式中使用R" & i & "C的形式，基于当前循环的行号构建绝对引用，避免相对引用因行删除而出错。
• 调整退出逻辑：将Exit For改为Continue For（如果需要跳过E列为0的行而非终止循环），确保循环能处理所有有效数据。
• 移除冗余操作：删除不必要的Select和Activate，提升代码执行效率和稳定性。

内容的提问来源于stack exchange，提问作者Jack van Hoof