作者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/cn.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