满足x条件时合并对应文本：员工培训数据处理需求求助

方法1：Excel 365/2021 公式法 #

如果你的Excel是365或2021版本（支持动态数组），直接用公式就能搞定：
假设员工姓名在A列，第3行是培训项目标题（比如B3到G3），员工的"x"标记在对应行的B列及以后区域。以Javier所在的A5行为例，在H5单元格输入公式：
=TEXTJOIN(", ", TRUE, IF(B5:G5="x", B$3:G$3, ""))

• 原理：先用IF判断当前行单元格是否为"x"，是就提取第3行对应的培训标题，否则留空；再用TEXTJOIN把所有非空的标题用", "连接起来。
• 旧版Excel没有TEXTJOIN函数，建议用下面的Power Query或VBA方法。

方法2：Power Query 批量处理法 #

适合数据量较大的情况，步骤简单易操作：

1. 选中整个数据区域，点击「数据」选项卡 → 「从表格/区域」（记得勾选「我的表格有标题」）
2. 进入Power Query编辑器后，选中第3行（培训标题行），右键选择「将行用作标题」
3. 选中姓名列以外的所有列，点击「转换」选项卡 → 「逆透视列」→ 「逆透视其他列」
4. 筛选「值」列，只保留等于"x"的行
5. 选中姓名列和「属性」列，点击「转换」选项卡 → 「分组依据」，分组列选姓名，新列名设为「合并培训项」，操作选择「合并列」，列选「属性」，分隔符选", "
6. 点击「关闭并上载」，就能得到每个员工对应的合并培训信息列表。

方法3：VBA 宏代码法 #

适合需要自动化批量处理的场景，步骤如下：

1. 按Alt+F11打开VBA编辑器，右键点击左侧工程窗口 → 插入 → 模块
2. 粘贴以下代码：

Sub MergeTrainingItems()
    Dim ws As Worksheet
    Dim lastRow As Long, lastCol As Long
    Dim i As Long, j As Long
    Dim resultText As String
    
    ' 指定要处理的工作表，比如改为ThisWorkbook.Sheets("你的工作表名")
    Set ws = ActiveSheet
    lastRow = ws.Cells(Rows.Count, 1).End(xlUp).Row ' 获取最后一行
    lastCol = ws.Cells(3, Columns.Count).End(xlToLeft).Column ' 获取最后一列
    
    ' 从第4行开始遍历员工（假设前3行是表头/标题）
    For i = 4 To lastRow
        resultText = ""
        ' 遍历当前行的所有培训列
        For j = 2 To lastCol
            If ws.Cells(i, j).Value = "x" Then
                If resultText <> "" Then resultText = resultText & ", "
                resultText = resultText & ws.Cells(3, j).Value
            End If
        Next j
        ' 把结果写入当前行的最后一列后面
        ws.Cells(i, lastCol + 1).Value = resultText
    Next i
End Sub

3. 回到Excel界面，按Alt+F8，选中MergeTrainingItems宏并执行，即可自动生成合并结果。

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