복사, 이름 붙여 넣기 표 n 시간

Question

Sheet1의 A1에서 시작하는 Table1이라는 단일 열 테이블이 있습니다. 나는 Table1의 복사본을 n 개 만들고 각 연속 된 복사본의 이름을 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))