如何将Excel中指定列内容替换为对应值的列标题？

方法1：INDEX+MATCH组合公式 #

假设数据从A1开始，「Answer」列为E列，数值范围是B:D列（对应标题B、C、D）。在E2单元格输入以下公式，下拉填充即可：

=INDEX($B$1:$D$1, MATCH(E2, $B2:$D2, 0))

• 逻辑：MATCH(E2, $B2:$D2, 0)定位当前行中Answer对应值的位置，INDEX($B$1:$D$1, ...)提取该位置对应的列标题。

方法2：XLOOKUP函数（Excel 365/2021及以上版本适用） #

在E2单元格输入：

=XLOOKUP(E2, $B2:$D2, $B$1:$D$1)

• 逻辑：直接查找当前行中E2的值，返回对应的列标题，写法更简洁。

方法3：LOOKUP函数（每行仅一个匹配值时可用） #

=LOOKUP(E2, $B2:$D2, $B$1:$D$1)

方法4：VBA批量处理（适合大量数据） #

按下Alt+F11打开VBA编辑器，插入模块后粘贴以下代码，运行即可：

Sub ReplaceAnswerWithColumnHeader()
    Dim ws As Worksheet
    Dim lastRow As Long, lastCol As Long
    Dim i As Long, j As Long
    
    Set ws = ActiveSheet
    lastRow = ws.Cells(ws.Rows.Count, "E").End(xlUp).Row 'E列为Answer列
    lastCol = ws.Cells(1, ws.Columns.Count).End(xlToLeft).Column
    
    For i = 2 To lastRow
        For j = 2 To lastCol '假设标题从B列开始
            If ws.Cells(i, j).Value = ws.Cells(i, "E").Value Then
                ws.Cells(i, "E").Value = ws.Cells(1, j).Value
                Exit For '找到匹配值后退出循环
            End If
        Next j
    Next i
End Sub

• 注意：运行前建议备份数据，避免意外。

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