如何在Excel中提取单元格字符串的单向新增差异数据？

现有Excel文件中，每行的各列单元格包含多个以逗号分隔的条目，需实现单向对比：将每行的Column 2、Column 3分别与同一行的Column 1对比，仅提取前者存在但后者没有的新增内容（不统计Column 1有但对应列缺失的内容）。由于条目数量达数百个，拆分单元格逐个对比效率极低，且此前方法仅能高亮差异无法提取内容，以下为可行解决方法。

示例输入 #

理想输出 #

解决方法 #

方法1：Excel公式法（无需宏，支持Excel 2016及以上） #

利用TEXTJOIN+FILTERXML组合实现批量筛选，无需拆分单元格。假设数据从第2行开始，Column 1在A列，Column 2在B列，Column 3在C列：

• C1 vs C2（D2单元格）：

  =IFERROR(TEXTJOIN(", ",TRUE,FILTERXML("<t><s>"&SUBSTITUTE(B2,", ","</s><s>")&"</s></t>","//s[not(contains(', "&A2&",', concat(', ', ., ', ')))]")),0)
  

• C1 vs C3（E2单元格）：

  =IFERROR(TEXTJOIN(", ",TRUE,FILTERXML("<t><s>"&SUBSTITUTE(C2,", ","</s><s>")&"</s></t>","//s[not(contains(', "&A2&",', concat(', ', ., ', ')))]")),0)
  

公式说明：

1. 用SUBSTITUTE将逗号分隔的内容转换为XML节点格式
2. 用XPath表达式筛选出不在Column 1中的条目
3. 用TEXTJOIN合并筛选结果，空结果时返回0

方法2：VBA自定义函数法（适合大量数据批量处理） #

编写自定义函数实现高效对比，步骤如下：

1. 打开Excel，按Alt+F11进入VBA编辑器
2. 右键点击当前工作簿→插入→模块，粘贴以下代码：

Function GetNewItems(baseText As String, compareText As String) As String
    Dim baseArr As Variant, compareArr As Variant
    Dim item As Variant, isNew As Boolean
    Dim result As String
    
    '按逗号加空格拆分字符串为数组
    baseArr = Split(baseText, ", ")
    compareArr = Split(compareText, ", ")
    
    result = ""
    '遍历对比列的每个条目
    For Each item In compareArr
        isNew = True
        '检查条目是否存在于基准列
        For Each baseItem In baseArr
            If baseItem = item Then
                isNew = False
                Exit For
            End If
        Next baseItem
        '若为新增条目则加入结果
        If isNew Then
            result = IIf(result = "", item, result & ", " & item)
        End If
    Next item
    
    '无新增时返回0，否则返回结果
    GetNewItems = IIf(result = "", "0", result)
End Function

3. 返回Excel界面，在单元格中直接调用函数：
   • C1 vs C2：=GetNewItems(A2,B2)
   • C1 vs C3：=GetNewItems(A2,C2)
     下拉填充即可批量处理所有行

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