如何在Excel中比较两个单元格中的逗号分隔值并返回重复或唯一值？

如下图所示，有两列——列1和列2，每列中的每个单元格都包含逗号分隔的数字。要将列1中的逗号分隔数字与列2同一行的单元格内容进行比较，并返回所有重复或唯一的值，您会怎么做？

本教程提供两种方法帮助您完成此任务。

使用公式比较两个单元格中的逗号分隔值并返回重复或唯一值

本节提供了两个公式，帮助比较两个单元格中的逗号分隔值并返回它们之间的重复或唯一值。

注意：以下公式仅适用于Excel for 365。如果您使用的是其他版本的Excel，请尝试使用下面的VBA方法。

以上述两列为示例，要将列1中的逗号分隔数字与列2同一行的逗号分隔数字进行比较并返回重复或唯一值，请按照以下步骤操作。

返回重复值

1. 选择一个单元格以输出两个指定单元格之间的重复数字（带有逗号分隔的数字），在此情况下，我选择了单元格D2，然后输入以下公式并按Enter键。选择公式单元格并向下拖动其自动填充柄以获取其他行中单元格之间的重复数字。

=LET(x, TRANSPOSE(TEXTSPLIT(TEXTJOIN(", ",TRUE,A2:B2), ", ")),y,UNIQUE(x),z,UNIQUE(x,,1), TEXTJOIN(", ",TRUE,IF(ISERROR(MATCH(y,z,0)),y, "")))

返回唯一值

要返回同一行中两个指定单元格之间带有逗号分隔数字的唯一值，以下公式可以提供帮助。

1. 选择一个单元格以输出唯一数字，在此情况下，我选择了单元格E2，然后输入以下公式并按Enter键。选择公式单元格并向下拖动其自动填充柄以获取其他行中单元格之间的唯一数字。

=TEXTJOIN(", ",TRUE,UNIQUE(TRANSPOSE(TEXTSPLIT(TEXTJOIN(", ",TRUE,A2:B2), ", ")),,1))

注意事项：

使用 Kutools AI 解锁 Excel 魔法

• 智能执行：执行单元格操作、分析数据和创建图表——所有这些都由简单命令驱动。
• 自定义公式：生成量身定制的公式，优化您的工作流程。
• VBA 编码：轻松编写和实现 VBA 代码。
• 公式解释：轻松理解复杂公式。
• 文本翻译：打破电子表格中的语言障碍。

通过人工智能驱动的工具增强您的 Excel 能力。立即下载，体验前所未有的高效！

使用VBA比较两列逗号分隔值并返回重复或唯一值

本节提供的用户自定义函数可帮助比较两个指定单元格中的逗号分隔值并返回它们之间的重复值或唯一值。请按照以下步骤操作。

以上述相同示例为例，要将列1中的逗号分隔数字与列2同一行的逗号分隔数字进行比较并返回重复或唯一值，请尝试使用本节中的用户自定义函数。

1. 在打开的工作簿中，按Alt + F11键打开Microsoft Visual Basic for Applications窗口。

2. 在Microsoft Visual Basic for Applications窗口中，单击“插入”>“模块”，并将以下VBA代码复制到“模块（代码）”窗口中。

VBA代码：比较两个单元格中的逗号分隔值并返回重复/唯一值

Private Function COMPARE(Rng1, Rng2 As Range, Op As Boolean)
'Updated by Extendoffice 20221019
    Dim R1Arr As Variant
    Dim R2Arr As Variant
    Dim Ans1 As String
    Dim Ans2 As String
    Dim Separator As String
    Dim d1 As New Dictionary
    Dim d2 As New Dictionary
    Dim d3 As New Dictionary
    Application.Volatile

    Separator = ", "
    
    R1Arr = Split(Rng1.Value, Separator)
    R2Arr = Split(Rng2.Value, Separator)
    
    Ans1 = ""
    Ans2 = ""
    
    For Each ch In R2Arr
        If Not d2.Exists(ch) Then
            d2.Add ch, "1"
        End If
    Next
    
    If Op Then
        For Each ch In R1Arr
            If d2.Exists(ch) Then
                If Not d3.Exists(ch) Then
                    d3.Add ch, "1"
                    Ans1 = Ans1 & ch & Separator
                End If
            End If
        Next
        If Ans1 <> "" Then
            Ans1 = Mid(Ans1, 1, Len(Ans1) - Len(Separator))
        End If
        COMPARE = Ans1
    Else
        For Each ch In R1Arr
            If Not d1.Exists(ch) Then
                d1.Add ch, "1"
            End If
        Next
        
        For Each ch In R1Arr
            If Not d2.Exists(ch) Then
                If Not d3.Exists(ch) Then
                    d3.Add ch, "1"
                    Ans2 = Ans2 & ch & Separator
                End If
            End If
        Next
        For Each ch In R2Arr
            If Not d1.Exists(ch) Then
                If Not d3.Exists(ch) Then
                    d3.Add ch, "1"
                    Ans2 = Ans2 & ch & Separator
                End If
            End If
        Next
        If Ans2 <> "" Then
            Ans2 = Mid(Ans2, 1, Len(Ans2) - Len(Separator))
        End If
        COMPARE = Ans2
    End If

End Function

3. 将代码粘贴到“模块（代码）”窗口后，转到单击“工具” > “引用”以打开“引用 – VBAProject”窗口，勾选“Microsoft Scripting Runtime”框，然后单击“确定”按钮。

4. 按Alt + Q键关闭Microsoft Visual Basic for Applications窗口。

5. 现在，您需要分别应用两个函数来从两个逗号分隔值单元格中返回重复值和唯一值。

返回重复值

选择一个单元格以输出重复数字，在此示例中，我选择了单元格D2，然后输入以下公式并按Enter键以获取单元格A2和B2之间的重复数字。

选择公式单元格并向下拖动其自动填充柄以获取其他行中单元格之间的重复数字。

=COMPARE(A2,B2,TRUE)

返回唯一值

选择一个单元格以输出唯一数字，在此示例中，我选择了单元格E2，然后输入以下公式并按Enter键以获取单元格A2和B2之间的唯一数字。

选择公式单元格并向下拖动其自动填充柄以获取其他行中单元格之间的唯一数字。

=COMPARE(A2,B2,FALSE)