如何刪除Excel工作表中包含空白單元格的行

在Exce工作表中，經常會遇到數據區域中存在空白單元格的情況。在對這樣的工作表進行編輯處理時，有時需要將包含這種空白單元格的行刪除掉。對于包含大量數據的工作表，使用VBA程序來完成這種刪除操作是一種快捷的方法。本文介紹快速刪除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　數據區域中空白單元格所在的行被刪除