作者yen0411 (...)
看板Visual_Basic
标题Re: [VBA ] excel 插入列的问题
时间Wed Apr 22 23:00:28 2009
※ 引述《MOONRAKER (㊣乌笨秃，又笨又秃)》之铭言：
: ※ 引述《johnisaboy (嘎抓强)》之铭言：
: : 你可以试试看这个
: 一执行就错误「型态不符合」，试也别想试。
: 我倒也有一个写法。
: for i=5 to 2 step -1 ' 1-5列间每两列间加两行，其实是在 2 到 5 列插入
: for j=1 to 2 ' 这个 2 表示每次插入两列
: rows(i).insert
: next j
: next i
: 这个 for i=5 to 2 step -1 是有道理的，一定要从下往上做，
: 不相信你可以把他改成 for i=2 to 5 看看结果。
:
感谢上面热心的版友，根据强者我朋友的程式
然後我再把程式码更简化一点，写出的程式如下：
有更好的写法欢迎讨论唷
Sub Fund_additem()
co = 0
For i = 1 To 100 Step 5
num = i + 1 + co
For j = num To num + 4
Rows(j).Select
Selection.insert Shift:=xlDown
Next j
co = co + 1
Next i
End Sub
--
※ 发信站: 批踢踢实业坊(ptt.cc)
◆ From: 115.165.248.12
1F：→ Peruheru:这个做法还真是... 04/22 23:15
2F：→ Peruheru:倒着数程式比较好看啊，一次数五格实在也... 04/22 23:15
3F：→ yen0411:嗯，没想到用倒着数，上了一课XD 04/22 23:17
4F：→ Peruheru:不过这也是写程式的创意就是了，能有结果就好了 04/22 23:17
5F：→ Peruheru:倒数就参考Moon网友的做法 04/22 23:18
6F：→ yen0411:我有看到M大的程式了，程式码比较精简比较好，感恩啊 04/22 23:20