阅读本文前，请您先点击上面的蓝色字体，再点击“ 　　1、启动Excel并打开工作表，在该工作表的数据区域中存在空白单元格，如图1所示。在VisualBasic编辑器的工程资源管理器中插入一个模块，在模块的“代码”窗口中输入如下程序代码：

　　SubDeleteRow()

　　Dimn,iAsInteger

　　Forn=1To7

　　Fori=1To20

　　Cells(i,n).SpecialCells(xlCellTypeBlanks).EntireRow.Delete

　　Next

　　Next

　　EndSub

　　图1　数据区域存在空白单元格

　　2、按F5键运行程序，切换到Excel工作表，数据区域中空白单元格所在的行被删除，如图2所示。

　　图2　数据区域中空白单元格所在的行被删除

免责声明：我们致力于保护作者版权，注重分享，被刊用文章因无法核实真实出处，未能及时与作者取得联系，或有版权异议的，请联系后台，我们会立即处理，本文部分文字与图片资源来自于网络，转载此文是出于传递更多信息之目的,若有来源标注错误或侵犯了您的合法权益，请立即通知我们，情况属实，我们会第一时间予以删除，并同时向您表示歉意,谢谢