1樓：匿名使用者
sub insert()
dim i as long
for i = range("a65536").end(xlup).row to 2 step -1 '終止行到起始行
rows(i).resize(3).insert ' 3 為要插入的行數
next
end sub
sub insert()
dim i as long
for i = usedrange.rows.count to 2 step -1 '終止行到起始行
rows(i).resize(3).insert ' 3 為要插入的行數
next
end sub
2樓：匿名使用者
sub kk()
lastrow = worksheets("工作表名稱").usedrange.specialcells(xlcelltypelastcell).row
dim i as integer
for i = 1 to lastrow
rows(i * 4 - 2).resize(3).insertnext
end sub
已測試通過．
說明：（i*4-2）表示從第2行開始插入空格行，如從第3行開始插入空格行則用：：（i*4-1）
3樓：匿名使用者
sub 插入空行()
dim i, irow as integerirow = range("a65536").end(xlup).row
for i = 1 to irow - 1range("a" & (4 * i - 2) & ":c" & (4 * i)).entirerow.
insert shift:=xlshiftdown
next i
end sub
其中，a65536根據實際情況，選擇某列作為基準列，原則該列組後一行即為記錄的最後一行即可。
excel用vba巨集中用for迴圈將一列滿足條件的後面加上需要的數值比如
直接寫個公式就可以了。假如你那個1在的列是b，在c裡寫公式if b1 1,a 空 然後填充就可以了。如果一定要用vba,那就讀出來單元格的內容，然後根據內容填充就可以了。sub aaa for i 1 to range a65536 end xlup row if cells i,1 張 and c...
excel用VBA寫從1加到100的程式
你好，很高興為你回答這個問題。樓上的回答也很好，這裡我提供另一種思路,各位大佬自行比較。sub fillingexample dim i for i 1 to 100 cells i,1 value 1 i 2 i next end sub sub sumexample dim i dim resu...
excel利用VBA自動填充公式
a表資料輸入後通過vba過入到b表，一次有n行，b表中c e列有公式，公式太複雜，無法通過vba直接輸入，只能填充，如何通過vba選中b表c e列的m至m n行，如何填充公式，因為目前無法確定會使用多少行資料，所以不想預先拉很多行公式。謝謝 sheets 交易記錄列表 activaterange c...