如果输入相同，则以下VBA代码将返回true，如果输入不同（包括空），则返回false

'Returns true if all inputs are the same value
Public Function MultiMatch(ParamArray ipArgs() As Variant) As Boolean

    Dim myC As Collection
    Set myC = New Collection
    
    On Error Resume Next
    Dim myItem As Variant
    For Each myItem In ipArgs
        dim myTest as String
        myString = vba.CStr(myItem)
        If VBA.Len(myItem) = 0 Then
            MultiMatch = False
            Exit Function
        End If
        
        ' try to add the key to the collection
        ' an error will be generated if the key already exists
        ' so you might need to format the string if rounding is an issue for single/double values
        myC.Add Key:=myTest, Item:=0
        If Err.Number = 0 Then
            MultiMatch = False
            exit function
        End If
    
    Next
    
    MultiMatch = True
    
End Function

试试下面的功能。
使用方式：

=InterfaceComp_str(A2,A3,A4) 'or as many cells as you want to compare

自定义项：

Function InterfaceComp_str(ParamArray inputs() As Variant) As String
    Dim i As Long, n As Long, v, firstVal, misMatch As Boolean
    
    For i = 0 To UBound(inputs)       'loop over input cells
        v = CStr(inputs(i))           'current value
        If Len(v) > 0 Then            'non-blank?
            n = n + 1                 'count of non-blank items
            If Len(firstVal) = 0 Then
                firstVal = v          'store first non-blank value
            Else
                If v <> firstVal Then 'different value?
                    misMatch = True   'flag mismatch
                    Exit For          'no need to check further
                End If
            End If
        End If
    Next i
    If n > 1 Then                     '>1 entry?
        InterfaceComp_str = IIf(misMatch, "Mismatch", "Match")
    End If
End Function

参数数组：https://learn.microsoft.com/en-us/office/vba/language/concepts/getting-started/understanding-parameter-arrays

您也可以使用工作表公式执行此操作。
如果单元格中只有数字要检查，则：

A7: =LET(
    arr, INDEX(
        A2:A6,
        {1, 3, 5}
    ),
    remBlanks, FILTER(
        arr,
        arr <> ""
    ),
    matchCount, COUNTA(
        FILTER(
            remBlanks,
            INDEX(
                remBlanks,
                1
            ) = remBlanks
        )
    ),
    IF(
        COUNTA(remBlanks) <= 1,
        "",
        IF(
            COUNTA(remBlanks) =
                matchCount,
            "Match",
            "Mismatch"
        )
    )
)

如果还需要测试单元格中的值是否为数字，则简单的测试可能包括比较COUNT和COUNTA

A7: =LET(
    arr, INDEX(
        A2:A6,
        {1, 3, 5}
    ),
    remBlanks, FILTER(
        arr,
        (arr <> "")
    ),
    matchCount, COUNTA(
        FILTER(
            remBlanks,
            INDEX(
                remBlanks,
                1
            ) = remBlanks
        )
    ),
    IF(
        COUNTA(remBlanks) <= 1,
        "",
        IF(
            AND(
                COUNTA(
                    remBlanks
                ) = matchCount,
                COUNT(
                    remBlanks
                ) =
                    COUNTA(
                        remBlanks
                    )
            ),
            "Match",
            "Mismatch"
        )
    )
)

了解Excel将看起来像日期和/或科学记数法数字的值视为数字，以及输入值的约束条件，您可能需要检查所有字符是否都是数字。