作者ijkm9 (jay)
看板Visual_Basic
標題[VBA] 巨集-三不同excel檔案互貼請教
時間Sun Aug 5 21:41:47 2018
就是小弟目前的有A,B，C三檔，現在要開啟B檔後按下巨集後復製a到d欄的資料然后貼在A檔
的a到d欄，然後滑鼠停在e欄，打開C檔按下巨集一樣復製a到d欄，但資料是貼在我指定的e
欄開始貼，滑鼠移到I欄，然後以此類推，小弟我目前的的問題是只會貼在a欄，不能從我指
定的位置開始貼上，所以想請教一下各位有什麼好方法嗎？謝謝指導.
--
※ 發信站: 批踢踢實業坊(ptt.cc), 來自: 114.39.143.171
※ 文章網址: https://webptt.com/m.aspx?n=bbs/Visual_Basic/M.1533476509.A.7B9.html
1F：→ paul60209: Dim RightColumn as Intenger 08/06 08:58
2F：→ paul60209: RightColumn = cells(2,"XFD").End(xlToLeft).Column+1 08/06 09:00
3F：→ paul60209: RightColumn會動態的去找出最新的空白欄 08/06 09:01
4F：→ paul60209: 所以你貼上的時候語法要改用RightColumn來貼，例如 08/06 09:01
5F：→ paul60209: Workbooks("A").sheets(1).Range("A2:A100").Copy 08/06 09:03
6F：→ paul60209: _ Workbooks("B").sheets(1).Cells(2,RightColumn) 08/06 09:04
7F：→ ijkm9: 感謝PAUL大的講解，嘗試過後會出現錯誤碼如附圖所示，可以 08/07 21:48
9F：→ paul60209: 私信你了，有問題在跟我聯絡 08/08 10:25