用于比较部分匹配单元格的Excel公式

Question

我在寻求公式方面的帮助。

我需要比较两个单元格（而不是列）中的文本。

其中一个单元格有姓氏，另一个单元格可能有姓氏的一部分，并带有其他数字和字母（不按任何特定顺序）。这些是我们想要定位的对。

并非所有的单元格都匹配，但是对于部分文本匹配的单元格，会像< code >“MATCH”这样。

例如，在单元格E2=000034568MILL WALLI和单元格J2=WALLINGERMATCH，因为单元格E2中的WALLI与部分文本匹配。

另一个例子：

< code>E2=本杰明·P·罗阿姆巴和< code > E2 =鲁姆巴摩尔应该带回匹配。

我希望这是有意义的，并且有一个可能的公式。

Answer 1

如果你愿意使用VBA用户定义的函数，你可以试试这个:

单元格_匹配

它返回！Err如果与输入值（参数）有任何不一致的错误，如果找到匹配项，则返回Match，否则返回NO Match（返回值可以根据需要更改）。

语法： Cells_fMatch（ sCll_1， sCll_2[， 爱尔兰列伊明] ）

论据

sCll_1：要比较的字符串1

sCll_2：要比较的字符串 2

iLenMin ：要比较的字符串的可选最小长度。默认值为 1。数据类型 byte 接受最大值 255，如果需要更高的长度，请相应地进行更改。

该函数结合了For… Next语句和Instr函数来执行比较，提供快速准确的结果。

Public Function Cells_fMatch(sCll_1 As String, sCll_2 As String, Optional iLenMin As Byte = 1) As String
Dim blCllMatch As Boolean
Dim sCllVal As String
Dim i As Integer

    Rem Set Default Result
    Cells_fMatch = "!Err"

    Rem Validate Input
    If Len(sCll_1) < iLenMin Then Exit Function
    If Len(sCll_2) < iLenMin Then Exit Function

    Rem Compare Cell Values
    For i = 1 To (1 + Len(sCll_1) - iLenMin)
        sCllVal = Mid(sCll_1, i, iLenMin)
        If InStr(sCll_2, sCllVal) > 0 Then
            blCllMatch = True
            Exit For
    End If: Next

    Rem Set Results
    Cells_fMatch = IIf(blCllMatch, "Match", "NO MATCH")

End Function

示例：要比较单元格E2和J2中的字符串，至少匹配5个连续字符（分别为值000034568MILL WALLI和WALLINGER），请使用以下公式：

=Cells_fMatch(E2,J2,5)

这些页面将进一步解释函数中使用的资源：

函数语句，暗淡语句，

如果。。。然后。。。否则声明，对于...下一条语句，函数。

Answer 2

Excel中没有满足您需求的内置函数。您需要在 VBA 项目模块中自定义自己的公式。所以我设法编写了一个计算匹配次数的函数。Adter将其设置为模块，您可以将其用作工作表中的普通公式。

如果你不熟悉VBA编程，不要担心。按照说明将下面的代码复制到VBA模块中。

Function CountPartialMatch(R1 As String, R2 As String, M As Long) As Long

    Dim n As Long, L1 As Integer, L2 As Integer, Min As Integer, C As Integer, S1 As Integer, S2 As Integer
    n = 0
    L1 = Len(R1)
    L2 = Len(R2)
    Min = Application.WorksheetFunction.Min(L1, L2)

    For C = M To Min
        For S1 = 1 To (L1 - (C - 1))
            For S2 = 1 To (L2 - (C - 1))
                If Mid(R1, S1, C) = Mid(R2, S2, C) Then n = n + 1
                Next S2
            Next S1
        Next C

    CountPartialMatch = n

End Function

该公式需要3个参数:

=CountPartialMatch(First_Cell, Second_Cell, Min_Chrt)

参数 Min_Chrt 是匹配项必须包含的最小字符数。因此，如果您声明2，它将计算所有具有2个字符，3个字符，4，5，6...它减少了巧合的数量。如果它是1，公式将计算每个“a”= “a”，字母=字母。

请让我知道它是否适合你！