VBA Like函数无法匹配相似企业名称，如何实现有效相似匹配？

Like函数的匹配规则 #

Like函数是精确模式匹配工具，并非基于内容相似度的模糊匹配。它的核心要求：

• 无通配符时，必须两个字符串完全一致（默认区分大小写，可通过Option Compare Text设置为不区分）才返回True；
• 有通配符时，需严格符合通配符规则（*匹配任意字符、?匹配单个字符、[]匹配范围内字符），本质还是模式匹配，不是基于语义或内容相似性的判断。

你遇到返回False的情况，就是因为直接用完整企业名作为匹配模式，未添加通配符，而两个字符串（比如7-ELEVEN和7-ELEVEN, Inc.）并不完全相等，所以匹配失败。

相似企业名称的对比方法 #

针对名称格式差异的场景，推荐以下几种实用方案：

1. 预处理字符串后精确对比 #

先统一清理企业名称中的无关后缀、标点，统一大小写，再做相等判断。示例VBA函数：

Function CleanCompanyName(ByVal rawName As String) As String
    ' 统一转为大写，消除大小写差异
    rawName = UCase(rawName)
    ' 移除常见企业后缀（可根据实际需求扩展）
    rawName = Replace(rawName, ", INC.", "")
    rawName = Replace(rawName, " LLC", "")
    rawName = Replace(rawName, " THERAPY LLC", "")
    ' 去除首尾多余空格
    rawName = Trim(rawName)
    CleanCompanyName = rawName
End Function

调用示例：

Debug.Print CleanCompanyName(Cells(i + 1, 3).Value) = CleanCompanyName(Act_Name)

2. 优化Like函数的通配符使用 #

如果能预判常见的后缀格式，给匹配模式添加通配符，比如：

' 匹配以目标名称开头的所有字符串
Debug.Print Cells(i + 1, 3).Value Like Act_Name & "*"

注意：这种方式可能误匹配类似7-ELEVEN FOODS的不同企业，需根据业务场景调整通配符范围。

3. 基于编辑距离的相似度判断 #

使用Levenshtein距离（编辑距离）算法，计算两个字符串的差异程度，设置合理阈值（比如差异小于3则视为匹配）。示例VBA函数：

Function LevenshteinDistance(ByVal s1 As String, ByVal s2 As String) As Integer
    Dim distanceMatrix() As Integer
    Dim lenS1 As Integer, lenS2 As Integer
    Dim i As Integer, j As Integer
    Dim charMatchCost As Integer
    
    lenS1 = Len(s1)
    lenS2 = Len(s2)
    ReDim distanceMatrix(0 To lenS1, 0 To lenS2)
    
    ' 初始化边界
    For i = 0 To lenS1
        distanceMatrix(i, 0) = i
    Next i
    For j = 0 To lenS2
        distanceMatrix(0, j) = j
    Next j
    
    ' 计算编辑距离
    For i = 1 To lenS1
        For j = 1 To lenS2
            charMatchCost = IIf(Mid(s1, i, 1) = Mid(s2, j, 1), 0, 1)
            distanceMatrix(i, j) = Application.WorksheetFunction.Min( _
                distanceMatrix(i - 1, j) + 1, _
                distanceMatrix(i, j - 1) + 1, _
                distanceMatrix(i - 1, j - 1) + charMatchCost _
            )
        Next j
    Next i
    
    LevenshteinDistance = distanceMatrix(lenS1, lenS2)
End Function

调用示例：

If LevenshteinDistance(Cells(i + 1, 3).Value, Act_Name) <= 3 Then
    Debug.Print "匹配成功"
Else
    Debug.Print "匹配失败"
End If

4. 利用Excel模糊匹配工具 #

如果是Excel界面操作，可安装Fuzzy Lookup插件，它能直接基于字符串相似度批量匹配企业名称；VBA中也可调用该插件API实现批量处理。

内容的提问来源于stack exchange，提问作者Bonnie Z