一键删除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 To 4
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。除了可以用工具栏按钮实现一键删除的功能，另外还可以将该宏指定给一个自定义的右键菜单，这样就可以一劳永逸了。