如何在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中不包含零，则删除整行 删除另一张纸上不符合条件的行