[VBA ]連續插入欄

[markbaseball (Mark)]

如圖所示，想要每隔一欄就新增一個空白欄



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://www.ptt.cc/bbs/Visual_Basic/M.1474552273.A.773.html
推 hulapig: for a= 504 to 1 step -1 試試
→ MOONRAKER: 對要倒過來
                            09/23 01:44
更改了之後出現執行階段錯誤 1004
為了避免可能的資料遺失，excel無法將非空白儲存格移出工作表。

工作表仍變成空白的qq 求救
※ 編輯: markbaseball (220.134.100.206), 09/23/2016 16:17:32
推 hulapig: a=a+1要拿掉
→ markbaseball: 感謝^^