VBA請問在EXCEL中如何批量插入行

時間 2021-06-26 18:49:35

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”替換為你要新增資料的列

在excel中如何使用vba的巨集

陽光上的橋 保護公式可以這樣 選擇不需要保護 需要錄入內容 的單元格,設定單元格屬性,最後一個 保護 卡里面的 鎖定 取消,其它那些沒有取消鎖定的有公式的單元格自然是鎖定狀態。下一步是在工具 審閱 新版本 或者 工具 選單 舊版本 裡面選擇 保護工作表 設定一個密碼後確認。完成這兩步之後,鎖定的單元...

VBA中如何定義文字型變數,Excel 在VBA中怎麼定義字串變數

物件就是的賦值,必需使用set語句 public sub 測試 dim dyg as range set dyg range b2 end sub 你完全可以不用定義為單元格物件,直接賦值就行了public sub 測試 dim dyg 定義字串變數 dyg range b2 end sub 參考下...

VBA中RANGE如何引用變數,excel VBA中 Range函式將列作為變數怎麼表示?

庹甜恬 一項技能的學習過程中,最難的有兩個時間段,沒入門前不知道怎麼學,入門後不知道怎麼快速提高。反而當技術提高到一個層次後,能融會貫通,再看什麼都不那麼難了。我們每天講解一個vba的一個知識點,我們一起學習,共同進步。我們都知道range物件是excel應用程式中最常用的物件,一個range物件代...