※ [本文转录自 Visual_Basic 看板 #1QIUJPN0 ]
作者: Ibrahimovic (伊布) 看板: Visual_Basic
标题: [VBA ] ActiveSheet.Paste问题
时间: Mon Jan 1 15:35:51 2018
VBA新手想请教 ActiveSheet.Paste 问题
我录了一个宏
内容是剪下 G5:K5，再贴到A5
程式码如下：
1 Range("G5:K5").Select
2 Selection.Cut
3 Range("A5").Select
4 ActiveSheet.Paste
第1行里的储存格列的位置改成循环，没问题
可是接下来
第3行的储存格A5
其中5(列)的位置套在循环就出现错误
侦错出现是指第4行的 ActiveSheet.Paste
https://i.imgur.com/t1La05M.jpg
想请教这是语法上的问题还是逻辑上的错误？

paste后selection.cut所剪下的部分就会取消，因此再次贴上时会出现paste方法失败的错误讯息如原po是希望g5:k5、g7:k7、g9:k9...分别剪下贴入a5、a7、a9...的话，for j=....next j 的方面则不用写以range("a" & s).select，下接paste的部分