如何存储For Next循环迭代次数 实现工作表跳转前条件判断

核心逻辑是在遍历循环外初始化计数器，每完成一次有效循环就给计数器累加，在循环体内做值匹配判断即可，注意避开变量作用域、计数重置的常见坑：

• 变量调整说明
  你原来的变量名nroftimessofsheets(sheet1)包含括号，不符合VBA命名规则，建议调整为nroftimessofsheets_sheet1，两个变量都声明为Long类型避免整数溢出：

  • nroftimessofsheets_sheet1：存储目标工作表预设的预期循环次数，示例中赋值为2
  • v_nrofForLoopinginsheet：存储当前工作表内For循环的实际执行次数，每次切换到新工作表开始遍历前，必须将该值重置为0，否则会累加之前工作表的循环数导致计数错误

• 参考实现代码

Sub TraverseBusinessData()
    Dim nroftimessofsheets_sheet1 As Long
    Dim v_nrofForLoopinginsheet As Long
    Dim wsSource As Worksheet
    Dim lastDataRow As Long, i As Long
    
    ' 初始化预设参数
    nroftimessofsheets_sheet1 = 2
    Set wsSource = ThisWorkbook.Worksheets("sheet.tabledata")
    ' 进入当前工作表遍历前，重置循环计数器
    v_nrofForLoopinginsheet = 0
    
    ' 获取当前表格数据范围，示例假设A列是业务数据主列，第一行为表头
    lastDataRow = wsSource.Cells(wsSource.Rows.Count, "A").End(xlUp).Row
    
    ' 开始For循环遍历表格元素
    For i = 2 To lastDataRow
        ' 每进入一次循环，计数器累加1，该行必须放在循环体最开头，不要嵌套在业务判断里
        v_nrofForLoopinginsheet = v_nrofForLoopinginsheet + 1
        
        ' 原有业务逻辑：判断遍历到的数值，复制对应地址、电话号码到指定工作表
        ' If 满足数值匹配条件 Then
        '     执行单元格复制、粘贴到目标表的操作
        ' End If
        
        ' 次数匹配判断：实际循环次数等于预期值时，在跳转下一个工作表前执行专属操作
        If v_nrofForLoopinginsheet = nroftimessofsheets_sheet1 Then
            ' 此处写入需要执行的专属操作逻辑，比如汇总计算、格式标记、插入分页等
            ' 若达到次数后不需要继续遍历当前工作表，可加Exit For提前退出循环
            Exit For
        End If
    Next i
    
    ' 此处写入跳转至下一个工作表的逻辑
    ' 注意跳转后开始新工作表遍历前，必须再次执行v_nrofForLoopinginsheet = 0重置计数
End Sub

• 常见避坑点
  • 计数器累加语句不要放在业务判断分支内，否则会漏记不满足业务条件的循环次数，导致计数和实际执行次数不符
  • 计数器变量不要声明在For循环内部，否则每次循环都会重新初始化变量，无法实现累计效果
  • 如果是多层循环嵌套（如遍历行+遍历列），将计数器放在你需要统计的对应层级循环体中即可

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