在工作过程中有时候需要对表格删除行列操作，单一删除一行比较容易，但需要在含有大量数据的表格中删除含有某些关键词的行再操作过程中非常繁琐，本经验介绍一种用VBA编程的方法实现：输入某些特定的关键词，输入该关键词所在的列号，即可批量删除含有设定关键词的行； 此处举例1：如图所示，表格中存在大量的标题行，如第1、19、39.......行，如果需要一条一条删除实在非常麻烦工具/原料more电脑 office软件 2007、2010、2013、2016、2019均可excel方法/步骤1/5分步阅读

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

2/5

在新的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/5

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

4/5

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

5/5

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

注意事项

本程序所删除的关键词中需要全部匹配才能删除，运行之前建议先进行备份

VBA宏EXCEL批量删除批量删除行