複製，名稱和粘貼表n次

Question

我有一個從Sheet1的A1開始的單列表，稱爲Table1。我想創建n個Table1副本，將每個後續副本命名爲Excel中的定義名稱（Table2，Table3，... Tablen），並將這些副本放在Sheet1的列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))