连接单个单元格中的所有匹配值

Question

是否有一种方法可以利用Excel中的索引和匹配函数返回在单个单元格中串联在一起的所有匹配值？例如-如果我具有以下值：

我想找到特定的日期和培训，并使用索引和匹配来返回所有三个人，用逗号分隔一个单元格。我已经尝试过自己做，但是我只能让它们在单独的单元格中返回所有值，然后在这些单元格上运行串联以获得我想要的信息，这对我想要使其自动化的步骤太多了。 >

我尝试使用以下功能：

Function Combo(LookupValue As String, LookupRange As Range, ColumnNumber As 
Integer, Char As String)

Dim I As Long
Dim xRet As String
For I = 1 To LookupRange.Columns(1).Cells.Count
    If LookupRange.Cells(I, 1) = LookupValue Then
        If xRet = "" Then
            xRet = LookupRange.Cells(I, ColumnNumber) & Char
        Else
            xRet = xRet & "" & LookupRange.Cells(I, ColumnNumber) & Char
        End If
    End If
Next
SingleCellExtract = Left(xRet, Len(xRet) - 1)
End Function