PTT數位生活區 / Visual_Basic

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

看板Visual_Basic作者 (jay)時間6年前 (2018/08/05 21:41), 編輯推噓0(0推 0噓 9→)
留言9則, 2人參與, 6年前最新討論串1/1
就是小弟目前的有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
→
08/06 08:58, 6年前 , 1F
Dim RightColumn as Intenger
08/06 08:58, 1F
→
08/06 09:00, 6年前 , 2F
RightColumn = cells(2,"XFD").End(xlToLeft).Column+1
08/06 09:00, 2F
→
08/06 09:01, 6年前 , 3F
RightColumn會動態的去找出最新的空白欄
08/06 09:01, 3F
→
08/06 09:01, 6年前 , 4F
所以你貼上的時候語法要改用RightColumn來貼，例如
08/06 09:01, 4F
→
08/06 09:03, 6年前 , 5F
Workbooks("A").sheets(1).Range("A2:A100").Copy
08/06 09:03, 5F
→
08/06 09:04, 6年前 , 6F
_ Workbooks("B").sheets(1).Cells(2,RightColumn)
08/06 09:04, 6F
→
08/07 21:48, 6年前 , 7F
感謝PAUL大的講解，嘗試過後會出現錯誤碼如附圖所示，可以
08/07 21:48, 7F
→
08/07 21:48, 6年前 , 8F
在幫忙看看嗎?謝謝 https://tinyurl.com/ya6hvnso
08/07 21:48, 8F
→
08/08 10:25, 6年前 , 9F
私信你了，有問題在跟我聯絡
08/08 10:25, 9F
‣ 更多 ijkm9 的文章
文章代碼(AID): #1RPlwTUv (Visual_Basic)
Visual_Basic 近期熱門文章
更多 近期熱門文章 >>
PTT數位生活區 即時熱門文章
更多 即時熱門文章 >>
‣ 更多 ijkm9 的文章
文章代碼(AID): #1RPlwTUv (Visual_Basic)