Вы также можете использовать этот просто сделанный UDF.
Чтобы сохранить его, щелкните правой кнопкой мыши вкладку «Лист», нажмите «Просмотреть код», затем вставьте этот код как модуль.
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: наконец напишите эту формулу в ячейке B2.
=ConcatenateIf(C2:C16,C2,A2:A16)