复制，名称和粘贴表n次

Question

我有一个名为Table1的单列表，从Sheet1的A1开始。我想创建Table1的n个副本，将每个连续副本命名为Excel中的定义名称（Table2，Table3，... Tablen），并将这些副本放在Sheet1的col B，C等中。代码：

Sub Copy_and_Paste_Table1_n_times(n As Integer)

Dim i As Integer

    For i = 1 To n
        Range("Table1").Copy Sheets("Sheet1").Cells(1, i + 1)
        ThisWorkbook.Names.Add name:="Table" & (i + 1), _
        RefersTo:=Sheets("Sheet1").Range(Cells(1, i + 1),Cells(10, i + 1))
    Next

End Sub

Answer 1

回答了我自己的问题。代码已更新且有效。诀窍是找到正确的语法来生成定义的名称：

ThisWorkbook.Names.Add name:="Table" & (i + 1), _
RefersTo:=Sheets("Sheet1").Range(Cells(1, i + 1),Cells(10, i + 1))