就是小弟目前的有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

私信你了，有问题在跟我联络