如何在 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. 然后点击 确定，在另一个弹出的对话框中输入您要基于其删除行的文本。参见截图：

5. 点击 确定，不包含“Apple”的行将被删除。

---

使用 Kutools for Excel 删除不包含特定文本的行

如果您觉得上述方法不容易操作，可以使用 Kutools for Excel 的 选择指定单元格 功能。

Kutools for Excel 包含 300 多个便捷的 Excel 工具。免费试用 30 天无限制。立即获取

1. 选择您要删除不包含特定文本的列，然后点击 Kutools > 选择工具 > 选择指定单元格。参见截图：

2. 在 选择指定单元格 对话框中，勾选 整行，选择 不包含，并在文本框中输入特定文本，您还可以点击 特定类型 部分中的范围按钮来选择包含特定文本的单元格。

3. 然后点击 确定，接着不包含特定文本的行会被选中，右键单击并选择 删除。参见截图：

4. 现在，范围内所有不包含特定文本的行都被删除了。点击此处了解更多关于 选择指定单元格 的信息。

---

相关文章：

• 在 Excel 中删除单元格不包含零值的整行
• 删除不符合另一张表条件的行