使用 Excel VBA 计算精确匹配

编程问答 2022-05-20

问题描述

我正在尝试使用 Excel VBA 查找完全匹配的单词，但由于区分大小写或部分匹配而未能这样做。

这是我的数据

enter image description here

Experience Column 包含某些关键字，我正在根据主列表提取这些关键字

结果中的问题是 它显示 UI2 意味着，UI 2 次，但正如我们在经验中看到的那样，它只有 1 次

与 GO 相同，显示 2：一个来自 Go，另一个来自 Google

Nosql 已经被提取为 Nosql 和 sql，但是有两个不同的技能集：Nosql 和 sql，由于经验没有 sql，所以不应该提取

主文件中有一个叫做“R”的技能集，很难提取特定的R，因为它占了每个R

这是我的代码片段

enter image description here

我读了很多文章，但没有找到合适的解决方案。请帮忙。

谢谢

解决方法

如果您不希望“Go”与（例如）匹配“Google”，则需要考虑单词边界。您最好使用正则表达式方法来查找匹配项。

注意：为了避免将“Go”与“go”匹配，您需要匹配区分大小写，但为了避免遗漏其他术语，您可能需要传递所有可能的大小写变体，例如（例如）“mySQL|MySQL” .

Sub matchTester()
    
    Dim s As String,skill
    
    s = "I go to school now and have used R,MySQL,noSQL and " & _
        "SQL and Go in my Ratings job at Google. I like R"
    
    For Each skill In Array("SQL","noSQL|NoSQL","mySQL|MySQL","R","Go","VBA","C#")
        Debug.Print skill,CountMatches(s,skill)
    Next skill

End Sub

Function CountMatches(sIn As String,countThis) As Long
    Dim regEx As Object,matches As Object
    With CreateObject("vbscript.regexp")
        .Global = True
        .IgnoreCase = False
        .Pattern = "\b(" & countThis & ")\b" 'add word boundaries
        Set matches = .Execute(sIn)
    End With
    CountMatches = matches.Count
End Function

输出：

SQL            1 
noSQL|NoSQL    1 
mySQL|MySQL    1 
R              2 
Go             1 
VBA            0 
C#             0
countcountcountexact-matchexcelexcelvba