多个关键词批量删除

zhengchen007

zopey 发表于 2019-8-22 14:39
略作修改

好像不行  数据不对，运行后数据少了而且还有没删干净

zhengchen007

w609053988 发表于 2019-8-22 14:10
你再检查检查，代码有剔除Sheet2的关键词的

我试了，不对，表1有299行，筛选后还有290行。

zopey

“没删干净“  请举个例子

zhengchen007

zopey 发表于 2019-8-22 14:57
“没删干净“  请举个例子

这个是运行后的结果，“阿迪““”新百伦”这几个也是我表2了要过滤的关键词，但是表3还是出现了，其他正常要保留的词也被删除了

zopey

zhengchen007 发表于 2019-8-22 15:08
这个是运行后的结果，“阿迪““”新百伦”这几个也是我表2了要过滤的关键词，但是表3还是出现了，其他正 ...

第21行的
If InStr(ma, arr(i, 1)) Then d.Remove (ma): Exit For

替换为
If InStr(ma, temp) Then d.Remove (ma): Exit For

zhengchen007

zopey 发表于 2019-8-22 15:18
第21行的
If InStr(ma, arr(i, 1)) Then d.Remove (ma): Exit For

数据变多了，但是还是没有删选干净，比如：“牧童”  是我表2里有的  表3没有剔除，表3里包含“耐克”的词也没有剔除

zopey

zhengchen007 发表于 2019-8-22 16:37
数据变多了，但是还是没有删选干净，比如：“牧童”  是我表2里有的  表3没有剔除，表3里包含“耐克”的 ...

第21行的
If InStr(ma, arr(i, 1)) Then d.Remove (ma): Exit For

替换为
If InStr(ma, temp) Then d.Remove (ma)

zopey

外层数组循环 + 内层 字典循环 ， 循环次数有点多，最后结果是 199个。

zhengchen007

zopey 发表于 2019-8-22 16:47
第21行的
If InStr(ma, arr(i, 1)) Then d.Remove (ma): Exit For

我对阁下的景仰有如滔滔江水，连绵不绝，又如黄河泛滥，一发而不可收拾，听阁下一言，胜读十年寒窗，看古近风流人物，还数阁下！

zhengchen007

zopey 发表于 2019-8-22 16:47
第21行的
If InStr(ma, arr(i, 1)) Then d.Remove (ma): Exit For

我对阁下的景仰有如滔滔江水，连绵不绝，又如黄河泛滥，一发而不可收拾，听阁下一言，胜读十年寒窗，看古近风流人物，还数阁下！