|
在数据统计与分析过程中,由于各种原因如记录的添加、删除以及数据表的合并等操作,经常会在表格中出现一些多余空行。这些空行的存在既影响了美观,同时也影响了数据分析的结果。如果一行行地手工删除,费时费力。借助功能强大的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 。除了可以用工具栏按钮实现一键删除的或能,另外还可以将该宏指定给一个自定义的右键菜单,这亲呆以一劳永逸了。(转载)
相关文章
|