excel中删除所有包含"关键字"的行

因为要筛选 带关键字的行 数量比较多，想求一个高效的办法，先谢谢好心人了

应该要稍作修改
Sub DELCO()
Dim i As Integer
i = 0
xunhuan:
On Error GoTo eend
Cells.Find(What:="关键字").Select     

/*注释：EntireRow--按行，EntireColumn--按列*/

Selection.EntireRow.Delete
i = i + 1
GoTo xunhuan
eend:
MsgBox (i & "行被删除了")
End Sub

具体步骤：
打开文件，在工具-宏中打开VB编辑器
复制代码到代码框，编译一下保存，记得把关键字改成你要的
按ALT+F8运行一下就好了