Vba 复制、命名和粘贴表n次

我有一个单列表，叫做Table1，从表1的A1开始。我想创建表1的n个副本，将每个连续副本命名为Excel中定义的名称（表2、表3、…表n），并将这些副本放置在表1的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

---

回答了我自己的问题。代码已更新，并且可以正常工作。诀窍在于找到正确的语法来生成定义的名称：

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

---

你怎么能在一分钟内就有一张桌子？如果在：1中创建列，它会自动创建一个从：1到：2的更新问题，以澄清我正在处理的问题。差一点就搞定了。谢谢，不管怎样，如果您查看name manager，使用此路由，您只创建了另一个标签，而不是另一个表