Question

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

因为要筛选 带关键字的行 数量比较多，想求一个高效的办法，先谢谢好心人了
Sub DELCO()
Dim i As Integer
i = 0
xunhuan:
On Error GoTo eend
Cells.Find(What:="关键词").Select
Selection.EntireColumn.Delete
i = i + 1
GoTo xunhuan
eend:
MsgBox (i & "列被删除了")
End Sub

想知道这代码具体怎么使用，不要见笑哈。

Answer 1

应该要稍作修改
Sub DELCO()
Dim i As Integer
i = 0
xunhuan:
On Error GoTo eend
Cells.Find(What:="关键字").Select
Selection.EntireRow.Delete
i = i + 1
GoTo xunhuan
eend:
MsgBox (i & "行被删除了")
End Sub

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

Answer 2

选择下拉列，然后删除，我是这样的，有更好的办法请告诉我 哦