循环中新增行致范围变化，如何更新VBA中的WorkRng1与WorkRng2？

嗨，Mike，这个问题我太熟了——在VBA循环里插入行简直是Range对象的“噩梦”，因为你一开始定义的WorkRng1和WorkRng2是绑定初始行号的，一旦插入新行，后面的行号全变了，但旧的Range还是死死盯着原来的位置，根本不会自动更新。我给你两个最实用的解决思路，连代码都给你写好啦：

思路1：反向循环（最高效的解法） #

直接从范围的最后一行往上遍历，这样即使你在当前行上方插入新行，也不会影响还没处理的行（因为它们在更下面，行号不会被插入操作改变）。同时，如果你需要同步更新公共变量WorkRng1和WorkRng2，也可以在插入行后重新计算范围。

示例代码：

Public WorkRng1 As Range, WorkRng2 As Range

Sub FixWithReverseLoop()
    ' 先通过输入框获取初始范围
    Set WorkRng1 = Application.InputBox("选择第一个范围", Type:=8)
    Set WorkRng2 = Application.InputBox("选择第二个范围", Type:=8)
    
    Dim startRow As Long, targetCol As Long
    startRow = WorkRng1.Rows(1).Row ' 记录范围的起始行
    targetCol = WorkRng1.Column ' 记录要检测的列
    
    ' 从初始范围的最后一行开始往上循环
    Dim i As Long
    For i = WorkRng1.Rows(WorkRng1.Rows.Count).Row To startRow Step -1
        ' 检测当前行是否符合条件
        If ActiveSheet.Cells(i, targetCol).Value = "你要找的特定值" Then
            ' 插入新行
            ActiveSheet.Cells(i, targetCol).EntireRow.Insert
            
            ' 这里更新公共范围变量，把新插入的行包含进去
            Dim newLastRow As Long
            newLastRow = ActiveSheet.Cells(Rows.Count, targetCol).End(xlUp).Row
            Set WorkRng1 = ActiveSheet.Range(Cells(startRow, targetCol), Cells(newLastRow, targetCol))
            ' 同步更新WorkRng2，假设它和WorkRng1行数一致，列不同
            Set WorkRng2 = ActiveSheet.Range(Cells(startRow, WorkRng2.Column), Cells(newLastRow, WorkRng2.Column))
        End If
    Next i
End Sub

思路2：每次循环前重新刷新范围 #

如果你觉得反向循环逻辑有点绕，也可以每次处理前重新计算当前的最后一行，然后重新定义WorkRng1和WorkRng2。这种方式更直观，适合范围结构比较复杂的场景。

示例代码：

Public WorkRng1 As Range, WorkRng2 As Range

Sub FixWithRefreshRange()
    ' 初始范围获取
    Set WorkRng1 = Application.InputBox("选择第一个范围", Type:=8)
    Set WorkRng2 = Application.InputBox("选择第二个范围", Type:=8)
    
    Dim startRow As Long, col1 As Long, col2 As Long
    startRow = WorkRng1.Rows(1).Row
    col1 = WorkRng1.Column
    col2 = WorkRng2.Column
    
    Dim hasFound As Boolean
    Do
        hasFound = False
        ' 每次循环前重新获取最新的范围
        Dim lastRow As Long
        lastRow = ActiveSheet.Cells(Rows.Count, col1).End(xlUp).Row
        Set WorkRng1 = ActiveSheet.Range(Cells(startRow, col1), Cells(lastRow, col1))
        Set WorkRng2 = ActiveSheet.Range(Cells(startRow, col2), Cells(lastRow, col2))
        
        ' 遍历当前范围找特定值
        Dim cell As Range
        For Each cell In WorkRng1
            If cell.Value = "你要找的特定值" Then
                cell.EntireRow.Insert
                hasFound = True
                Exit For ' 找到就跳出，重新刷新范围
            End If
        Next cell
    Loop Until Not hasFound ' 直到找不到特定值为止
End Sub

小提示： #

• 如果WorkRng1和WorkRng2是跨多列的范围，只需要把Column改成Columns相关的逻辑就行，比如用WorkRng1.Columns(1)来取第一列作为检测列。
• 插入行后如果需要复制上一行的格式或公式，可以在Insert后面加一行cell.Offset(-1).EntireRow.Copy cell.EntireRow，再用PasteSpecial选择需要的内容。

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