Excel公式需求：查找指定范围中目标值的对应列编号列表

公式方案（无宏，适合多数Excel版本） #

假设：

• 带粗边框的目标表格区域为 B2:Y21（自行替换为实际区域）
• 结果要填入的绿色单元格为 A2

支持TEXTJOIN/UNIQUE的Excel 365/2021及以后版本

直接用以下公式（输入后回车即可）：

=TEXTJOIN(", ", TRUE, UNIQUE(IF(B2:Y21="Piercing", COLUMN(B2:Y21)-COLUMN(B2)+1, "")))

• 逻辑：遍历目标区域，匹配到“Piercing”时返回表格内相对列号（比如表格首列是B，对应列号1）；UNIQUE()去重，TEXTJOIN()将列号用逗号拼接成列表。
• 如果要返回Excel绝对列号（如A=1、B=2），把公式里的COLUMN(B2:Y21)-COLUMN(B2)+1改成COLUMN(B2:Y21)即可。

旧版Excel（无TEXTJOIN/UNIQUE）

用数组公式（输入后按Ctrl+Shift+Enter确认）：

=LEFT(CONCAT(IF(B2:Y21="Piercing", ", "&COLUMN(B2:Y21)-COLUMN(B2)+1, "")), LEN(CONCAT(IF(B2:Y21="Piercing", ", "&COLUMN(B2:Y21)-COLUMN(B2)+1, "")))-2)

或者先逐个提取列号再拼接：
在A2输入：

=IFERROR(INDEX(IF(B2:Y21="Piercing", COLUMN(B2:Y21)-COLUMN(B2)+1, ""), SMALL(IF(B2:Y21="Piercing", ROW(B2:Y21)-ROW(B2)+1, ""), ROW(A1))), "")

向下填充公式得到所有列号（会包含重复），再用A2&", "&A3&...拼接成列表填入绿色单元格。

VBA宏方案（灵活适配复杂场景） #

如果需要自动更新或处理大区域，用宏更高效：

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

Sub GetPiercingColumns()
    Dim targetRange As Range
    Dim resultCell As Range
    Dim cell As Range
    Dim columnList As String
    Dim colNum As Integer
    Dim colDict As Object
    
    ' 替换为你的实际区域和结果单元格
    Set targetRange = ThisWorkbook.Sheets("Sheet1").Range("B2:Y21")
    Set resultCell = ThisWorkbook.Sheets("Sheet1").Range("A2")
    Set colDict = CreateObject("Scripting.Dictionary")
    
    For Each cell In targetRange
        If cell.Value = "Piercing" Then
            ' 计算表格内相对列号，要绝对列号就改成colNum = cell.Column
            colNum = cell.Column - targetRange.Column + 1
            If Not colDict.Exists(colNum) Then
                colDict.Add colNum, True
                columnList = IIf(columnList = "", CStr(colNum), columnList & ", " & CStr(colNum))
            End If
        End If
    Next cell
    
    resultCell.Value = columnList
End Sub

• 逻辑：用字典自动去重，遍历区域匹配“Piercing”后记录列号，最后写入绿色单元格
• 保存文件时选.xlsm格式，启用宏即可运行

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