国产探花免费观看_亚洲丰满少妇自慰呻吟_97日韩有码在线_资源在线日韩欧美_一区二区精品毛片,辰东完美世界有声小说,欢乐颂第一季,yy玄幻小说排行榜完本

首頁(yè) > 辦公 > Excel > 正文

Excel表格如何批量隔行插入N行?

2019-12-13 07:57:24
字體:
來(lái)源:轉(zhuǎn)載
供稿:網(wǎng)友

大概兩種方法:

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

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

vba代碼方法

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

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

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

隔兩行插入一行,從第一行開(kāi)始。

打開(kāi)該文檔,開(kāi)發(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

    Next

End Sub

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

由于wps不開(kāi)放此功能,運(yùn)行時(shí)易出現(xiàn)崩潰。但不影響。出錯(cuò)的話再次運(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.php?mod=viewthread&tid=470603&page=1#pid3075178學(xué)習(xí)一下

間接的方法

1、定位-插入法

如:每個(gè)兩行插入一行

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

如果在1上加一個(gè)空格再向下拉,會(huì)出現(xiàn): 空 1 空  2  空 3 ...

如果在1上加兩個(gè)空格再向下拉,會(huì)出現(xiàn): 空空 1 空空  2  空空 3 ...

其他類推。。

如圖:

2、之后選中此輔助列,Ctrl+G 定位常量,在被選中的單元格上右鍵插入1列即可

3、還有一個(gè)方法,局限性太大。了解一下即可。

利用數(shù)值大小排序而間接的插入

如:每個(gè)一行插入一行

在輔助列拖出135..246..

排序-擴(kuò)展到其他列即可

發(fā)表評(píng)論 共有條評(píng)論
用戶名: 密碼:
驗(yàn)證碼: 匿名發(fā)表
主站蜘蛛池模板: 郧西县| 紫云| 广饶县| 海晏县| 望都县| 吴川市| 嘉义市| 延津县| 逊克县| 印江| 平泉县| 永顺县| 阜新市| 麻栗坡县| 呼伦贝尔市| 长葛市| 贺兰县| 石泉县| 德昌县| 巴塘县| 涟源市| 元江| 那曲县| 柘城县| 灵石县| 沭阳县| 合水县| 汉沽区| 沂南县| 永仁县| 广河县| 康平县| 陆川县| 靖西县| 谷城县| 高要市| 柘荣县| 青海省| 云南省| 颍上县| 沙河市|