VBA中Offset偏移后的Range调用Merge为何始终合并初始区域？

问题描述 #

代码意图循环合并Sheet1和Sheet2中依次向下偏移两行的区域（如A1:B2、A3:B4、A5:B6），但实际调用Merge时始终只作用于初始的A1:B2区域，不过后续对偏移后的Range赋值能写入正确单元格。

原代码 #

'Range对象的声明与初始化（已声明为Range类型）
Set Range1 = Sheet1.Range("A1:B2")
Set Range2 = Sheet2.Range("A1:B2")

For i = 1 To col1.Count 'col1为存储后续使用数据的集合
    If i <> 1 Then '判断非首次循环
        Sheet1.Rows(range_row + 2 & ":" & range_row + 3).Insert '初始range_row值为1
        Sheet2.Rows(range_row + 2 & ":" & range_row + 3).Insert
        Sheet1.Rows("61:62").Delete
        Sheet2.Rows("61:62").Delete
        Set Range1 = Range1.Offset(1, 0) '尝试Offset(2,0)也无效果
        Set Range2 = Range1.Offset(1, 0)
        Range1.Merge
        Range2.Merge
        range_row = range_row + 2
    End If
    '不影响区域大小的其他操作
Next i

问题原因 #

1. 插入/删除行导致Range引用混乱：Excel会自动调整已存在的Range对象引用，当你插入或删除行后，原本通过Offset得到的Range引用会被Excel修正回初始区域，这是Merge失效的核心原因。
2. Range2赋值错误：Set Range2 = Range1.Offset(1, 0)会让Range2指向Sheet1的区域，而非Sheet2，逻辑完全错误。
3. 无需用As New声明Range对象，Merge完全支持Offset后的Range，As New反而可能引发不必要的自动初始化问题。

修正后的代码 #

'Range对象的声明（已声明为Range类型）
Dim Range1 As Range, Range2 As Range
Dim range_row As Integer
range_row = 1 '初始行号

For i = 1 To col1.Count 'col1为存储后续使用数据的集合
    If i <> 1 Then '非首次循环，先调整行并合并新区域
        '插入/删除行操作
        Sheet1.Rows(range_row + 2 & ":" & range_row + 3).Insert
        Sheet2.Rows(range_row + 2 & ":" & range_row + 3).Insert
        Sheet1.Rows("61:62").Delete
        Sheet2.Rows("61:62").Delete
        
        '基于当前range_row重新计算目标Range，避免引用混乱
        Set Range1 = Sheet1.Range("A" & range_row + 2 & ":B" & range_row + 3)
        Set Range2 = Sheet2.Range("A" & range_row + 2 & ":B" & range_row + 3)
        
        '执行合并
        Range1.Merge
        Range2.Merge
        
        '更新行号偏移
        range_row = range_row + 2
    Else '首次循环，合并初始区域
        Set Range1 = Sheet1.Range("A1:B2")
        Set Range2 = Sheet2.Range("A1:B2")
        Range1.Merge
        Range2.Merge
    End If
    '不影响区域大小的其他操作
Next i

关键修改点 #

• 每次循环基于当前range_row直接计算目标Range的地址，而非依赖原Range的Offset，彻底避免插入行导致的引用偏移问题。
• 修正Range2的赋值逻辑，确保始终指向Sheet2的对应区域。
• 拆分首次循环和后续循环的Range初始化逻辑，让代码更清晰。

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