作者markbaseball (Mark)
看板Visual_Basic
標題[VBA ]連續插入欄
時間Thu Sep 22 21:51:10 2016
如圖所示，想要每隔一欄就新增一個空白欄
http://imgur.com/rgr7WV2 原本形式
http://imgur.com/8NPJnoc 新增空白欄
Sub aa()
Dim a As Integer
For a = 1 To 504
a = a + 1
Columns("a:a").Select
Selection.Insert Shift:=xlToRight, CopyOrigin:=xlFormatFromLeftOrAbove
Next a
End Sub
請問各位大大 該如何修改呢?
目前程式碼執行後，只會把活頁簿變成空白
--
※ 發信站: 批踢踢實業坊(ptt.cc), 來自: 220.134.100.206
※ 文章網址: https://webptt.com/m.aspx?n=bbs/Visual_Basic/M.1474552273.A.773.html
1F：推 hulapig: for a= 504 to 1 step -1 試試 09/22 22:08
→ MOONRAKER: 對要倒過來
09/23 01:44
更改了之後出現執行階段錯誤 1004
為了避免可能的資料遺失，excel無法將非空白儲存格移出工作表。
工作表仍變成空白的qq 求救
※ 編輯: markbaseball (220.134.100.206), 09/23/2016 16:17:32
2F：推 hulapig: a=a+1要拿掉 09/24 11:09
3F：→ markbaseball: 感謝^^ 09/24 13:56