如何刪除 Excel 中不包含特定文字的列？

也許有些人知道當 Excel 中包含某些特定文字時如何刪除整列，但如果您想在不包含特定文字時刪除整列，該怎麼辦呢？現在，請按照本教程操作，您可能會找到解決此問題的方法。

使用篩選功能刪除不包含特定文字的列

使用 VBA 刪除不包含特定文字的列

使用 Kutools for Excel 刪除不包含特定文字的列

---

使用篩選功能刪除不包含特定文字的列

在 Excel 中，篩選功能可以快速幫助您篩選出不包含特定文字的列，然後您可以選擇它們進行刪除。

1. 選擇包含您要根據其刪除列的文字的列，然後點擊 資料 > 篩選。參見截圖：

2. 在列的標題中有一個篩選按鈕，點擊它以打開下拉列表，除了您要基於的特定文字外，勾選所有其他選項。參見截圖：

3. 然後您會看到只有標題列和不包含特定文字的列被篩選出來了。參見截圖：

4. 選擇所有這些列（標題列除外），右鍵單擊並選擇從上下文菜單中刪除列。參見截圖：

5. 然後再次點擊 資料 > 篩選，這樣所有不包含特定文字的列都被刪除了。參見截圖：

---

使用 VBA 刪除不包含特定文字的列

VBA 對於在 Excel 中執行一些較複雜的操作非常有用，請按照以下步驟刪除不包含特定文字的列。

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 的列將被移除。

---

使用 Kutools for Excel 刪除不包含特定文字的列

如果您認為上述方法對您來說不太容易，您可以使用 Kutools for Excel 的選擇指定單元格功能。

Kutools for Excel 包含超過 300 個實用的 Excel 工具。免費試用 30 天無任何限制。立即獲取

1. 選擇您要刪除不包含特定文字的列，然後點擊 Kutools > 選擇工具 > 選擇指定單元格。參見截圖：

2. 在 選擇指定單元格對話框中，勾選 整行，並選擇 不包含，然後在文本框中輸入特定文字，您也可以在指定類型部分中點擊範圍按鈕來選擇包含特定文字的單元格。

3. 然後點擊 確定，不包含特定文字的列將被選中，右鍵單擊並選擇從上下文菜單中 刪除。參見截圖：

4. 現在，範圍內所有不包含特定文字的列都已被移除。點擊這裡了解更多關於選擇指定單元格的信息。

---

相關文章：

• 在 Excel 中刪除不包含零值的整行
• 刪除不符合另一張工作表條件的列