VBA宏修改后异常：插入整行而非指定单元格区域问题排查

问题根源分析 #

修改后的代码核心错误在于错误的区域构造方式，导致rng2被错误解析为整行：

• 原代码通过字符串拼接单元格地址构造区域的方式，在固定列场景下可行。
• 但修改后的Set rng2= Worksheets("Sheet1").Range(rng1.Offset(i, 0) & ":" & rng1.Offset(i + 1, 2))是直接将单元格对象与字符串拼接，VBA会自动把单元格对象转为它的Value属性值（若单元格为空则为空字符串），最终构造出无效的区域引用，触发Excel默认插入整行的行为。

修复后的代码 #

将区域构造方式改为Range对象的双参数形式（直接指定区域的左上角和右下角单元格），保留原逻辑：

i = 3
Set rng1 = Worksheets("Sheet1").Range("BZ6").End(xlToLeft).Offset(0, -2)
Do While i < 19
    ' 用两个单元格对象直接构造目标区域，替代字符串拼接
    Set rng2 = Worksheets("Sheet1").Range(rng1.Offset(i, 0), rng1.Offset(i + 1, 2))
    rng2.Insert Shift:=xlDown
    i = i + 3
Loop

额外验证点 #

• 确认rng1定位准确：可添加MsgBox rng1.Address输出单元格地址，验证Range("BZ6").End(xlToLeft).Offset(0, -2)是否真的指向表格左上角。
• 匹配预期区域规格：修复后的rng2对应2行3列共6个单元格，与原代码的区域规格完全一致，符合需求。

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