1樓：匿名使用者
sub charuhang()
'你所說的假設選中哪一列，其實，插入行和選中的列不相關，'有用的資訊是你所選中的行——起止行號
start = inputbox("請輸入要插入行的起始行號：", , 3)
end = inputbox("請輸入要插入行的終止行號：", , 26)
h = inputbox("請輸入要插入行數：", , 2)for i = end to start step -1rows(i + 1 & ":" & i + 1).
selectfor j = 1 to h
selection.insert shift:=xldownnext
next
end sub張志晨
2樓：匿名使用者
sub charuhang()
j = 2 '即插入1行，若插入兩行，則j=2....
for i = 3 to 26
rows(30 - i & ":" & 30 - i).selectfor k = 1 to j
selection.insert shift:=xldownnext k
next i
end sub
excel中如何批量加入「-」？
3樓：龍緣之戀
excel中批量bai
加入「-」步驟如下：
一、du開啟你的zhi**，比如想插dao入10行「-」，那麼在你專想插入行的地方往下選中10行。屬
二、注意是選中行序號那裡選中全行，然後右擊，選擇插入「-」：
三、確認就可以看到在你開始選中的地方插入了10行。
excel 可否用vba一次插入多行
4樓：平陽虎
sub 插入空行()
sheets("sheet1").activaterange("6:25").insert shift:=xldownend sub
5樓：匿名使用者
雙擊按鈕，進入vb編輯器，將下面**貼上進去
sheets("sheet2").rows("6:25").insert shift:=xldown
sheet2是工作表名，你可以換成自己的
6樓：匿名使用者
當然可以！給你個簡單的。
vba**：
sub insertdata()
for i = 6 to 25
sheets("sheet1").rows(i).insertnext
range("a6:a25") = 1
end sub
說明：sheets("sheet1")中「sheet1」替換為你要新增資料的表名
range("a6:a25")中a6:a25中的「a」替換為你要新增資料的列
請問如何用VBA將EXCEL檔案中的資料複製到別EXCEL檔案相同的位置
sheet1的區域a1 c3拷貝到sheet2的區域a1 c3 sheet1.range a1 c3 copy sheet2.range a1 c3 丙雅弘雨凝 sub aaa dim sh1 as worksheet dim sh2 as worksheet set sh1 workbooks 1...
請問如何用excel的VBA做出，從1 20中任取數的所有組合，總共是125970種，求高手支招，萬謝
如果你只是需要結果的話，可以用函式 combin 20,8 直接求的結果，如果真是要用vba實現的話按照 tat蘿蔔說的做就行了，完善如下 sub zuhe dim times as double for i1 1 to 13 for i2 i1 1 to 14for i3 i2 1 to 15fo...
excel中如何編寫vba判斷迴圈多行單元格數值及賦值
太極健 你的判斷是為0而不是為空，如果是判斷為空，迴圈如下 sub test i range a65536 end xlup row 判斷a列最後一行的行號 for x 1 to i 建立迴圈從第一行到最後一行if cells x,1 0 then cells x,6 cells x,1 cells...