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

【专家解说】：应该要稍作修改 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运行一下就好了