Нужна функция =сцепить(), только с условием

[Snekich]

Объясню на примере:
В столбце А1:А100 в некоторых ячейках есть текст, а некоторые пустые.
В столбце В1:В100 все ячейки заполнены текстом.

В ячейках столбца D надо получить результат:

Если А1 не пустая, то D1 будет равняться В1
Если А2 пустая, то D1 будет равняться сцепить(В1;" ";В2)
Если и А3 пустая, то D1 будет равняться сцепить(В1;" ";В2;" ";В3)
И так далее пока ячейка А будет пустой.

При этом, если ячейка А пустая, то ячейка D в этой строке тоже будет пустой.
т.е. Если в данном примере функцию вставить в строки D2 и D3 то результат будет "".


Если написать формулу из имеющихся стандартных функций, то получится так:
=ЕСЛИ(A1<>"";ЕСЛИ(A2<>"";B1;ЕСЛИ(A3 <>"";СЦЕПИТЬ(B1;" ";B2);ЕСЛИ(A4<>"";СЦЕПИТЬ(B1;" ";B2;" ";B3);СЦЕПИТЬ(B1;" ";B2;" ";B3;" ";B4))));"")

Только эта формула ограничивается четырьмя "ячейками ниже", да и не универсальная... если что каждый раз надоест "переделывать".

Как написать функцию, что бы в итоге она делал то же самое, то вид ее был, например, такой:
=unite(A1;B1)

[vikttur]

Кроим, шьем, сцепляем. Задаром. На Ваших файлах.

[Snekich]

Сообщение от vikttur

Кроим, шьем, сцепляем. Задаром. На Ваших файлах.

Прицепил файл к первому сообщению.
Буду очень благодарен за помощь.

[Казанский]

С вспомогательным столбцом:

[Snekich]

Сообщение от Казанский

С вспомогательным столбцом:

Спасибо, но по сути почти то же самое, только еще вспомогательный столбец.
Мне бы в идеале НОВУЮ функцию как-нибудь придумать...
(Public Function ....)

[kuklp]

Public Function Conc$(c As Range)
    If c.Value = "" Then Exit Function
    If Range(c, c.End(xlDown).Offset(-1)).Offset(, 1).Count = 1 Then Conc = c.Offset(, 1): Exit Function
    Conc = Trim(Join(Application.Transpose(Range(c, c.End(xlDown).Offset(-1)).Offset(, 1).Value), " "))
End Function

[Snekich]

Сообщение от kuklp

Public Function Conc$(c As Range)
    If c.Value = "" Then Exit Function
    If Range(c, c.End(xlDown).Offset(-1)).Offset(, 1).Count = 1 Then Conc = c.Offset(, 1): Exit Function
    Conc = Trim(Join(Application.Transpose(Range(c, c.End(xlDown).Offset(-1)).Offset(, 1).Value), " "))
End Function

Отлично! Огромное спасибо. Только еще бы переменную ввести одну "количество столбцов направо".
Сделал так:

Public Function Conc$(c As Range, x As Integer)
If c.Value = "" Then Exit Function
If Range(c, c.End(xlDown).Offset(-1)).Offset(, x).Count = 1 Then Conc = c.Offset(, x): Exit Function
Conc = Trim(Join(Application.Transpose(Ran ge(c, c.End(xlDown).Offset(-1)).Offset(, x).Value), " "))
End Function

[Snekich]

Сообщение от kuklp

Public Function Conc$(c As Range)
    If c.Value = "" Then Exit Function
    If Range(c, c.End(xlDown).Offset(-1)).Offset(, 1).Count = 1 Then Conc = c.Offset(, 1): Exit Function
    Conc = Trim(Join(Application.Transpose(Range(c, c.End(xlDown).Offset(-1)).Offset(, 1).Value), " "))
End Function

Еще буду благодарен, если скинете ссылку где можно подробно почитать о всех "словах" которые использованы в данной функции.
Как работает понял и догадываюсь значении всего что в ней использовано, но хочется поподробней почитать, что бы самому разобраться.

[kuklp]

где можно подробно почитать о всех "словах"

Я обычно пользуюсь клавишей F1.