質問: Workbooks("" & i & ".csv").Worksheets(" & i & ").Range("A1:A3") Wb2.Copy Wb1.Worksheets("貼り付け先").Range("A1") Next i
回答: 1) Set Wb2 = Workbooks("" & i & ".csv").Worksheets(" & i & ").Range("A1:A3") ↓ Set Wb2 = Workbooks(i & ".csv").Worksheets(CStr(i)).Range("A1:A3")