如何在 Excel 中刪除不包含特定文字的列？
許多 Excel 使用者熟悉在儲存格包含特定文字時刪除整列。然而，您也可能遇到需要移除「不」包含特定文字的列的情況。例如，當您擁有一個大型資料集，只想保留與某個關鍵字相關的列，並刪除其餘所有列時，這項技巧就格外實用——無論是篩選報表、清理問卷回覆，還是進行資料品質控管，都能大幅提升效率！雖然 Excel 未提供一鍵完成的內建功能，但您可以根據自身技能與需求，靈活運用多種實用方法。本教學將帶您一步步掌握透過篩選、VBA、Kutools 及公式等高效技巧，在 Excel 中快速刪除「不」包含指定文字字串的列。不
使用 Kutools for Excel 刪除行不包含特定文字的列
使用篩選功能刪除行不包含特定文字的列
Excel 的篩選功能是一種直觀且易用的方式，能快速辨識並隱藏不含特定文字的列，特別適合偏好視覺化操作的使用者，適用於中小型資料表。然而，在處理極大型資料集或目標文字變化繁多的情況下，效率可能較低。
1. 選取包含欲篩選文字的欄位，然後點擊資料> 篩選，即可為資料表套用篩選。請參閱螢幕截圖：
 |
 |
 |
2. 點擊欄位標題中的篩選按鈕（向下箭頭），即可開啟下拉式篩選選單。取消勾選所有選項，僅保留您要顯示的文字；如此一來，便只會顯示包含該特定文字的列。若您的文字是以部分內容或子字串形式出現，建議使用「文字篩選」>「包含……」選項，以獲得更大的篩選彈性。請參閱螢幕截圖：
3. 此時，僅顯示標題及包含指定文字的列；不含該文字的列已在目前檢視中被篩選掉。請參閱螢幕截圖：
4. 選取標題以外的所有可見列（先點擊第一列，按住 Shift 鍵再點擊最後一列），然後按一下滑鼠右鍵，從內容功能表中選擇刪除行。此操作將移除所有可見（已篩選）的列。刪除後，僅剩未被篩選出的列（即）不包含指定文字的列）可能仍處於隱藏狀態。
5. 若要完成此操作，請再次點擊資料> 篩選 以取消篩選，工作表中將僅顯示不包含指定文字的列。請參閱螢幕截圖：
 |
|
 |
注意：刪除前請再次確認僅選取了預期的列。除非執行復原動作（Ctrl+Z），否則已刪除的列將無法復原。若您的資料表包含合併儲存格或巢狀小計，此方法可能效果不佳。
使用 VBA 刪除行不包含特定文字的列
若您需要處理大型資料集，或頻繁重複執行此操作，使用 VBA（Visual Basic for Applications）可大幅提升刪除效率。VBA 解決方案能自動根據儲存格是否包含特定文字字串來移除整列，非常適合具備基礎程式設計能力的使用者，或需要自訂邏輯（例如區分大小寫的比對）的情境。
1. 按下 Alt + F11，即可開啟 Microsoft Visual Basic for Applications 編輯器視窗！
2. 在編輯器視窗中，點擊插入> 模組 以開啟新模組視窗，並將下列 VBA 程式碼複製貼上至該視窗中。
VBA：若儲存格不含特定文字，則刪除整列。
Sub DeleteRowNoInclude()
'Updateby Extendoffice
Dim xRow As Range
Dim rng As Range
Dim WorkRng As Range
Dim xStr As String
On Error Resume Next
xTitleId = "KutoolsforExcel"
Set WorkRng = Application.Selection
Set WorkRng = Application.InputBox("Range", xTitleId, WorkRng.Address, Type:=8)
xStr = Application.InputBox("Text", xTitleId, "", Type:=2)
Application.ScreenUpdating = False
For i = WorkRng.Rows.Count To 1 Step -1
Set xRow = WorkRng.Rows(i)
Set rng = xRow.Find(xStr, LookIn:=xlValues)
If rng Is Nothing Then
xRow.Delete
End If
Next
Application.ScreenUpdating = True
End Sub
3. 點擊執行按鈕後，系統將提示您選取要處理的範圍（例如欲搜尋指定文字的欄位）。請參閱螢幕截圖：
4. 點擊確定，並在下一個彈出對話框中輸入作為刪除條件的文字。為確保最佳效果，請輸入與資料中完全一致的文字。此程式碼預設執行不區分大小寫的搜尋；若需區分大小寫，請手動修改程式碼。操作範例請參閱螢幕截圖：
5. 點擊確定後，所有不包含指定文字（例如「Apple」）的儲存格所在列將立即被刪除。執行 VBA 巨集前，務必先儲存您的工作，因為此操作難以輕易復原。若出現非預期結果，請立即使用復原功能（Ctrl+Z），或關閉檔案但不儲存，再以正確參數重試。進階使用者亦可依需求調整此程式碼，以支援部分比對或多條件篩選。
使用 Kutools for Excel 刪除行不包含特定文字的列
對於不想手動篩選或使用 VBA 的使用者，Kutools for Excel 提供高效且互動式的解決方案，只需點擊幾下，就能快速選取並刪除「不包含特定文字」的列！若您經常處理資料，或需應對多重搜尋條件，這項功能尤其實用。雖然 Kutools 需另行安裝，卻能大幅簡化繁瑣的 Excel 操作，支援批次處理，介面直覺，即使是初學者也能輕鬆上手！
Kutools for Excel 包含超過 300 項實用 Excel 工具，免費試用 30 天，無任何限制！立即取得
1. 選取欲刪除行中不包含指定文字的儲存格所在欄位，然後點擊 Kutools> 選取工具> 選擇指定單元格。請參閱螢幕截圖：
2. 在選擇指定單元格對話框中，勾選整行，於下拉式選單中選擇不包含，並在文字方塊中輸入目標文字；或者，您也可點擊指定類型區段中的範圍選取圖示，直接選取包含目標文字的參考儲存格。請務必仔細檢查輸入內容，避免錯字或額外空格影響選取準確度！
3. 點擊確定，系統將自動選取不包含指定文字的列。在任一已標示的列上按一下滑鼠右鍵，並從內容功能表中選擇刪除，即可一次刪除所有選取的列。請參閱螢幕截圖：
4. 現在，工作表中所有不包含您指定文字的列均已刪除。如需更多進階技巧與最新功能，請參閱：選擇指定單元格文件。
提示：刪除前請仔細確認所選內容，避免誤刪重要資料，並建議先建立備份副本以確保資料安全。Kutools 的選取功能可與其他功能搭配使用，打造更貼合需求的資料管理方案。
使用 Excel 公式（輔助欄位）刪除行不包含特定文字的列
另一種極其實用的方法是在輔助欄位中運用 Excel 公式，快速判斷每列是否包含（或不包含）特定文字，並據此進行篩選或刪除。此方法適合熟悉公式的使用者，尤其偏好透明且可稽核的流程，以便在執行刪除前先行檢視結果。當您要搜尋的文字可能出現在儲存格內任意位置（而不僅限於完全相符）時，此方法特別實用。
優點：高度靈活，無需增益集或 VBA，安全可靠——資料不會立即刪除，使用者會先檢視結果。缺點：步驟較多，且需熟悉 Excel 公式與篩選功能。
操作說明：
1. 在您的資料旁新增一個輔助欄位。為便於說明，假設您的文字位於 A 欄，且資料從第 2 列開始（不含標題列）。
2. 在輔助欄位的第一列（例如 ）B2）中輸入下列公式（請將 「text」替換為您要搜尋的字串）：
=ISNUMBER(SEARCH("text",A2))當 A2 儲存格包含指定文字（作為子字串，且不區分大小寫）時，此公式會傳回 TRUE；否則傳回 FALSE。
3. 按下 Enter 鍵後，按兩下該儲存格右下角，即可將公式自動填滿至資料集中的所有其他列。
4. 對輔助欄位使用篩選功能：點擊下拉箭頭，選擇 FALSE，即可僅顯示未包含目標文字的列。選取這些篩選後的列（若適用，請排除標題列），按下滑鼠右鍵，再點選刪除行。
5. 刪除後，請先清除篩選以恢復檢視畫面；確認結果無誤後，即可依需求移除輔助欄位。
參數與提示說明：
- 若需比對完全相符的儲存格值（而非子字串），請將公式修改為
=A2="text"。 - 若您的資料包含空白儲存格，ISNUMBER(SEARCH（。。。）） 會傳回 FALSE，這些列將被視為不包含該文字。
- 若需進行區分大小寫的比對，請在公式中將 SEARCH 函數替換為 FIND 函數。
疑難排解：公式方法在實際執行刪除行前不會破壞原始資料。務必仔細核對 TRUE/FALSE 結果，並建議在大量刪除前先儲存備份副本，以確保萬無一失！
相關文章：
最佳 Office 生產力工具
| 🤖 | KUTOOLS AI 助手：基於以下內容徹底革新數據分析：智慧執行 ｜ 產生程式碼｜ 建立自訂公式 ｜ 分析資料並產生圖表｜ 呼叫增強函數…… |
| 熱門功能：尋找、醒目提示或標記重複值 ｜ 刪除空白行 ｜ 合併列或儲存格而不遺失資料 ｜ 不使用公式的四捨五入…… | |
| 高級 LOOKUP：多重條件 VLookup ｜ 多重數值 VLookup ｜ 跨多個工作表 VLookup ｜ 模糊查找…… | |
| 高級下拉列表：快速建立下拉式清單 ｜ 相依式下拉式清單 ｜ 多選下拉式清單…… | |
| 欄位管理員：新增指定數量的欄位｜移動欄位｜切換隱藏欄位的可見狀態｜比較範圍與欄位…… | |
| 精選功能：網格聚焦 ｜ 設計視圖 ｜增強編輯欄 ｜ 工作簿與工作表管理員 ｜ 資源庫（自動文字）｜ 日期提取 ｜ 合併工作表 ｜ 加密／解密儲存格 ｜ 依清單傳送電子郵件 ｜ 超級篩選 ｜ 特殊篩選（篩選粗體儲存格／斜體／刪除線……） ...... | |
| 頂尖 15 工具組：12 文字工具（添加文本，刪除特定字符，……）｜ 50+ 圖表 類型（甘特圖，……）｜ 40+ 實用公式（基於生日計算年齡，……）｜ 19 插入工具（插入二維碼，從路徑插入圖片，……）｜ 12 轉換工具（金額轉大寫，匯率轉換，……）｜ 7 合併和拆分工具（高級合併行，分割儲存格，……）｜……以及更多 |
運用 Kutools for Excel 強化您的 Excel 技能，體驗前所未有的高效能！Kutools for Excel 提供超過 300 項進階功能，大幅提升生產力並節省寶貴時間。立即點擊，取得您最需要的功能……
Office Tab 為 Office 帶來分頁式介面，讓您的工作更輕鬆自在！
- 在 Word、Excel、PowerPoint 中啟用分頁式編輯與閱讀功能，以及 Access、Visio 與 Project。
- 在同視窗的新分頁中開啟並建立多份文件，而非另開新視窗。
- 每天為您提升 50% 的工作效率，並省下數百次滑鼠點擊！
所有 Kutools 增益集，一個安裝程式
Kutools for Office 套件整合了 Excel、Word、Outlook 與 PowerPoint 的增益集，以及 Office Tab Pro，非常適合需要跨多個 Office 應用程式協作的團隊使用！
- 全能套件— 包含 Excel、Word、Outlook 與 PowerPoint 增益集，以及 Office Tab Pro
- 一個安裝程式，一個授權— 數分鐘內即可完成設定（支援 MSI）
- 協同運作更出色— 在多個 Office 應用程式間實現流暢的生產力體驗
- 30 天完整功能試用— 無需註冊，無需信用卡
- 超值之選— 比單獨購買各增益集更省費用