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