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