假设输入数据在A2:C7范围内，您可以在E2中尝试以下公式：

=LET(rng, A2:C7, ux, UNIQUE(TOCOL(rng,1)),DROP(REDUCE("", ux, LAMBDA(ac, x, 
 LET(cmp, N(rng=x), ones, SEQUENCE(,ROWS(cmp),1,0), IF(SUM(MMULT(ones, cmp))=3, 
   VSTACK(ac,x), ac)))),1))

使用COUNTIFS可以实现简化方法：

=LET(rng, A2:C7, ux, UNIQUE(TOCOL(rng,1)), FILTER(ux, COUNTIFS(rng,ux)=3))

下面是输入数据示例和相应的输出。* 突出显示 * 公式应返回的数字（请参阅下面的条件格式公式）：

前面的解决方案假定输入区域（rng）中每列没有重复的数字。在此假设下，您可以定义 * 条件格式 *，如下所示：

=SUM(N(A2=$A$2:$C$7))=3

如果在给定列中该数字可以重复，则可以如下调整第一公式：

=LET(rng, A2:C7, ux, UNIQUE(TOCOL(rng,1)),DROP(REDUCE("", ux, LAMBDA(ac,x,
  LET(cmp, N(rng=x), ones, SEQUENCE(,ROWS(cmp),1,0), 
    IF(SUM(N(MMULT(ones, cmp) >= 1))=3, VSTACK(ac,x), ac)))),1))

无论输入列的行数是多少，这两种解决方案都应该有效。TOCOL（1）的第二个输入参数确保不考虑空单元格。

您将需要更改范围，我只使用3行来测试它。

Sub FindCommonNumbers()
    Dim dict As Object
    Dim rngAlice As Range, rngBob As Range, rngCarol As Range
    Dim cell As Range
    Dim phone As Variant
    ' Create a new dictionary object
    Set dict = CreateObject("Scripting.Dictionary")

    ' Set the range for each user's phone numbers
    Set rngAlice = Range("A1:A3")
    Set rngBob = Range("B1:B3")
    Set rngCarol = Range("C1:C3")

    ' Add the phone numbers from the first column to the dictionary
    For Each cell In rngAlice
        dict(cell.Value) = 1
    Next cell

    ' Check the phone numbers in the second column against the dictionary
    For Each cell In rngBob
        If dict.exists(cell.Value) Then
            dict(cell.Value) = dict(cell.Value) + 1
        End If
    Next cell

    ' Check the phone numbers in the third column against the dictionary
    For Each cell In rngCarol
        If dict.exists(cell.Value) Then
            dict(cell.Value) = dict(cell.Value) + 1
        End If
    Next cell

    ' Print the phone numbers that appear in all three columns
    For Each phone In dict.Keys()
        If dict(phone) = 3 Then
            Debug.Print phone
        End If
    Next phone
End Sub