当前位置: > 热议

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

时间:2022-04-21 09:26:40 热议 我要投稿

一段简单的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使用演示图

最新推荐