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 Nextout: Application.ScreenUpdating = TrueEnd Sub
3、退出窗口，在excel中插入宏控件，“开发工具”-“插入”-“表单按钮”，选顶录入的命令。
4、此时excel中多了一个控件，单击控件，在弹出窗口中依次输入关键词（如“姓名”）、列号（“B”），运行后，除了首行的标题没有删除，其它的都删除了
5、尝试将关键词修改为“阙”字，列依旧是B列，发现是删除不了的，大大保证了数据的安全，因此不用担心删错数据
