Excel 如何隔行插入空行 之 VBA实现
上篇文章Excel 如何隔行插入空行 之 操作实现从操作层面，介绍了如何实现隔行插入空行。本文续分享VBA如何实现之。follow me…
直接上代码，文章末尾附有实例下载。
Sub insertrow()
Application.ScreenUpdating = False ‘关闭屏幕更新,提高代码执行效率
I = [A65536].End(xlUp).Row ‘取得非空单元格行号
Rows(I + 1).RowHeight = 14.25 ‘设定插入空行行高为14.25,数字可修改
For I = [A65536].End(xlUp).Row To 1 Step –1 ‘执行循环
Rows(I).Insert Shift:=xlDown ‘执行插入
If I <> 1 Then
Rows(I).RowHeight = 14.25
End If
Next
Application.ScreenUpdating = True ‘打开屏幕更新
End Sub
操作方法：按ALT+F11直接进入VBA编辑器，在当前工程下新建模块（【插入】-【模块】），在代码窗口将上以代码复制过去并保存。
需要执行隔行插入空行，直接运行子过程insertrow()即可。（快捷键F5）
代码分析如注释。
为防误操作插入不符合条件的空行,这里也附上删除空行的VBA代码:
Sub deleterow()
Application.ScreenUpdating = False
Dim RowN As Integer
For RowN = 1 To 20 ’20 视数据行进行更换
If ActiveSheet.Cells(RowN, 1).Value = “” Then
ActiveSheet.Cells(RowN, 1).Select
Selection.EntireRow.Delete
End If
Next
Application.ScreenUpdating = True
End Sub
此模一起封在实例中,下载实例请点这里
这个比较经常用到
确是，现在也有很多EXCEL插件集成了此功能。
好多关于excel的东西哦~
…Sharing Excel Technology… 当然会以Excel为主了。