应该要稍作修改
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运行一下就好了
选择下拉列，然后删除，我是这样的，有更好的办法请告诉我 哦
内容全部来源于网络收集，如有侵权，请联系网站删除：QQ：24596024