如何高效对比Excel中含分隔项的两个单元格并输出差异项？

针对你需要对比两个含分隔项的单元格、提取各自独有项的需求，以下是几种高效方案，适配不同Excel版本和数据规模：

一、Excel 365/2021+ 函数法（最便捷） #

假设集合A在A2单元格，集合B在B2单元格，分隔符为逗号+空格（可根据实际替换）：

提取集合A独有的项（结果集合A） #

直接在目标单元格输入公式：

=TEXTJOIN(", ",TRUE,FILTER(TEXTSPLIT(A2,", "),ISNA(XMATCH(TEXTSPLIT(A2,", "),TEXTSPLIT(B2,", ")))))

提取集合B独有的项（结果集合B） #

公式：

=TEXTJOIN(", ",TRUE,FILTER(TEXTSPLIT(B2,", "),ISNA(XMATCH(TEXTSPLIT(B2,", "),TEXTSPLIT(A2,", ")))))

公式说明：

• TEXTSPLIT：将单元格内容按指定分隔符拆分为数组
• XMATCH：检查当前数组的每一项是否存在于另一数组中，不存在则返回#N/A
• FILTER：筛选出不存在的项（即独有项）
• TEXTJOIN：将筛选后的数组重新拼接为带分隔符的文本

如果你的分隔符是分号、顿号等，只需把公式中的", "替换为对应的分隔符即可。

二、旧版Excel（无TEXTSPLIT）：Power Query批量处理 #

适合大数据集，无需手动拆分：

1. 选中包含集合A、集合B的数据区域，点击「数据」选项卡→「从表格/区域」（Excel 2016+），旧版本找「获取和转换」组的「自表格」
2. 在Power Query编辑器中，添加自定义列：
   • 先处理集合A的独有项，公式：List.Difference(Text.Split([集合A], ", "), Text.Split([集合B], ", "))
   • 再添加一个自定义列，把列表转为文本：Text.Combine([自定义列1], ", ")，重命名为「结果集合A」
3. 同理处理集合B的独有项，自定义列公式：List.Difference(Text.Split([集合B], ", "), Text.Split([集合A], ", "))，转文本后命名为「结果集合B」
4. 点击「关闭并上载」，将结果导出到新工作表即可完成批量处理

三、自定义VBA函数（兼容全版本） #

如果需要更灵活的自定义逻辑，可编写VBA函数：

1. 按Alt+F11打开VBA编辑器，插入新模块，粘贴以下代码：

Function GetUniqueItems(rngA As Range, rngB As Range, delimiter As String) As String
    Dim arrA As Variant, arrB As Variant
    Dim col As New Collection
    Dim i As Integer, isExist As Boolean
    
    arrA = Split(rngA.Value, delimiter)
    arrB = Split(rngB.Value, delimiter)
    
    '将集合B的项存入集合，用于快速查找
    For i = LBound(arrB) To UBound(arrB)
        On Error Resume Next
        col.Add Trim(arrB(i)), Key:=Trim(arrB(i))
        On Error GoTo 0
    Next i
    
    '遍历集合A，筛选不在B中的项
    Dim result As String
    result = ""
    For i = LBound(arrA) To UBound(arrA)
        isExist = False
        On Error Resume Next
        isExist = Not IsEmpty(col(Trim(arrA(i))))
        On Error GoTo 0
        If Not isExist Then
            result = IIf(result <> "", result & delimiter & " ", "") & Trim(arrA(i))
        End If
    Next i
    
    GetUniqueItems = result
End Function

2. 返回Excel，在目标单元格输入：
   • 提取A独有项：=GetUniqueItems(A2,B2,", ")
   • 提取B独有项：=GetUniqueItems(B2,A2,", ")

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