VBA反向迭代单元格区域时，如何遍历新插入的行？

问题根源 #

VBA的For循环在启动时就会生成完整的迭代序列（比如从startRow到1，步长-1），每次循环结束后会自动将循环变量r更新为序列中的下一个值。手动修改r的操作会被这个自动更新覆盖，因此r=r+1无法起到调整迭代的作用。

解决方案：改用Do While循环 #

使用Do While循环可以完全手动控制行号的变化，避免For循环的自动迭代限制。修改后的代码如下：

Sub ReverseIterateAndInsertRow()
    Dim ws As Worksheet
    Dim rng As Range
    Dim r As Long, c As Long
    Dim startRow As Long, startColumn As Long

    ' 设置工作表和初始区域
    Set ws = ActiveSheet
    Set rng = ws.Range("A1:E10") ' 根据需要调整

    ' 初始化起始行和列
    startRow = rng.Rows.Count
    startColumn = rng.Columns.Count

    ' 从最后一行开始向上迭代，使用Do While手动控制行号
    r = startRow
    Do While r >= 1
        ' 从最右列向左迭代
        For c = startColumn To 1 Step -1
            If Not IsEmpty(rng.Cells(r, c)) Then
                ' 在当前行上方插入复制的行
                rng.Rows(r).Copy
                rng.Rows(r).Insert Shift:=xlDown
                ' 清空复制行中的指定单元格
                rng.Cells(r, c).ClearContents

                ' 更新区域以包含新插入的行
                Set rng = ws.Range(rng.Cells(1, 1), ws.Cells(rng.Rows.Count + 1, rng.Columns.Count))
                ' 保持当前行号不变，以便下一次循环处理新插入的行
                ' 因为新行现在位于r的位置，原行被下移到r+1
                GoTo ContinueLoop ' 跳过后续列的处理，直接进入下一行循环
            End If
        Next c
        ' 没有插入行时，行号减1，继续上一行
        r = r - 1
ContinueLoop:
    Loop
End Sub

关键调整说明 #

• 替换循环类型：用Do While r >=1替代For循环，完全由代码控制行号r的变化。
• 插入行后的行号控制：插入新行后，使用GoTo跳转到循环末尾，保持r的值不变，这样下一次循环会处理新插入的行（此时新行位于原r的位置）。
• 区域更新：插入行后，扩展rng区域以包含新行，确保后续操作能覆盖新增的行。

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