在工作过程中有时候需要对表格删除行列操作,单一删除一行比较容易,蒎被眯馄但需要在含有大量数据的表格中删除含有某些关键词的行再操作过程中非常繁琐,本经验介绍一种用VBA编程的方法实现晗稍噔猷:输入某些特定的关键词,输入该关键词所在的列号,即可批量删除含有设定关键词的行;此处举例1:如图所示,表格中存在大量的标题行,如第139.......行,如果需要一条一条删除实在非常麻烦
工具/原料
电脑office软件200202012012019均可
excel
方法/步骤
1、打开需要修改的excel表格,依次进入“开发工具”-“VisualBasic”(或同时按按键alt+F11)进入编程模式
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
3、退出窗口,在excel中插入宏控件,“开发工具”-“插入”-“表单按钮”,选顶录入的命令。
4、此时excel中多了一个控件,单击控件,在弹出窗口中依次输入关键词(如“姓名”)、列号(“B”),运行后,除了首行的标题没有删除,其它的都删除了
5、尝试将关键词修改为“阙”字,列依旧是B列,发现是删除不了的,大大保证了数据的安全,因此不用担心删错数据