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

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

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

使用篩選器刪除不包含某些文本的行

使用VBA刪除不包含某些文本的行

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

使用篩選器刪除不包含某些文本的行

在Excel中，“過濾器”功能可以快速幫助您過濾不包含某些文本的行，然后可以選擇要刪除的行。

1.選擇包含要刪除行的文本的列，然后單擊 Data > 篩選器。 看截圖：

2.在該列的標題中，有一個過濾器按鈕，然后單擊它以打開下拉列表，選中除要基于的某些文本以外的所有內容。 看截圖：

3.然后，您只能看到標題行和不包含某些文本的行。 查看截圖：

4.選擇所有文件（標題行除外），然后右鍵單擊以選擇 刪除行 從上下文菜單中。 看截圖：

5。 然后點擊 Data > 篩選器 再次，然后刪除所有不包含某些文本的行。 看截圖：

使用VBA刪除不包含某些文本的行

VBA對于Excel中有些困難的操作非常有用，請按照以下步驟刪除不包含某些文本的行。

1。 按 Alt + F11鍵 顯示 Microsoft Visual Basic應用程序 窗口。

2.在窗口中，單擊 插頁 > 模塊 以顯示新的模塊窗口，然后將以下VBA代碼復制到模塊窗口中。

VBA：如果單元格確實包含某些文本，則刪除整行。

Sub DeleteRowNoInclude() Update20140618 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

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

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

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

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

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

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

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