[已解决]关健词词根排除。

吴是真非

就像这样的不带要词根的排除后得到的，不包含词根的关健词。

最佳答案

月排行榜 / 总排行榜

cutecpu

2023-2-13 09:46

1. Sub demo()
   
2.    Dim a
   
3.    Set re = CreateObject("vbscript.regexp")
   
4.    a = Range([b3], [b3].End(4))
   
5.    re.Pattern = Join(Application.Transpose(a), "|")
   
6.    a = Range([a3], [a3].End(4))
   
7.    b = a
   
8.    For i = 1 To UBound(a)
   
9.       If Not re.test(a(i, 1)) Then
   
10.          r1 = r1 + 1: a(r1, 1) = a(i, 1)
    
11.       Else
    
12.          r2 = r2 + 1: b(r2, 1) = a(i, 1)
    
13.       End If
    
14.    Next
    
15.    [c3:d1000].ClearContents
    
16.    [c3].Resize(r1) = a
    
17.    [d3].Resize(r2) = b
    
18. End Sub
    

复制代码

祝順心，南無阿彌陀佛！

跳转到最佳答案楼层

吴是真非

下载次数: 5次 大佬们 这个可以实现吗。

cutecpu

1. Sub demo()
   
2.    Dim a
   
3.    Set re = CreateObject("vbscript.regexp")
   
4.    a = Range([b3], [b3].End(4))
   
5.    re.Pattern = Join(Application.Transpose(a), "|")
   
6.    a = Range([a3], [a3].End(4))
   
7.    b = a
   
8.    For i = 1 To UBound(a)
   
9.       If Not re.test(a(i, 1)) Then
   
10.          r1 = r1 + 1: a(r1, 1) = a(i, 1)
    
11.       Else
    
12.          r2 = r2 + 1: b(r2, 1) = a(i, 1)
    
13.       End If
    
14.    Next
    
15.    [c3:d1000].ClearContents
    
16.    [c3].Resize(r1) = a
    
17.    [d3].Resize(r2) = b
    
18. End Sub
    

复制代码

祝順心，南無阿彌陀佛！

吴是真非

cutecpu 发表于 2023-2-13 09:46
祝順心，南無阿彌陀佛！

谢谢大神