如何在VBA中判断三个单元格值是否一致（排除空白单元格）

需求说明 #

开发支持文件导入的Excel工作表时，需对A2、A4、A6三个可选E1#单元格（允许空白）进行判断，在A7按以下规则输出结果：

• 多个非空白值完全一致 → 显示Match
• 多个非空白值存在差异 → 显示Mismatch
• 仅1个非空白值或全空白 → 留空

此前仅判断两个单元格时，用IF+ISBLANK+EXACT可实现，但新增第三个单元格后，原有复杂公式及自定义UDF均存在问题，现提供两种更优方案。

原尝试方案 #

自定义UDF代码 #

Public Function InterfaceComp_str(c1 As String, c2 As String) As String
If Len(c1) < 1 Then
    InterfaceComp_str = c2
End If

If Len(c2) < 1 Then
    InterfaceComp_str = c1
End If

If Not IsEmpty(c1) And Not IsEmpty(c2) Then
    If InStr(c1, c2) <> 0 And Len(c1) = Len(c2) Then
        InterfaceComp_str = c2
    End If
End If
End Function

曾用A7公式 #

=IF(EXACT(InterfaceComp_str(A2,A4),InterfaceComp_str(A4,A6)),"Match", "Mismatch")

更优解决方案 #

方案1：原生Excel公式（无需VBA） #

使用LET+FILTER+COUNTA+UNIQUE组合公式，兼容Excel 365及以上版本：

=LET(
    nonBlanks, FILTER({A2,A4,A6}, {A2,A4,A6}<>""),
    cnt, COUNTA(nonBlanks),
    IF(cnt<=1, "", IF(COUNTA(UNIQUE(nonBlanks))=1, "Match", "Mismatch"))
)

公式说明：

1. 用{A2,A4,A6}指定目标单元格，筛选出其中非空白值存入nonBlanks
2. 统计非空白值数量cnt，若≤1则返回空值
3. 若非空白值数量>1，判断唯一值数量：仅1个则返回Match，否则返回Mismatch

方案2：优化后的自定义UDF（支持任意数量单元格） #

修改UDF使其支持批量处理多个单元格，逻辑更清晰：

Public Function CheckE1Match(ParamArray cells() As Variant) As String
    Dim uniqueVals As Collection
    Set uniqueVals = New Collection
    Dim cell As Variant
    
    ' 遍历所有传入的单元格，收集非空白的唯一值
    On Error Resume Next
    For Each cell In cells
        If TypeName(cell) = "Range" Then
            Dim rngCell As Range
            For Each rngCell In cell
                If Trim(rngCell.Value) <> "" Then
                    uniqueVals.Add rngCell.Value, Key:=CStr(rngCell.Value)
                End If
            Next rngCell
        Else
            If Trim(cell) <> "" Then
                uniqueVals.Add cell, Key:=CStr(cell)
            End If
        End If
    Next cell
    On Error GoTo 0
    
    ' 根据唯一值数量返回结果
    Select Case uniqueVals.Count
        Case 0, 1
            CheckE1Match = ""
        Case 1
            CheckE1Match = "Match"
        Case Else
            CheckE1Match = "Mismatch"
    End Select
End Function

用法：在A7单元格输入公式：
=CheckE1Match(A2,A4,A6)
该UDF支持传入任意数量的单个单元格或单元格区域，灵活性更强。

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