软件: 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贴上?
谢谢