Re: [VBA ] excel 插入列的問題

[yen0411 (...)]

※ 引述《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
→ Peruheru:這個做法還真是...
→ Peruheru:倒著數程式比較好看啊，一次數五格實在也...
→ yen0411:嗯，沒想到用倒著數，上了一課XD
→ Peruheru:不過這也是寫程式的創意就是了，能有結果就好了
→ Peruheru:倒數就參考Moon網友的做法
→ yen0411:我有看到M大的程式了，程式碼比較精簡比較好，感恩啊