因为要筛选 带关键字的行 数量比较多,想求一个高效的办法,先谢谢好心人了
应该要稍作修改
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运行一下就好了