Você também pode usar essa UDF simples.
Para armazená-lo Clique com o botão direito na guia Planilha, clique em Exibir código e insira este código como módulo.
Function ConcatenateIf(CriteriaRange As range, Condition As Variant, ConcatenateRange As range, Optional Separator As String = ",") As Variant
Dim xResult As String
On Error Resume Next
If CriteriaRange.count <> ConcatenateRange.count Then
ConcatenateIf = CVErr(xlErrRef)
Exit Function
End If
For I = 1 To CriteriaRange.count
If CriteriaRange.Cells(I).Value = Condition Then
xResult = xResult & Separator & ConcatenateRange.Cells(I).Value
End If
Next I
If xResult <> "" Then
xResult = VBA.Mid(xResult, VBA.Len(Separator) + 1)
End If
ConcatenateIf = xResult
Exit Function
End Function
NB: Por fim, escreva esta fórmula na célula B2.
=ConcatenateIf(C2:C16,C2,A2:A16)