《神奇的VBA》编程：报表插入空白行

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

“插入空白行”是笔者当年进入VBA世界的敲门功能， 笔者当年所在的外企每天要处理数万行工程项目订单数据， 通过判断订单号的不同将数据分隔开然后打印非常便于阅读。笔者后来发布的《Power Click》插件，也收录了该功能。

    Power Click插件发布-开放下载！

下面分享报表隔行操作的代码示例。

示例：将报表中数据按照A列数据的不同插入空行以区分。

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

• 
  

• 
  

• 
  

• 
  

• 
  

• 
  

• 
  

• 
  

• 
  

• 
  

• 
  

Sub 插入空行()On Error Resume NextDim n As LongFor n = Range("B65536").End(3).Row To 2 Step -1 If Cells(n, "A") <> Cells(n - 1, "A") And Cells(n, "A") <> "" Then Cells(n, "A").EntireRow.Insert Shift:=xlDown Rows(n).Interior.Color = xlNone Rows(n).RowHeight = 15 End IfNextEnd Sub

代码很简单， 综合运用了For...Next遍历语句和If...Then结构的逻辑判断语句和单元格区域对象的Range方法。

有兴趣复制上面代码运行一下，顺带思考下，在上面示例的基础上，怎么样每运行一次，自增一个空行。