錦子老師

在Excel工作表中，經常會遇到資料範圍中存在空白儲存格的情況。在對這樣的工作表進行編輯處理時，有時需要將包含這種空白儲存格的列刪除掉。對於包含大量資料的工作表，使用VBA程式來完成這種刪除操作是一種快捷的方法。

本單元介紹快速刪除Excel工作表中包含空白儲存格的列的方法。

啟動Excel並打開524.XLSX活頁簿。

點取「工作表1」工作表，在該工作表的資料範圍中存在空白儲存格，如下圖所示。

按ALT+F11開啟 Microsoft Visual Basic For Applications 編輯器輸入如下程式碼：

Sub DeleteRow()

Dim n, i As Integer

  For n = 1 To 12

    For i = 1 To 36

      If Cells(i, n) = "" Then

          Rows(i).Delete

      End If

    Next

  Next

End Sub

點取「關閉」鈕或是按ALT +F4 將「Microsoft Visual Basic For Applications 」視窗關閉。

回到Excel工作表，點取「檢視 > 巨集 > 巨集 > 檢視巨集」指令，如下圖所示，開啟「巨集」對話方塊。

點取「Deleterow」巨集項目。

點取「執行」鈕。

執行結果如下圖所示，所有空白儲存格所在列全部被刪除。