当前位置:首页 > 教育 > 正文

神奇的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使用演示图

你可能想看:

有话要说...

取消
扫码支持 支付码