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根據實際情況，選擇某列作為基準列，原則該列組後一行即為記錄的最後一行即可。
請懂VBA的朋友幫我用VBA在excel裡面編寫個計算器，只要加法的就可以了
private sub worksheet selectionchange byval target as range if f6 then exit sub static temp static w,j r1 target.row c1 target.column if r1 2 and r1 7...
ecel用vba時出現執行錯誤，excel用vba時出現執行錯誤6 溢位，請幫忙看下我的程式是不是有問題
dim語句中的integer都改為bailong，因為integer正數最大為du32767 另外，大量迴圈應zhi該考dao 慮將 讀入陣列，用陣列參 內與迴圈，提高 容速度。比如使用語句 a1 worksheets 樣本1 usedrange 則生成a1陣列，a1 i,1 就相當於cells i...
求EXCEL用VBA的IF條件語句與FOR迴圈語句的基本語法，不要複製貼上，要最簡單說明下就行了
最簡單的來兩句，不明白請追問 for的用法是這樣的 for i 1 to n 語句.next i 這樣的功能是，使裡面的 語句 執行n次，每次i的值都不同，分別是1 n，用來完成固定次數的重複。if的用法是這樣的 if 條件 then 語句1.else 語句2.end if 這樣的功能是判斷條件是否...