軟體: Excel
版本: office365
我想請問一下
假設我有五個csv檔案已開啟 名子是
paste csv test1.csv
paste csv test2.csv
paste csv test3.csv
paste csv test4.csv
paste csv test5.csv
我想要把他們每一個A1:A5貼到paste test csv.xlsm檔案裡面
目前是這樣寫
Sub pastecsv()
Dim i As Integer
For i = 1 To 5
Windows("paste csv test1").Activate
Range("A1:A5").Select
Selection.Copy
Windows("paste csv test.xlsm").Activate
Range("B1").Offset(, i * 2).Select
ActiveSheet.Paste
Next i
End Sub
請問要怎麼把第五行改成像這樣paste csv test(i)
這樣他可以自己從paste csv test1-5複製到past csv test.xlsm貼上?
謝謝