作者Pettitte1 ()
看板Office
标题[算表] Windows("file").active档名递增选取
时间Sun Jul 11 14:29:07 2021
软体: 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贴上?
谢谢
--
※ 发信站: 批踢踢实业坊(ptt.cc), 来自: 114.32.160.201 (台湾)
※ 文章网址: https://webptt.com/cn.aspx?n=bbs/Office/M.1625984951.A.425.html
1F：推 waiter337: Windows("paste csv test" & i).Activate 07/11 14:38