Function СцепитьЕсли(ByRef Диапазон As Range, _
                    ByVal Критерий As String, _
                    ByRef Диапазон_сцепления As Range, _
                    Optional Разделитель As String = " ") As String
    '---------------------------------------------------------------------------------------
    ' Procedure    : СцепитьЕсли
    ' Author       : The_Prist & Alex_ST
    ' Topic_HEADER : "Помогите создать СЦЕПИТЬЕСЛИ() - аналог СУММЕСЛИ()"
    ' Topic_URL    : http://www.planetaexcel.ru/forum.php?thread_id=14935
    ' Post_Author  : The_Prist
    ' Post_URL     : http://www.planetaexcel.ru/docs/forum_upload/post_113923.xls
    ' DateTime     : 02.04.2010 22:24
    ' Purpose      : СЦЕПИТЬЕСЛИ() - аналог СУММЕСЛИ()
    ' Notes        : По умолчанию разделитель слов - пробел, но можно задать любой другой символ/символы.
    '              Диапазон - диапазон с критериями(указывается один столбец)
    '              Критерий - критерий. Просматривается Диапазон.
    '              Диапазон_сцепления - из этого диапазона берется значение для сцепления,
    '              если значение в аргументе Диапазон совпадает с аргументом Критерий (указывается один столбец).
    '---------------------------------------------------------------------------------------
    Dim rCell As Range, rFndrng As Range, sStr As String
    Set Диапазон = Intersect(Диапазон, ActiveSheet.UsedRange)
    Set Диапазон_сцепления = Intersect(Диапазон_сцепления, ActiveSheet.UsedRange)
    For Each rCell In Диапазон
        If rCell.Value Like Критерий Then
            If Trim(Диапазон_сцепления.Cells(rCell.Row - Диапазон.Row + 1, 1)) <> "" Then _
                sStr = sStr & IIf(sStr <> "", Разделитель, "") & Диапазон_сцепления.Cells(rCell.Row - Диапазон.Row + 1, 1)
        End If
    Next rCell
    СцепитьЕсли = sStr
End Function