[VBA] 巨集-三不同excel檔案互貼請教

[ijkm9 (jay)]

就是小弟目前的有A,B，C三檔，現在要開啟B檔後按下巨集後復製a到d欄的資料然后貼在A檔
的a到d欄，然後滑鼠停在e欄，打開C檔按下巨集一樣復製a到d欄，但資料是貼在我指定的e
欄開始貼，滑鼠移到I欄，然後以此類推，小弟我目前的的問題是只會貼在a欄，不能從我指
定的位置開始貼上，所以想請教一下各位有什麼好方法嗎？謝謝指導.

--
※ 發信站: 批踢踢實業坊(ptt.cc), 來自: 114.39.143.171
※ 文章網址: https://www.ptt.cc/bbs/Visual_Basic/M.1533476509.A.7B9.html
→ paul60209: Dim RightColumn as Intenger
→ paul60209: RightColumn = cells(2,"XFD").End(xlToLeft).Column+1
→ paul60209: RightColumn會動態的去找出最新的空白欄
→ paul60209: 所以你貼上的時候語法要改用RightColumn來貼，例如
→ paul60209: Workbooks("A").sheets(1).Range("A2:A100").Copy
→ paul60209: _ Workbooks("B").sheets(1).Cells(2,RightColumn)
→ ijkm9: 感謝PAUL大的講解，嘗試過後會出現錯誤碼如附圖所示，可以
→ ijkm9: 在幫忙看看嗎?謝謝 https://tinyurl.com/ya6hvnso
→ paul60209: 私信你了，有問題在跟我聯絡