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列，发现是删除不了的，大大保证了数据的安全，因此不用担心删错数据