Re: [VBA ] excel 插入列的問題
※ 引述《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
→
04/22 23:15, , 1F
04/22 23:15, 1F
→
04/22 23:15, , 2F
04/22 23:15, 2F
→
04/22 23:17, , 3F
04/22 23:17, 3F
→
04/22 23:17, , 4F
04/22 23:17, 4F
→
04/22 23:18, , 5F
04/22 23:18, 5F
→
04/22 23:20, , 6F
04/22 23:20, 6F
討論串 (同標題文章)
本文引述了以下文章的的內容:
完整討論串 (本文為第 4 之 4 篇):