vba - 复制、命名和粘贴表 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))