在数据统计与分析过程中，由于各种原因如记录的添加、删除以及数据表的合并等操作，经常会在表格中出现一些多余空行。这些空行的存在既影响了美观，同时也影响了数据分析的结果。如果一行行地手工删除，费时费力。借助功能强大的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 。除了可以用工具栏按钮实现一键删除的或能，另外还可以将该宏指定给一个自定义的右键菜单，这亲呆以一劳永逸了。（转载）
[平面设计]Flash动作脚本Actiong之数学Math数学函数、MovieC… [平面设计]Flash动作脚本Actiong之属性、数组、Color颜色、D… [平面设计]Flash动作脚本Actiong之操作符及函数全集 [平面设计]Flash动作脚本Actiong之基本脚本及其他脚本全集 [网页制作]IE禁止使用右键、当前的脚本发生错误等六大问题的… [常用软件]注意AdobeReader现跨站脚本漏洞
注：本站部分文章源于互联网，版权归原作者所有！如有侵权，请原作者与本站联系，本站将立即删除！ 本站文章除特别注明外均可转载，但需注明出处！ [MinTao学以致用网] 
