批量插入空白行的方式不唯一，可以通过排序的方式，定位法插入，也可以通过函数的方式，还能通过VBA自动化实现，本例先主要讲述VBA自动化实现。

首先第一个使用VBA的话，需要注意:

第一个把xlsx格式另存为xlsm格式（文件--另存为--（选中保存位置）--保存类型（Excel启动宏的工作簿））

打开网易新闻 查看精彩图片

第二个：调出开发工具

文件--更多-选项--自定义功能区--开发工具

打开网易新闻 查看精彩图片
打开网易新闻 查看精彩图片

第三个：开发工具--Visual Basic

弹出功能框

打开网易新闻 查看精彩图片

插入--模块

打开网易新闻 查看精彩图片

将下列代码复制到窗口中

Sub insertBlank()

Dim n As Integer

n = Range("a1", Cells(Rows.Count, 1).End(xlUp)).Rows.Count

For i = 2 To 2 * n Step 2

Rows(i).Select

Selection.Insert Shift:=xlDown, CopyOrigin:=xlFormatFromLeftOrAbove

Next

End Sub

打开网易新闻 查看精彩图片

点击保存，关闭窗口

开发工具--宏

打开网易新闻 查看精彩图片

选择执行

打开网易新闻 查看精彩图片

结果

打开网易新闻 查看精彩图片