PTT數位生活區 / Visual_Basic

[VBA ]連續插入欄

看板Visual_Basic作者 (Mark)時間8年前 (2016/09/22 21:51), 8年前編輯推噓2(2推 0噓 1→)
留言3則, 2人參與, 最新討論串1/1
如圖所示，想要每隔一欄就新增一個空白欄 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
推
09/22 22:08, , 1F
for a= 504 to 1 step -1 試試
09/22 22:08, 1F
→ MOONRAKER: 對要倒過來 09/23 01:44 更改了之後出現執行階段錯誤 1004 為了避免可能的資料遺失，excel無法將非空白儲存格移出工作表。 工作表仍變成空白的qq 求救 ※ 編輯: markbaseball (220.134.100.206), 09/23/2016 16:17:32
推
09/24 11:09, , 2F
a=a+1要拿掉
09/24 11:09, 2F
→
09/24 13:56, , 3F
感謝^^
09/24 13:56, 3F
‣ 更多 markbaseball 的文章
文章代碼(AID): #1Nu-7HTp (Visual_Basic)
Visual_Basic 近期熱門文章
更多 近期熱門文章 >>
PTT數位生活區 即時熱門文章
更多 即時熱門文章 >>
‣ 更多 markbaseball 的文章
文章代碼(AID): #1Nu-7HTp (Visual_Basic)