将复制的单元格作为引用插入到命名范围中

时间:2014-09-19 11:26:15

标签: excel vba excel-vba

我在'Sheet1'中有一个命名范围的单元格,我们称之为'Range1'。我在“Sheet2”中有另一个单元格区域,可以将它们称为“Range2”。

我想复制Range1中的引用并将它们粘贴到Range2中,但是在范围的开头或结尾处,因此Range2将自动扩展以包含这些新单元格。

我已经尝试过以下代码,但它不起作用。

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

我是VBA的新手,所以我知道以上可能完全是错误的方式!替代解决方案也将受到赞赏。

1 个答案:

答案 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