求助：Excel中提取单列逗号分隔文本每行新增内容的方法

你的问题核心在于之前用SEARCH的方法是基于整串文本的位置匹配，只能处理新增内容在首尾的情况，一旦新增单词插在中间，就没法准确定位了。要解决这个问题，我们需要把每行的文本拆成单个单词，再逐元素对比前后行的差异，这样不管新增内容在哪个位置都能找出来。

下面分两种场景给你可行的解决方案：

方法一：使用Excel动态数组函数（适用于365/2021及以后版本） #

如果你的Excel支持动态数组函数（比如TEXTSPLIT、XMATCH这些），可以用一个简洁的公式搞定：

假设你的原始数据在A列，从A1开始，在B2单元格输入以下公式，然后下拉到所有行即可：

=LET(
    prev_row, TEXTSPLIT(A1, ","),
    curr_row, TEXTSPLIT(A2, ","),
    added_items, FILTER(curr_row, ISNA(XMATCH(curr_row, prev_row))),
    IF(COUNTA(added_items)=0, "N/A", TEXTJOIN(", ", TRUE, added_items))
)

公式解释： #

• LET：用来定义变量，让公式更易读，不用重复写相同的拆分逻辑
• TEXTSPLIT：把前后行的逗号分隔文本拆成单个单词的数组
• XMATCH + ISNA：找出当前行有但上一行没有的元素（也就是新增的单词）
• FILTER：提取这些新增元素
• TEXTJOIN：如果有多个新增元素（虽然你的示例里每次只加一个），会用逗号拼接起来；如果没有新增就返回N/A

注意：B1单元格因为没有上一行可以对比，直接手动填N/A即可。

方法二：使用VBA宏（适用于旧版Excel） #

如果你的Excel版本不支持动态数组函数，可以用VBA宏来实现，逻辑和上面一致，只是用代码来处理：

1. 按下Alt + F11打开VBA编辑器
2. 右键点击当前工作表，选择「插入」→「模块」
3. 粘贴以下代码：

Sub FindAddedWords()
    Dim ws As Worksheet
    Dim lastRow As Long
    Dim i As Long
    Dim prevWords As Variant, currWords As Variant
    Dim addedText As String
    
    '指定当前工作表，你也可以改成具体工作表名，比如Sheets("Sheet1")
    Set ws = ActiveSheet
    lastRow = ws.Cells(ws.Rows.Count, "A").End(xlUp).Row
    
    '第一行无前置行，直接填N/A
    ws.Cells(1, "B").Value = "N/A"
    
    '从第二行开始逐行对比
    For i = 2 To lastRow
        '拆分前后行的文本为数组
        prevWords = Split(ws.Cells(i - 1, "A").Value, ",")
        currWords = Split(ws.Cells(i, "A").Value, ",")
        
        addedText = ""
        '遍历当前行的每个单词，检查是否存在于上一行
        For Each word In currWords
            If IsError(Application.Match(word, prevWords, 0)) Then
                If addedText <> "" Then addedText = addedText & ", "
                addedText = addedText & word
            End If
        Next word
        
        '根据结果填充B列
        ws.Cells(i, "B").Value = IIf(addedText = "", "N/A", addedText)
    Next i
End Sub

4. 回到Excel界面，按下Alt + F8选择FindAddedWords宏，点击「执行」即可。

这个宏会自动遍历所有行，把新增的单词（或多个单词）填充到B列，没有新增的就填N/A。

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