[算表] Windows("file").active檔名遞增選取

看板Office作者時間2年前 (2021/07/11 14:29), 編輯推噓1(1推 0噓 0→)
留言1則, 1人參與, 2年前最新討論串1/1
軟體: 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://www.ptt.cc/bbs/Office/M.1625984951.A.425.html
推
07/11 14:38, 2年前 , 1F
Windows("paste csv test" & i).Activate
07/11 14:38, 1F
‣ 更多 Pettitte1 的文章
文章代碼(AID): #1Wwe-tGb (Office)