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