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

Dim RightColumn as IntengerRightColumn = cells(2,"XFD").End(xlToLeft).Column+1RightColumn會動態的去找出最新的空白欄所以你貼上的時候語法要改用RightColumn來貼，例如Workbooks("A").sheets(1).Range("A2:A100").Copy_ Workbooks("B").sheets(1).Cells(2,RightColumn)

感謝PAUL大的講解，嘗試過後會出現錯誤碼如附圖所示，可以在幫忙看看嗎?謝謝 https://tinyurl.com/ya6hvnso

私信你了，有問題在跟我聯絡