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

 时间:2024-10-14 06:16:54

在工作过程中有时候需要对表格删除行列操作,单一删除一行比较容易,蒎被眯馄但需要在含有大量数据的表格中删除含有某些关键词的行再操作过程中非常繁琐,本经验介绍一种用VBA编程的方法实现晗稍噔猷:输入某些特定的关键词,输入该关键词所在的列号,即可批量删除含有设定关键词的行;此处举例1:如图所示,表格中存在大量的标题行,如第139.......行,如果需要一条一条删除实在非常麻烦

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

工具/原料

电脑office软件200202012012019均可

excel

方法/步骤

1、打开需要修改的excel表格,依次进入“开发工具”-“VisualBasic”(或同时按按键alt+F11)进入编程模式

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

2、在新的VB窗口中,依次点击“插入“-“模块”,然后再窗口中复制粘贴以下代码Sub献皲咝犴删除某值所在的行烫喇霰嘴()Dimy%Dimkw$Dimj%Dimi%Dimcol$Application.ScreenUpdating=Falsekw=InputBox("输入要删除的关键词:")col=InputBox("输入该关键词所在的列:")Ifkw=""ThenExitSubElseIfcol=""ThenExitSubEndIfi=Range(col&"600000").End(xlUp).RowForj=1ToiOnErrorGoToouty=Range(col&"2:"&col&"600000").Find(kw,,,1).RowRows(y).DeleteShift:=xlUpNextout:Application.ScreenUpdating=TrueEndSub

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

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

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

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

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

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

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

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

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

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

在VBA中如何删除文件? Excel VBA用户界面Combox怎么制作下拉栏 如何使用VBA在Excel切换工作表时弹出提醒 怎么查看在excel中取消隐藏行的vba宏代码 VBA代码给单元格赋值
热门搜索
孔子电影 大师兄电影 简笔画蝴蝶图片大全 王者 电影 诺曼底登陆电影