快速删除Exce工作表中包含空白单元格的行

1、启动Excel并打开工作表，在该工作表的数据区域中存在空白单元格，如图1所示。在Visual Basic编辑器的工程资源管理器中插入一个模块，在模块的“代码”窗口中输入如下程序代码：

Sub DeleteRow()

Dim n,i As Integer

For n=1 To 7

For i=1 To 20

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

Next

Next

End Sub

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

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

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