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

1、用微软的office或者wps的Excel都行。微软的自带有，wps的去网上下载vba插件即可

3、插入-模块：上代码：Sub 每隔两行插入一行()Dim iFor i = 1 To Sheet1.Range("a3000").End(3).Row * 3 Rows(i & ":" & i + 0).Selecti = i + 2 Selection.Insert Shift:=xlDown NextEnd Sub

5、代码解释：For i = 1 中的1是指从第1行插入空白行。Rows(i & ":" & i + 0).Selecti = 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学习一下