求助EXCEL宏VBA语句删除含有数组里所有内容的行，解决EXCEL宏执行提示：编译错误，过程太大
发布网友
发布时间：2022-05-12 11:05
共3个回答
热心网友
时间：2023-10-06 05:14
假设把5000个关键字放在表2，原文在表1
在表1中建立搜索函数FIND，找到的设为1，找不到的设为0，然后按这个值排序，最后集体选中值为1的删除就OK啦。
如果是需要反复执行的话，再去考虑用宏咯追问好像你这想法不错哦，但我真是要反复执行的，最好是用宏，能否给个具体的宏的代码，本人菜鸟
追答
用宏的话其实也不太复杂，因为没有你的具体文档，没有结构，暂时不能提供VBA，不过可以给你个思路：
工作簿结构：
需要处理的文档Sheet1，假设被检查的文字在A列；
关键字集合放在Sheet2的A列；
宏从sheet1的A列有数据的最后一行开始往上运行循环体一
（“有数据的最后一行”，有相关函数；从下往上，避免了删除行后对下面的行号产生的影响）
循环体一（对应Sheet1每一行）：
把Sheet1当前行的Cell值赋入变量比如cCellValue
对Sheet2的A列每行执行循环体二：
循环体二（对应Sheet2的每一行）：
对Sheet2当前行的A列单元格数值查找是否在cCellValue中
查到：删除Sheet1的当前行，跳出循环体二
未查到：处理Sheet2下一个关键字直到Sheet2查找结束
循环体二结束
循环体一结束
热心网友
时间：2023-10-06 05:15
使用数组和字典，很快的。
热心网友
时间：2023-10-06 05:15
