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

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

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

2、举例（wps）：在1到10

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

打开该文档，开发工具-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、点击运行即可。

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

效果如图：

5、代码解释：

For i = 1 中的1是指从第1行插入空白行。

Rows(i & ":" & i + 0).Select

i = i + 2

其中黑体字的0和2之差是2，意思是隔2行插入..

Sheet1.Range("a3000").End(3)：

这行代码的意思是获得A列非空单元格的行号，大白话就是A列的内容到第几行。

想了解更多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 ...

其他类推。。

如图：

2、之后选中此辅助列，Ctrl+G 定位常量，在被选中的单元格上右键插入1列即可

3、还有一个方法，局限性太大。了解一下即可。

利用数值大小排序而间接的插入

如：每个一行插入一行

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

排序-扩展到其他列即可