Question

excel如何批量删除无指定内容的行

如图，如何只保留含有dental的内容（如第一行）无dental的行自动被删除

Answer 1

答：

• 如果不强求一步完成，通过筛选就很容易做到。如下图：

选择"不包含"，然后输入：dental，把筛选结果的行删除即可。

• 如果要自动完成，可以用编程方法实现。

按ALT+F11组合键，打开VB窗口，执行"插入"-"模块"，复制下面代码进去，按F5运行程序即得到结果。

Sub Demo()
    Dim i As Long
    For i = Cells(Rows.Count, 1).End(xlUp).Row To 2 Step -2
        If InStr(1, Cells(i, 1), "dental") = 0 Then
            Cells(i, 1).EntireRow.Delete
        End If
    Next
End Sub

Answer 2

B1输入
=if(isnumber(find("dental",a1)),"含有","")
公式下拉
然后自定义排序，关键字按b列
a列有数据B列空白的行排到了一起，手工批量删除