將復制的單元格作為參考插入命名范圍

Question

我在“ Sheet1”中有一個命名的單元格范圍，可以稱它們為“ Range1”。 我在“ Sheet2”中還有另一個單元格范圍，可以稱它們為“ Range2”。

我想從Range1復制引用並將其粘貼到Range2中，但是要在范圍的開始或結尾處，因此Range2將自動擴展以合並這些新單元格。

我已經嘗試了以下代碼，但是不起作用。

Sheets("Sheet1").Range("Range1")
Sheets("Sheet2").Range("Range2")(1).Select
Selection.Insert Shift:=xlDown Link:=True

我是VBA的新手，所以我知道上述可能完全是錯誤的解決方法！ 替代解決方案也將被贊賞。

Answer 1

我設法使用以下代碼解決了這個問題：

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