如何在 Excel 中快速刪除多個空白欄？

作者Kelly修改日期2025-04-10

有時當您從網頁、CSV 或文字檔將資料匯入 Microsoft Excel 時，可能會出現大量空白欄位。逐一刪除這些空白欄不僅耗時，還相當費力。因此，許多人會尋求更有效率的解決方式。本文整理了幾項實用技巧，助您快速刪除多個空白欄。

使用公式在工作表中刪除多個空白欄

使用 VBA 程式碼在工作表中刪除多個空白欄

使用 Kutools for Excel 在選擇區域 / 當前工作表 / 整個活頁簿中刪除多個空白欄

使用 VBA 程式碼刪除含標題的多個空白欄

使用公式在工作表中刪除多個空白欄

在 Excel 中，您可以套用公式判斷欄位是否為空白，再透過排序功能將所有空白列集中，一次刪除。請依照下列步驟操作：

1. 在您的數據區域頂端新增一列，如下方截圖所示：

2. 接著在儲存格 A1 輸入下列公式，然後向右拖曳填滿控點，將公式套用至其他儲存格。若該欄為空白，則顯示 TRUE；否則顯示 FALSE，如下方截圖所示：

=COUNTA(A2:A1048576)=0

3. 接著選取包含輔助列的數據區域，然後按一下「資料」>「排序」，如下方截圖所示：

4. 在彈出的「排序」對話方塊中，按一下「選項」按鈕，在「排序選項」對話方塊中選擇「由左至右排序」選項，如下方截圖所示：

5. 按一下「確定」返回「排序」對話方塊，然後從「排序依據」下拉式清單中選擇「第 1 列」，在「排序方式」區段選擇「儲存格值」，並在「順序」區段選擇「大到小」，如下方截圖所示：

6. 此時，所有空白欄都會被排序至資料左側，您只需選取這些欄，然後按一下滑鼠右鍵，選擇「刪除」即可一次刪除這些空白列，如下方截圖所示：

使用 VBA 程式碼在工作表中刪除多個空白欄

若您想使用 VBA 巨集，操作將更加輕鬆！以下 VBA 程式碼可協助您順利完成此任務，請依照下列步驟操作：

1. 在 Excel 中按下「Alt + F11」，即可開啟「Microsoft Visual Basic for Applications」視窗。

2. 按一下「插入」>「模組」，並將下列巨集貼上至模組視窗中。

VBA 程式碼：在選取範圍中刪除多個空白列：

Sub DeleteEmptyColumns()
'Updateby Extendoffice
Dim rng As Range
Dim InputRng As Range
xTitleId = "KutoolsforExcel"
Set InputRng = Application.Selection
Set InputRng = Application.InputBox("Range :", xTitleId, InputRng.Address, Type:=8)
Application.ScreenUpdating = False
For i = InputRng.Columns.Count To 1 Step -1
    Set rng = InputRng.Cells(1, i).EntireColumn
    If Application.WorksheetFunction.CountA(rng) = 0 Then
        rng.Delete
    End If
Next
Application.ScreenUpdating = True
End Sub

3. 按下 F5 鍵執行此巨集，在彈出的對話方塊中選取您需要的工作範圍，如下方截圖所示：

4. 按一下「確定」，選取範圍內的所有空白欄即會被移除，如下方截圖所示：

使用 Kutools for Excel 在選擇區域 / 當前工作表 / 整個活頁簿中刪除多個空白欄

Kutools for Excel 的「刪除隱藏行/列」功能，可協助您快速一次移除多個空白列或欄。

Kutools for Excel 提供超過 300 項進階功能，簡化複雜作業，提升創造力與效率。整合 AI 功能，Kutools 能精準自動化各項任務，讓資料管理輕鬆無負擔。Kutools for Excel 的詳細資訊…… 免費試用……

安裝 Kutools for Excel 後，請依下列步驟操作：

1. 按一下「Kutools」>「刪除」>「刪除隱藏行/列」，如下方截圖所示：

2. 在「刪除隱藏行/列」對話方塊中，從「搜尋範圍」下拉式清單指定要套用此操作的範圍。（若選擇「選取區域」，請先選取欲使用的範圍。）接著於「刪除類型」中勾選「欄」，並從「詳細類型」選取「空白列」，如下方截圖所示：

3. 接著按一下「確定」，空白列即會從選擇區域中刪除，如下方截圖所示：

使用 VBA 程式碼刪除含標題的多個空白欄

有時您可能希望刪除工作表中僅包含標題的空白欄，以下 VBA 程式碼可協助您達成此目的，請依下列步驟操作：

1. 在 Excel 中按下並按住「Alt + F11」，即可開啟「Microsoft Visual Basic for Applications」視窗。

2. 按一下「插入」>「模組」，並將下列巨集貼上至模組視窗中。

VBA 程式碼：刪除所有含標題的空白欄

Sub deleteblankcolwithheader()
'updateby Extendoffice
    Dim xEndCol As Long
    Dim I As Long
    Dim xDel As Boolean
    On Error Resume Next
    xEndCol = Cells.Find("*", SearchOrder:=xlByColumns, SearchDirection:=xlPrevious).Column
    If xEndCol = 0 Then
        MsgBox "There is no data on """ & ActiveSheet.Name & """ .", vbExclamation, "Kutools for Excel"
        Exit Sub
    End If
    Application.ScreenUpdating = False
    For I = xEndCol To 1 Step -1
        If Application.WorksheetFunction.CountA(Columns(I)) <= 1 Then
            Columns(I).Delete
            xDel = True
        End If
    Next
    If xDel Then
        MsgBox "All blank column(s) with only a header row have been deleted.", vbInformation, "Kutools for Excel"
    Else
        MsgBox "There are no Columns to delete as each one has more data (rows) than just a header.", vbExclamation, "Kutools for Excel"
    End If
    Application.ScreenUpdating = True
End Sub

3. 接著按下 F5 鍵執行此程式碼，系統會彈出提示方塊，提醒您將刪除含標題的空白列，如下方截圖所示：

4. 然後按一下「確定」按鈕，當前工作表中所有僅含標題的空白列即會一次刪除，如下方截圖所示：

更多相關文章：

在 Excel 中刪除所有隱藏的列或欄
如果您有一個大型活頁簿，其中包含大量不再需要的隱藏列與欄，該如何快速將它們全部刪除呢？

在 Excel 中刪除所有圖片或其他物件
想從 Microsoft Excel 中刪除所有圖片？一張張選取再刪除實在太耗時！以下技巧讓您輕鬆搞定這項任務。

刪除行根據背景顏色在 Excel 中執行
如何根據背景顏色刪除整行？在本範例中，您需要刪除所有儲存格具有藍色背景的整列（如下方截圖所示）。透過本文，您將取得可在 Excel 中執行此任務的實用程式碼。

在 Google 工作表中刪除欄內包含特定文字的所有列
假設您在 Google 工作表中有一組資料範圍，並希望根據某一欄的儲存格內容來刪除整列。例如，您想刪除 C 欄中包含「Complete」的所有列。本文將說明如何在 Google 工作表中輕鬆達成此操作。

最佳 Office 生產力工具

🤖	KUTOOLS AI 助手：基於以下內容徹底革新數據分析：智慧執行｜產生程式碼｜建立自訂公式｜分析資料並產生圖表｜呼叫增強函數……
	熱門功能：尋找、醒目提示或標記重複值｜刪除空白行｜合併列或儲存格而不遺失資料｜不使用公式的四捨五入……
	高級 LOOKUP：多重條件 VLookup ｜多重數值 VLookup ｜跨多個工作表 VLookup ｜模糊查找……
	高級下拉列表：快速建立下拉式清單｜相依式下拉式清單｜多選下拉式清單……
	欄位管理員：新增指定數量的欄位｜移動欄位｜切換隱藏欄位的可見狀態｜比較範圍與欄位……
	精選功能：網格聚焦｜設計視圖｜增強編輯欄｜工作簿與工作表管理員｜資源庫（自動文字）｜日期提取｜合併工作表｜加密／解密儲存格｜依清單傳送電子郵件｜超級篩選｜特殊篩選（篩選粗體儲存格／斜體／刪除線……） ......
	頂尖 15 工具組：12 文字工具（添加文本，刪除特定字符，……）｜ 50+ 圖表類型（甘特圖，……）｜ 40+ 實用公式（基於生日計算年齡，……）｜ 19 插入工具（插入二維碼，從路徑插入圖片，……）｜ 12 轉換工具（金額轉大寫，匯率轉換，……）｜ 7 合併和拆分工具（高級合併行，分割儲存格，……）｜……以及更多