Note: The other languages of the website are Google-translated. Back to English

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

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

doc刪除標題為1的空白列

使用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 鍵運行此代碼,然後會彈出一個提示框,提醒您帶有標題的空白列將被刪除,請參見屏幕截圖:

doc刪除標題為2的空白列

4。 然後點擊 OK 按鈕,將立即刪除當前工作表中僅有標題的所有空白列。

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


箭頭藍色右氣泡 使用Kutools for Excel刪除範圍/工作表/工作簿中的多個空列

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

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

安裝後 Excel的Kutools,請執行以下操作:

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

2。 然後點擊 庫工具 > 刪除 > 刪除隱藏(可見)行和列,請參見屏幕截圖:

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

doc刪除標題為4的空白列

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

doc刪除標題為5的空白列

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

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


最佳辦公效率工具

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

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

Office選項卡為Office帶來了選項卡式界面,使您的工作更加輕鬆

  • 在Word,Excel,PowerPoint中啟用選項卡式編輯和閱讀,發布者,Access,Visio和Project。
  • 在同一窗口的新選項卡中而不是在新窗口中打開並創建多個文檔。
  • 將您的工作效率提高 50%,每天為您減少數百次鼠標點擊!
officetab底部
按評論排序
留言 (10)
5中的5評分 · 1評級
網站主持人對此評論進行了最小化
嗨,感謝上面的漂亮代碼。 可以免費使用嗎?
網站主持人對此評論進行了最小化
天哪,這真是天才!!! 謝謝你
網站主持人對此評論進行了最小化
完美運行。 非常感激
網站主持人對此評論進行了最小化
這可以保存在一個電子表格中並在其他文件上運行嗎?
網站主持人對此評論進行了最小化
我一直得到的是“沒有要刪除的列,因為每個列都有更多的數據(行)而不僅僅是一個標題。” 然而,我知道我有大約 700 列帶有標題但沒有數據的事實。 我有一個超過 900 列的電子表格,只有 200 列在標題下方有數據。 另一個宏有效,但我不得不刪除標題行。 所以我知道這個宏不能正常工作。 這是怎麼回事?
網站主持人對此評論進行了最小化
你好,保羅
如果工作表中只有一個標題行,則VBA代碼運行良好,如果有兩個或多個標題行,它會彈出你說的提示信息。
因此,您需要檢查數據中是否存在隱藏的標題行。
謝謝!
網站主持人對此評論進行了最小化
驚人! 你是對的。 一定有什麼隱藏的東西。 現在一切都很好。 非常感謝您的快速回复。
網站主持人對此評論進行了最小化
您好,我有同樣的問題,事實上我知道我有很多列只有標題但相同的錯誤“沒有要刪除的列,因為每個列都有更多的數據(行)而不僅僅是一個標題。” 並且我檢查了數據中沒有隱藏的行。
任何人都可以幫助我嗎?
網站主持人對此評論進行了最小化
嗨,西莫克
在這種情況下,您可以在此處上傳您的 Excel 文件附件,以便我們在您不介意時幫助檢查問題。
感謝您!
網站主持人對此評論進行了最小化
親愛的 skyyang 不需要,它現在工作得很好! 非常感謝您提供的 VBA 代碼!
5中的5評分
這裡還沒有評論
留下你的意見
以訪客身份發帖
×
評價此帖子:
0   字符
推薦地點

關注我們

版權所有©2009 - 萬維網。extendoffice.com。 | 版權所有。 供電 ExtendOffice。 |
Microsoft和Office徽標是Microsoft Corporation在美國和/或其他國家的商標或註冊商標。
受Sectigo SSL保護