用VBA实现在A列单元格内容里批量查找B列的多个关键词

niushiping

求大神指导：用VBA实现在A列单元格内容里批量查找B列的多个关键词（关键词存在包含关系），输出结果在c列，为包含的关键词，且关键词顺序为在内容出现的先后顺序，用“/”隔开。

dragonthree

包含关系，是A列数据包含B列数据，还是B列数据包含A列数据？

shiruiqiang

正则式

niushiping

shiruiqiang 发表于 2025-1-27 15:36
正则式

提示文件已损坏，求重新上传

shiruiqiang

下载没问题的

ykcbf1100

附件供参考。。。

niushiping

shiruiqiang 发表于 2025-1-27 16:12
下载没问题的

ykcbf1100

参与一下。。。

1. Sub ykcbf()  '//2025.1.27
   
2.     Set d = CreateObject("Scripting.Dictionary")
   
3.     With Sheets("Sheet1")
   
4.         arr = .UsedRange
   
5.         For i = 2 To UBound(arr)
   
6.             s = arr(i, 2)
   
7.             d(s) = ""
   
8.         Next
   
9.         For i = 2 To UBound(arr)
   
10.             b = Split(arr(i, 1), ",")
    
11.             st = ""
    
12.             For x = 0 To UBound(b)
    
13.                 If d.exists(b(x)) Then st = st & "/" & b(x)
    
14.             Next
    
15.             arr(i, 3) = Mid(st, 2)
    
16.         Next
    
17.         .UsedRange = arr
    
18.     End With
    
19.     Set d = Nothing
    
20.     MsgBox "OK！"
    
21. End Sub
    

复制代码

niushiping

shiruiqiang 发表于 2025-1-27 16:12
下载没问题的

感谢大佬，a列数据有6000+，b列数据有90个，运行会出错，求优化

niushiping

ykcbf1100 发表于 2025-1-27 16:27
附件供参考。。。

这个可以运行，感谢大佬