VBA批量删除含有某些关键词的行

在编辑工作中，批量删除表格中特定关键词的行可能繁琐，可通过VBA编程简化。输入关键词和相关列号，即可自动筛选并移除这些行。

1、 打开需要修改的excel表格，依次进入“开发工具”-“Visual Basic”（或同时按按键alt+F11）进入编程模式

2、 在新的VB窗口中，依次点击“插入“-“模块”，然后再窗口中复制粘贴以下代码Sub 删除某值所在的行()?Dim y%?Dim kw$?Dim j%?Dim i%?Dim col$ Application.ScreenUpdating = False kw = InputBox("输入要删除的关键词：") col = InputBox("输入该关键词所在的列：") If kw = "" Then Exit Sub ElseIf col = "" Then Exit Sub End If i = Range(col & "600000").End(xlUp).Row For j = 1 To i On Error GoTo out y = Range(col & "2:" & col & "600000").Find(kw, , , 1).Row Rows(y).Delete Shift:=xlUp Next?out: Application.ScreenUpdating = True?End Sub?