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

3、退出窗口，在excel中插入宏控件，“开发工具”-“插入”-“表单按钮”，选顶录入的命令。

4、此时excel中多了一个控件，单击控件，在弹出窗口中依次输入关键词（如“姓名”）、列号（“B”），运行后，除了首行的标题没有删除，其它的都删除了

5、尝试将关键词修改为“阙”字，列依旧是B列，发现是删除不了的，大大保证了数据的安全，因此不用担心删错数据