如何在Excel中基于多列值生成逗号分隔的列标题列表

方法1：使用TEXTJOIN函数（适用于Excel 365/2021及以上版本） #

这是最简便的实现方式，直接结合TEXTJOIN与IF函数即可：
在输出列的第一个单元格（比如E2）输入公式：

=TEXTJOIN(", ", TRUE, IF(A2:D2="Y", $A$1:$D$1, ""))

按下回车键得到结果后，下拉填充到其他行即可。

公式说明： #

• TEXTJOIN(", ", TRUE, ...)：指定分隔符为, ，自动忽略空值，合并符合条件的内容
• IF(A2:D2="Y", $A$1:$D$1, "")：判断当前行每个单元格是否为Y，满足条件则返回对应列的标题，否则返回空值

方法2：数组公式（适用于Excel 2019及更早版本） #

若你的Excel版本不支持TEXTJOIN，可使用数组公式实现：
在E2单元格输入：

=LEFT(IF(A2="Y",A$1&", ","")&IF(B2="Y",B$1&", ","")&IF(C2="Y",C$1&", ","")&IF(D2="Y",D$1&", ",""),LEN(IF(A2="Y",A$1&", ","")&IF(B2="Y",B$1&", ","")&IF(C2="Y",C$1&", ","")&IF(D2="Y",D$1&", ",""))-2)

输入完成后按Ctrl+Shift+Enter触发数组公式，再下拉填充至目标行。

公式说明： #

• 逐个判断每行的单元格是否为Y，符合条件则拼接列标题与,
• 最后用LEFT和LEN截断末尾多余的,

方法3：VBA宏（适用于批量数据或复杂场景） #

如果需要处理大量数据，可通过VBA宏批量生成结果：

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

Sub GetYColumns()
    Dim ws As Worksheet
    Dim lastRow As Long, lastCol As Long
    Dim i As Long, j As Long
    Dim result As String
    
    Set ws = ActiveSheet
    lastRow = ws.Cells(ws.Rows.Count, "A").End(xlUp).Row
    lastCol = ws.Cells(1, ws.Columns.Count).End(xlToLeft).Column
    
    ' 添加输出列表头
    ws.Cells(1, lastCol + 1).Value = "Desired Output"
    
    For i = 2 To lastRow
        result = ""
        For j = 1 To lastCol
            If ws.Cells(i, j).Value = "Y" Then
                If result <> "" Then result = result & ", "
                result = result & ws.Cells(1, j).Value
            End If
        Next j
        ws.Cells(i, lastCol + 1).Value = result
    Next i
End Sub

3. 运行宏即可自动生成所有行的结果列

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