VBA脚本 快速删除Excle表格中的空行

在数据统计与分析过程中，由于各种原因如记录的添加、删除以及数据表的合并等操作，经常会在表格中出现一些多余空行。这些空行的存在既影响了美观，同时也影响了数据分析的结果。如果一行行地手工删除，费时费力。借助功能强大的OFFICE VBA，就可以轻松地删除了。
一、先创建一个宏，宏名为DelNullRow,代码如下：
        Sub DelNullRow
        Dim b,c As Integer
        Dim a As Range
        For b=1 To Range(“b65536”).End(xlUp).Row
        k=0:Set a=Cells(b,1)
'测试该行的连续4个列的值是否为空（用户可按要求指定该数字）
        For c=1 To4
        If Cells(b,c)=”” Then k=k+1
        Next c
'如果该行连续4个单元格的为空，则删除该行
        If k=4 Then
            a.EntireRow.delete shift:=xlUp
        End If
        Next b
        End Sub
二、说明：
自定义一个工具栏，右击将创建的宏指定给该按钮。同时可以更改按钮命名和图像，另外可根据需要指定测试某行空值单元格个数的大小，然后将基见删除，甚至可以指定为整列的宽度cells(xlright).columns 。除了可以用工具栏按钮实现一键删除的或能，另外还可以将该宏指定给一个自定义的右键菜单，这亲呆以一劳永逸了。（转载）