怎样在excel中批量插入空行？如：每行的基本信息是身份证号码、姓名等，怎样在每个人的信息下插入3个空行

Question

如题所述

Answer 1

Sub 插三行()
Do While ActiveCell <> ""
ActiveCell.Offset(1, 0).Resize(3, 1).EntireRow.Insert shift:=xldowm
ActiveCell.Offset(4, 0).Select
Loop
End Sub

用这段代码即可，把光标放在哪就从哪行的下面开始插入。遇到空单元格即停止。如果不会用就HI我

Answer 2

理解你要做什么了。
1、用word邮件合并打印吧。
2、在excel中可以用vba来实现。
3、还可以用排序的办法来实现。
（插入一列，添加序号，然后在最末序号后的下面单元依次输入序号111222333444555……为了加快输入可以用=a248+1的办法设置，然后复制——粘贴……，再选择性粘贴全部，转成数值后，在排序）