如果所有 Excel 列值不一致则返回

Question

我在 Excel 电子表格中有以下数据：

    A  B  C
 1  b  b  b

我想在数据后面的列中放置一个公式，该公式比较行中的每个（文本）值，如果它们全部相同，则返回 TRUE，即 A=B=C 。如果一个或多个值不一致，我希望它返回 FALSE。即

    A  B  C  D
 1  b  b  b  TRUE
 2  b  e  b  FALSE
 3  e  b  b  FALSE

我知道像 AND 这样的逻辑函数，因此可以构造像

AND(A1=B1,A1=C1.. etc) 这样的东西，但是，一旦列数增加，这很快就会变得难以处理增加。

重组数据是不可能的。

有人知道 OOTB / VB 解决方案吗？

Answer 1

如果 countif 找到与 count 相同的数字，那么它们都是相同的。

=IF(COUNTIF(A1:C1,A1)=COUNTA(A1:C1),"true","false")

希望这就是您正在寻找的内容，您只需扩展要测试的任意多列的范围即可。

更新

正如评论中所指出的，如果数据集有空白单元格，则无法返回正确的结果。

即使范围内有空白单元格，这也会返回 false：

=IF(AND(COUNTIF(A1:C1;A1)=COUNTA(A1:C1);COUNTBLANK(A1:C1)=0);"true";"false")

Answer 2

这是一个 VBA UDF：要使其区分大小写，请删除选项比较文本

Option Explicit
Option Compare Text
Public Function AllSame(theRange As Range) As Boolean
    Dim vR As Variant
    Dim vC As Variant

    AllSame = True
    vR = theRange
    If IsArray(vR) Then
        vC = vR(1, 1)
        For Each vC In vR
            If vC <> vR(1, 1) Then
                AllSame = False
                Exit For
            End If
        Next vC
    End If
End Function

Answer 3

虽然速度会慢一些，但您也可以使用数组公式（在单元格中输入后按Ctrl + Shift + Enter）：

{=IF(SUM(COUNTIF(A1:C1,A1:C1))=POWER(COUNTA(A1:C1), 2),"true","false")}

即使范围内有空单元格，这也可以工作。

。

更新：
通过确保范围内只有 1 个唯一值，此数组公式也有效。即使范围内有空格，它仍然返回准确的值：

{=SUM(IFERROR(1 / COUNTIF(A2:C2,A2:C2), 0)) = 1}