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 。除了可以用工具栏按钮实现一键删除的或能，另外还可以将该宏指定给一个自定义的右键菜单，这亲呆以一劳永逸了。（转载）