首页 > excel > 正文

Excel表格批量隔行插入N行的方法

卡饭网 梦在深巷 2017-02-21 19:16:43

   Excel表格批量隔行插入N行的方法

  1,是利用辅助数字行,定位插入或者排序。间接插入

  2,vba,执行几行代码就是了,不需要懂代码,复制代码-执行就行

  vba代码方法

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

  微软的自带有,wps的去网上下载vba插件即可

Excel表格批量隔行插入N行的方法

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

  隔两行插入一行,从第一行开始。

  打开该文档,开发工具-vb编辑器

Excel表格批量隔行插入N行的方法

  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

Excel表格批量隔行插入N行的方法

  4、点击运行即可。

  由于wps不开放此功能,运行时易出现崩溃。但不影响。出错的话再次运行即可。适合数据量比较大的情况。

  效果如图:

Excel表格批量隔行插入N行的方法

  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学习一下

  间接的方法

  1、定位-插入法

  如:每个两行插入一行

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

  如果在1上加一个空格再向下拉,会出现: 空 1 空 2 空 3 ...

  如果在1上加两个空格再向下拉,会出现: 空空 1 空空 2 空空 3 ...

  其他类推。。

  如图:

Excel表格批量隔行插入N行的方法