我在'Sheet1'中有一个命名范围的单元格,我们称之为'Range1'。我在“Sheet2”中有另一个单元格区域,可以将它们称为“Range2”。
我想复制Range1中的引用并将它们粘贴到Range2中,但是在范围的开头或结尾处,因此Range2将自动扩展以包含这些新单元格。
我已经尝试过以下代码,但它不起作用。
Sheets("Sheet1").Range("Range1")
Sheets("Sheet2").Range("Range2")(1).Select
Selection.Insert Shift:=xlDown Link:=True
我是VBA的新手,所以我知道以上可能完全是错误的方式!替代解决方案也将受到赞赏。
答案 0 :(得分:0)
我设法使用以下代码解决了这个问题:
Sheets("Sheet2").Range("Range2").Offset(1, 0).Insert _
CopyOrigin:=xlFormatFromRightOrBelow
For X = 1 To 30
For Y = 1 To 4
Sheets("Sheet2").Range("Range2").Cells(X, Y) = "=" & _
Sheets("Sheet1").Range("Range1").Cells(X, Y).Address(False, False, , True)
Next
Next