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