如何在Excel中检测行内单元格含Conflict文本并输出冲突信息？

公式解法（无需宏） #

直接在目标相邻列单元格输入以下数组公式（旧版Excel需按Ctrl+Shift+Enter确认，新版Excel直接回车即可）：

=TEXTJOIN(", ", TRUE, IF(ISNUMBER(SEARCH("Conflict", B2:F2)), B2:F2, ""))

• SEARCH("Conflict", B2:F2)：检测单元格中是否包含"Conflict"文本，返回匹配位置或错误值
• ISNUMBER(...)：将检测结果转为布尔值，存在匹配则返回TRUE
• IF(...)：仅保留包含"Conflict"的单元格内容，其余返回空值
• TEXTJOIN(", ", TRUE, ...)：用逗号连接所有有效内容，自动忽略空值

注意：将公式中的B2:F2替换为你实际需要检测的行范围。

VBA解法（批量处理） #

如果需要批量处理多行数据，可使用以下VBA代码：
打开Excel按Alt+F11进入VBA编辑器，插入模块后粘贴代码：

Sub ExtractConflicts()
    Dim ws As Worksheet
    Dim lastRow As Long, lastCol As Long
    Dim i As Long, j As Long
    Dim result As String
    
    ' 指定目标工作表，可修改为你的表名
    Set ws = ThisWorkbook.Sheets("Sheet1")
    
    ' 获取数据区域的最后一行和最后一列
    lastRow = ws.Cells(ws.Rows.Count, "B").End(xlUp).Row
    lastCol = ws.Cells(2, ws.Columns.Count).End(xlToLeft).Column
    
    ' 遍历每一行数据
    For i = 2 To lastRow
        result = ""
        ' 遍历该行每个单元格
        For j = 2 To lastCol
            ' 检测单元格是否包含"Conflict"
            If InStr(ws.Cells(i, j).Value, "Conflict") > 0 Then
                ' 拼接结果文本
                result = IIf(result = "", ws.Cells(i, j).Value, result & ", " & ws.Cells(i, j).Value)
            End If
        Next j
        ' 将结果写入当前行的相邻列
        ws.Cells(i, lastCol + 1).Value = result
    Next i
End Sub

• 代码会自动遍历数据行，仅收集包含"Conflict"的单元格内容，避免空单元格误输出
• 运行前需将文件保存为.xlsm格式，启用宏后执行即可

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