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問題，關於EXCEL裡面VBA問題
if optionbutton3.value true then 計算結果 fv 年利率 年計息次數,年計息次數 期限,金額,0,計息時間 else if optionbutton4.value true then 計算結果 pv 年利率 年計息次數,年計息次數 期限,金額,0,計息時間 金額放錯位...
用vba怎樣取excel中的一列在將提取的資料放到另sh
用我這個，sub aa range a1 a5 copy sheet2.range a1 pastespecial xlpasteall,true range a1 a5 clear 用來刪除複製的區域，如果區域需要保留，就把這句刪掉 end sub dim xsht1 as worksheetdi...
Excel裡面的格式刷怎麼用，excel裡面的格式刷怎麼用
方法 步驟 首先我們來看看格式刷工具在那個地方 在 開始 選單下的 剪貼簿 內 然後講下格式刷工具的使用方法。它有兩種使用方法 第一種 單擊格式刷工具。選擇你已經設定好的單元格，比如看下面的圖，我選擇的是e148這個單元格，也就是 張三 的銷售量。然後單擊 格式刷工具 這會游標會變成一個 小刷子 的...