根据单元格值查找标题

Question

我有以下数据：

我想要的是获取包含值 1 的每个单元格的标题，如下所示：

我试过了，INDEX(F9:J9;;MATCH(1;F10:J10;0))但是这个只获取了第一个值 1 的标题。我该怎么办？

Answer 1

可以使用TEXTJOINExcel 公式来解决：

注意： TEXTJOIN 适用于 Excel 2016 及更高版本以及 Office 365。

但是您可以使用 VBA 宏创建类似的函数。

怎么运行的：

• Copy 下面显示的 VBA 代码。
• 按下Alt+F11打开 VB 编辑器。
• 我插入新的米模块（按 Alt+I+M）。
• 磷保存 VBA 代码。
• 年代将工作簿作为米已启用 acro。

---

    Function TEXTJOIN(delim As String, skipblank As Boolean, arr)
    Dim d As Long
    Dim c As Long
    Dim arr2()
    Dim t As Long, y As Long
    t = -1
    y = -1
    If TypeName(arr) = "Range" Then
        arr2 = arr.Value
    Else
        arr2 = arr
    End If
    On Error Resume Next
    t = UBound(arr2, 2)
    y = UBound(arr2, 1)
    On Error GoTo 0

    If t >= 0 And y >= 0 Then
        For c = LBound(arr2, 1) To UBound(arr2, 1)
            For d = LBound(arr2, 1) To UBound(arr2, 2)
                If arr2(c, d) <> "" Or Not skipblank Then
                    TEXTJOIN = TEXTJOIN & arr2(c, d) & delim
                End If
            Next d
        Next c
    Else
        For c = LBound(arr2) To UBound(arr2)
            If arr2(c) <> "" Or Not skipblank Then
                TEXTJOIN = TEXTJOIN & arr2(c) & delim
            End If
        Next c
    End If
    TEXTJOIN = Left(TEXTJOIN, Len(TEXTJOIN) - Len(delim))
    End Function

---

• 单元格中的数组（CSE）公式B7，以Ctrl+Shift+Enter并向下填充。

{=TEXTJOIN(":",1,IF(B2:F2=1,B$1:F$1,""))}

• 根据需要调整公式中的单元格引用。