Question

是否可以从数组公式中获取返回值并将它们连接成单个单元格？例如，我有一个简单的电子表格，其中包含用于项目任务的行，如下所示：

Task #    Description    Blocked on    Blocking
-----------------------------------------------
1         Task 1         2             
2         Task 2                       $formula
3         Task 3         2

我希望单元格D3中的公式返回“1,3”（将多个值放入Blocked On单元格中也很棒）。我现在用以下公式返回“1”：

=(INDEX($A2:$A999,MATCH(A3,$C2:$C999,0)))

Answer 1

你要找的公式是（在d3中）：= IF（$ C $ 2：$ C $ 999 = $ A4; $ A $ 2：$ A $ 999;“”）+ ctrl + shift + enter

确保将其作为数组输入

（注意：您可能还需要将; 更改为，，具体取决于您的区域设置）

如果C匹配当前Ai中的数据，则返回A的内容。你现在只能看到一个结果，因为结果是数组，但如果你使用Transpose（）并在同一行中选择多个单元格，那么使用F2然后按ctrl + shift +输入你将看到连续的所有结果！例如：选择D3：K3，按F2，写公式：=转置（IF（$ C $ 2：$ C $ 999 = $ A4; $ A $ 2：$ A $ 999;“”）），按ctrl + shift + enter .. 。（再次你可能需要写：=转置（IF（$ C $ 2：$ C $ 999 = $ A4，$ A $ 2：$ 999美元，“”））...）

但是你必须在右边有很多列，因为空结果仍然占据列！即使处理空字符串以不占用任何列，仍然存在未知结果列的问题。所以我建议使用一个VBA函数（我之前写的一个）来在一个单元格中连接有效结果（使用你喜欢的任何分隔符）。

最终提议的公式 D3：= MyConCat（“ - ”; IF（$ C $ 2：$ C $ 999 = $ A2; $ A $ 2：$ A $ 999;“”）） + ctrl +移+输入

和MyConCat的代码（放在VBA代码区的模块中）：

' MyConCat
'
' Very simple By Apostolos Goulandris
Function MyConCat(myDelimiter As String, Avar) As String
    Dim b As Variant, Dum As String
    If IsMissing(myDelimiter) Then myDelimiter = ""
    For Each b In Avar
        Dum = IIf(Len(b) > 0, Dum & myDelimiter & b, Dum)
    Next
    MyConCat = IIf(Len(myDelimiter) > 0, Mid(Dum, Len(myDelimiter) + 1, Len(Dum)), Dum)
End Function

Answer 2

在单元格D3中尝试此操作。输入为数组公式Ctrl + Shift + Enter。

=IFERROR(LEFT(SUBSTITUTE(CONCAT(IF(A3=C2:C4,A2:A4)&"-"),"FALSE-",""),LEN(SUBSTITUTE(CONCAT(IF(A3=C2:C4,A2:A4)&"-"),"FALSE-",""))-1),"")

数组公式结果连接成单个单元格

2 个答案: