Excel表格批量隔行插入N行的方法是什么?

2023-06-07 分類：網(wǎng)絡(luò)百科閱讀(45) 評論(0) 贊(0)

　　1，是利用輔助數(shù)字行，定位插入或者排序。間接插入

　　2，vba，執(zhí)行幾行代碼就是了，不需要懂代碼，復(fù)制代碼-執(zhí)行就行

　　vba代碼方法

　　1、用微軟的office或者wps的Excel都行。

　　微軟的自帶有，wps的去網(wǎng)上下載vba插件即可

　　2、舉例(wps)：在1到10

　　隔兩行插入一行，從第一行開始。

　　打開該文檔，開發(fā)工具-vb編輯器

　　3、插入-模塊：

　　上代碼：

　　Sub 每隔兩行插入一行()

　　Dim i

　　For i = 1 To Sheet1.Range(“a3000”).End(3).Row * 3

　　Rows(i & “:” & i + 0).Select

　　i = i + 2

　　Selection.Insert Shift:=xlDown

　　End Sub

　　4、點(diǎn)擊運(yùn)行即可。

　　由于wps不開放此功能，運(yùn)行時易出現(xiàn)崩潰。但不影響。出錯的話再次運(yùn)行即可。適合數(shù)據(jù)量比較大的情況。

　　效果如圖：

　　5、代碼解釋：For i = 1 中的1是指從第1行插入空白行。Rows(i & “:” & i + 0).Selecti = i + 2其中黑體字的0和2之差是2，意思是隔2行插入..想了解更多vba的話去論壇，比如：http://club.excelhome.net/forum. … 3&page=1#pid3075178學(xué)習(xí)一下

　　間接的方法

　　1、定位-插入法

　　如：每個兩行插入一行

　　大家都知道1向下拉是1234..等等，

　　如果在1上加一個空格再向下拉，會出現(xiàn)：空 1 空 2 空 3 …

　　如果在1上加兩個空格再向下拉，會出現(xiàn)：空空 1 空空 2 空空 3 …

　　其他類推。。

　　如圖：