當前位置:首頁 > 教育 > 正文

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

你可能想看:

有話要說...

取消
掃碼支持 支付碼