如何在Excel中刪除帶有標題的空列？

如果您有一個包含多個列的大型工作表，但是某些列僅包含一個標題，現在，您想要刪除這些僅包含標題的空列，以顯示以下屏幕截圖。這可以在Excel中快速輕鬆地解決嗎？

使用VBA代碼刪除帶有標題的空列

使用Kutools for Excel刪除範圍/工作表/工作簿中的多個空列

使用VBA代碼刪除帶有標題的空列

在Excel中，除了手動將它們逐個刪除外，沒有直接的方法來處理此作業，但是，在這裡，我可以為您介紹一個代碼，請執行以下操作：

1. 按住 ALT + F11 鍵，然後打開 Microsoft Visual Basic for Applications 窗口。

2。點擊插入 > 模塊，然後將以下代碼粘貼到模塊窗口。

VBA代碼：刪除帶有標題的空列：

Sub Macro1()
'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 and column(s) with only a header row have now 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。然後點擊 OK 按鈕，將立即刪除當前工作表中僅有標題的所有空白列。

備註：如果有空白列，它們也會被刪除。

使用Kutools for Excel刪除範圍/工作表/工作簿中的多個空列

有時，您只需要刪除空白列， Excel的Kutools“ 刪除隱藏（可見）行和列 實用程序可以幫助您輕鬆完成此任務。

Excel的Kutools : 帶有300多個便捷的Excel加載項，可以在30天內免費試用.

前往下載
30天免費試用購買
貝寶/ MyCommerce

安裝後 Excel的Kutools，請執行以下操作：

1。選擇包括需要刪除的空白列的列範圍。

2。然後點擊 庫工具 > 刪除 > 刪除隱藏（可見）行和列，請參見屏幕截圖：

3。在 刪除隱藏（可見）行和列 對話框中，您可以根據需要從“查找範圍”下拉列表中選擇刪除範圍，然後選擇列來自 刪除類型 部分，然後選擇 空白欄 來自 詳細類型 部分，請參見屏幕截圖：

4。然後點擊 Ok 按鈕，則一次僅刪除空白列。看截圖：

保養竅門：借助此強大功能，您還可以根據需要刪除空白行，可見列或行，隱藏列或行。

點擊免費下載Kutools for Excel現在！

最佳辦公效率工具

Kutools for Excel 解決了你的大部分問題，並將你的生產力提高了 80%

重用: 快速插入 複雜的公式，圖表 以及您以前使用過的任何東西；加密單元帶密碼創建郵件列表並發送電子郵件...
超級公式欄（輕鬆編輯多行文本和公式）；閱讀版式（輕鬆讀取和編輯大量單元格）；粘貼到過濾範圍...
合併單元格/行/列不會丟失數據；拆分單元格內容；合併重複的行/列...防止細胞重複；比較範圍...
選擇重複或唯一行; 選擇空白行（所有單元格都是空的）；超級查找和模糊查找在許多工作簿中；隨機選擇...
確切的副本多個單元格，無需更改公式參考；自動創建參考到多張紙；插入項目符號，複選框等...
提取文字，添加文本，按位置刪除，刪除空間; 創建和打印分頁小計；在單元格內容和註釋之間轉換...
超級濾鏡（將過濾方案保存並應用於其他工作表）；高級排序按月/週/日，頻率及更多；特殊過濾器用粗體，斜體...
結合工作簿和工作表; 根據關鍵列合併表；將數據分割成多個工作表; 批量轉換xls，xlsx和PDF...
超過 300 項強大的功能. 支持 Office / Excel 2007-2021 和 365。支持所有語言。在您的企業或組織中輕鬆部署。完整功能 30 天免費試用。 60 天退款保證。