Excel作为我们日常工作中必不可少的办公软件，它的强大的数据处理能力能帮组我们大大地提高工作效率，特别是Excel2007之后的excel版本增加了很多人性化的功能，例如可以通过颜色进行筛选等。其实在Excel后期版本中的这些功能在Excel2003中同样是可以使用VBA来方便地实现的，你只需要输入一段小小的VBA代码。
        假如你在公司使用的是Excel2003，那下面的技巧将帮你做到快速删除表格中的所有空白行。如果你的表格中有大量空白行，一行行地去删显然是非常费时费力的。

为什么不能通过筛选来删除空白行

         这是因为如果表格数据中出现空白行，Excel会将空白行及之后的数据排除在连续数据源之外，所以筛选就不能选中第一个空白行之后的内容了，也就无法实现一次性筛选出空白行并执行删除。

编写一段VBA可快速删除所有空白行 

1、按Alt+F11调出VBA编辑器。

2、点击下图中的按钮，插入一个模块，在左边的窗口输入代码。

 
                  Sub DeleteBlankRow()
                         Dim i As Integer
                         Dim Lastrow As Integer
                         Lastrow = Cells(65536, 2).End(xlUp).Row
                         For i = Lastrow To 1 Step -1
                                If IsEmpty(Cells(i, 2)) Then
                                        Rows(i).Delete
                                End If
                         Next i
                   End Sub

 

      3、回到Excel界面，确定需要删除空白行的表格处于激活状态，即Excel窗口当前显示的是该Sheet。
            4、回到VBA编辑器，将鼠标放在代码区任意位置，然后按下F5，运行代码。注意因为代码中没有指定sheet名称，默认为当前的sheet，如果你在其他sheet执行了代码将造成误操作。

        5、程序自动执行删除空白行的操作。