神奇的VBA系列-003：报表插入空白行

一段简单的VBA代码，让你自如操作Excel！

抛砖引玉的场景：下面介绍的是一个职场中经常使用的功能，将报表中数据按照A列数据的不同插入空行以区分。

代码示例

在标准模块中加入如下代码即可实现上面的演示功能。

Sub插入空行()
OnErrorResumeNext
DimnAsLong
Forn=Range("B65536").End(3).RowTo2Step-1
IfCells(n,"A")<>Cells(n-1,"A")AndCells(n,"A")<>""Then
Cells(n,"A").EntireRow.InsertShift:=xlDown
Rows(n).Interior.Color=xlNone
Rows(n).RowHeight=15
EndIf
Next
EndSub

动手试一试，屏幕前的你， 复制代码运行下吧~~！

有关Excel VBA编程知识（职场牛人必备秘技），可下载安装使用职场人必备的工具《神奇的VBA》插件，一款嵌入进Excel Ribbon界面，打开任意Excel工作簿就能随时查阅学习VBA编程的Excel 插件。

插件下载地址戳链接：《神奇的VBA》-职场牛人都在使用的Excel插件

《神奇的VBA》选项卡样式

神奇的VBA使用演示图