作者Ibrahimovic (伊布)
看板Office
标题Fw: [VBA ] ActiveSheet.Paste问题
时间Mon Jan 1 15:37:16 2018
※ [本文转录自 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
想请教这是语法上的问题还是逻辑上的错误？
--
※ 发信站: 批踢踢实业坊(ptt.cc), 来自: 111.254.8.8
※ 文章网址: https://webptt.com/cn.aspx?n=bbs/Visual_Basic/M.1514792153.A.5C0.html
※ 发信站: 批踢踢实业坊(ptt.cc)
※ 转录者: Ibrahimovic (111.254.8.8), 01/01/2018 15:37:16
1F：→ soyoso: paste後selection.cut所剪下的部分就会取消，因此再次贴上 01/01 15:55
2F：→ soyoso: 时会出现paste方法失败的错误讯息 01/01 15:56
3F：→ soyoso: 如原po是希望g5:k5、g7:k7、g9:k9...分别剪下贴入a5、a7、 01/01 16:04
4F：→ soyoso: a9...的话，for j=....next j 的方面则不用写 01/01 16:04
5F：→ soyoso: 以range("a" & s).select，下接paste的部分 01/01 16:05
感谢解说
※ 编辑: Ibrahimovic (111.254.8.8), 01/02/2018 16:31:12