国产探花免费观看_亚洲丰满少妇自慰呻吟_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ā)表
主站蜘蛛池模板: 怀集县| 德昌县| 孝感市| 桃园市| 长阳| 周至县| 阳原县| 仙居县| 岑巩县| 正安县| 湖南省| 博兴县| 西乌| 云阳县| 德兴市| 台湾省| 滁州市| 江孜县| 高密市| 土默特左旗| 荔波县| 奉节县| 慈利县| 安图县| 桐庐县| 梅河口市| 延吉市| 临湘市| 德清县| 华阴市| 岑溪市| 新邵县| 寿阳县| 什邡市| 南通市| 邵阳县| 黄浦区| 惠州市| 霍州市| 新营市| 宜良县|