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

1、啟動(dòng)Excel并打開工作表，在該工作表的數(shù)據(jù)區(qū)域中存在空白單元格，如圖1所示。在Visual Basic編輯器的工程資源管理器中插入一個(gè)模塊，在模塊的“代碼”窗口中輸入如下程序代碼：

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　數(shù)據(jù)區(qū)域存在空白單元格

2、按F5鍵運(yùn)行程序，切換到Excel工作表，數(shù)據(jù)區(qū)域中空白單元格所在的行被刪除，如圖2所示。

圖2　數(shù)據(jù)區(qū)域中空白單元格所在的行被刪除