vba - VBA循环上限调整

Question

我正在尝试创建一个上限调整的循环。但是，当我运行此循环时，即使 itotal_rows = 421，它也会在 p = 419 时退出。为什么会出现这种情况以及如何解决它。

    For p = 3 To itotal_rows
        If Not IsEmpty(wksSupervisor.Cells(p, 1)) Or p = wksSupervisor.Cells.SpecialCells(xlCellTypeLastCell).Row Then
        
            'Insert row
            wksSupervisor.rows(p).Insert shift:=xlDown
            'Group Rows above next name
            wksSupervisor.rows(temp_row & ":" & p - 1).Group
            'start next grouping at next supervisor name
            temp_row = p + 1
            p = p + 1
            itotal_rows = wksSupervisor.Cells.SpecialCells(xlCellTypeLastCell).Row
        End If
        'name position increased 1 row so we must also increment p again

        
    Next p

标签： vbaloops