VBA For循环动态调整上界时提前退出的原因与修复方法

• VBA 的 For...Next 循环的终止值仅在循环初始化阶段计算一次，后续你在循环内部修改 itotal_rows 的值不会更新循环的实际终止上限，你的循环始终以最初赋值的 itotal_rows=421 作为退出判断基准。
• 你在符合判断条件的分支中手动执行了 p = p + 1，叠加 Next p 自带的计数器自增逻辑，每次触发条件时p会额外多步进1位，最终提前触及初始的421上限，导致循环提前退出。

将固定上限的For...Next循环替换为每次迭代都会重新判断条件的Do While循环，适配总行数动态变化的场景，修正后的代码如下：

Dim p As Long, temp_row As Long
Dim itotal_rows As Long

' 初始化参数，补充遗漏的temp_row初始值
p = 3
temp_row = 3
itotal_rows = wksSupervisor.Cells.SpecialCells(xlCellTypeLastCell).Row

Do While p <= itotal_rows
    If Not IsEmpty(wksSupervisor.Cells(p, 1)) Or p = itotal_rows Then
        ' 插入新行
        wksSupervisor.Rows(p).Insert shift:=xlDown
        ' 对当前 supervisor 对应的行区间分组
        wksSupervisor.Rows(temp_row & ":" & p - 1).Group
        ' 更新下一轮分组的起始行
        temp_row = p + 1
        ' 跳过刚插入的空行
        p = p + 1
        ' 更新最新总行数，下一轮循环会自动使用新值判断
        itotal_rows = wksSupervisor.Cells.SpecialCells(xlCellTypeLastCell).Row
    End If
    ' 正常步进
    p = p + 1
Loop

• 尽量使用wksSupervisor.Cells(wksSupervisor.Rows.Count, 1).End(xlUp).Row获取第一列最后非空行，避免xlCellTypeLastCell因为历史编辑残留的空单元格导致行号计算不准的问题。
• 所有变量提前声明数据类型，开启Option Explicit检查避免隐式类型报错。

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