我有一个示例表来获取匹配项,需要在列中列出。
VLOOKUP
仅带来已知的第一个匹配列。那么如何仅使用一个公式列出这些值呢?
这里是表格:
我需要获取第一列值等于1的值并在其旁边写上相应的名称。那么我该怎么做呢?
编辑:
在 Office 365 中,我们使用 FILTER 而不是下面的 IF:
=TEXTJOIN(",",TRUE,FILTER(B1:B6,A1:A6=1,""))
原答案
如果您有 Office 365 Excel,请使用此:
=TEXTJOIN(",",TRUE,IF(A1:A6=1,B1:B6,""))
退出编辑模式时,需要按 Ctrl-Shift-Enter(而不是 Enter)将其输入为数组。 如果操作正确,Excel 会在公式周围加上
{}
。
如果您没有 Office 365 Excel,则将模块附加到 VBE 中的工作簿并发布此代码:
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
并输入上述公式。
另一方面,如果您不想将其放在一个单元格中而是一个简单的列表,则在 D2 中使用此数组公式:
=IFERROR(INDEX($B$1:$B$6,MATCH(1,($A$1:$A$6=1)*(COUNTIF($D$1:D1,$B$1:$B$6)=0),0)),"")
这又是一个数组公式,退出编辑模式时需要按 Ctrl-Shift-Enter 而不是 Enter 来输入。 如果操作正确,Excel 会在公式周围加上
{}
。
然后复制/向下拖动:
=TEXTJOIN(",",TRUE,FILTER(B1:B6,A1:A6=1,""))
工作完美。 (令人不安的是,即使到了 2024 年,OP 仍然懒得接受正确答案。)