如何在Excel中刪除不包含某些文本的行？

也許有些人知道在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。 然後點擊 OK，然後在另一個彈出對話框中鍵入要刪除行的文本。 看截圖：

5。 點擊 OK，不包含Apple的行將被刪除。

---

使用Kutools for Excel刪除不包含某些文本的行

如果您認為上述方法不方便，可以使用 Excel的Kutools's 選擇特定的單元格 功能。

Excel的Kutools 包括300多個便捷的Excel工具。 30天免費試用，不受限制。 立即獲取

1.選擇要刪除不包含某些文本的行的列，然後單擊 庫工具 > 選擇工具 > 選擇特定的單元格。 看截圖：

2.在 選擇特定的單元格 對話框，檢查 整行，然後選擇 不包含，然後在文本框中輸入特定文本，您也可以點擊 特定類型 部分以選擇包含某些文本的單元格。

3。 然後點擊 Ok，然後選擇不包含某些文本的行，右鍵單擊以選擇 刪除 從上下文菜單中。 看截圖：

4.現在，所有不包含該範圍內某些文本的行都將被刪除。 單擊她以獲取有關選擇特定單元格的更多信息.

---

相關文章：

• 如果單元格在Excel中不包含零，則刪除整行
• 刪除另一張紙上不符合條件的行