Сцепить данные массива по условию

[Доктор]

Доброго времени суток!
Помогите плз решить проблему:
в столбцах Q:AA находятся отметки "ДА" о прохождении деталями той или иной операции. В строке Q1:AA1 находятся порядковые номера этих операций. Необходимо сделать так, чтобы в столбце P сцеплялись через пробел порядковые номера тех операций, где стоит "ДА".
Пример: в P3 6 7
в P4 1 2 7

С УВАЖЕНИЕМ,
Док

[Казанский]

Тупо в лоб

=СЖПРОБЕЛЫ(ЕСЛИ(Таблица13[[#Эта строка];[Лазер]]="да";Q$1;"")&" "&
ЕСЛИ(Таблица13[[#Эта строка];[Гибка]]="да";R$1;"")&" "&
ЕСЛИ(Таблица13[[#Эта строка];[Труборез]]="да";S$1;"")&" "&
ЕСЛИ(Таблица13[[#Эта строка];[Трубогиб]]="да";T$1;"")&" "&
ЕСЛИ(Таблица13[[#Эта строка];[Слесарка]]="да";U$1;"")&" "&
ЕСЛИ(Таблица13[[#Эта строка];[Сварка]]="да";V$1;"")&" "&
ЕСЛИ(Таблица13[[#Эта строка];[Покраска]]="да";W$1;"")&" "&
ЕСЛИ(Таблица13[[#Эта строка];[Токарка ЧПУ]]="да";X$1;"")&" "&
ЕСЛИ(Таблица13[[#Эта строка];[Фрезеровка ЧПУ]]="да";Y$1;"")&" "&
ЕСЛИ(Таблица13[[#Эта строка];[Универс. ТиФ]]="да";Z$1;""))

В VBA это делается в одну строку, потому что там есть функция Join

Function Route()
  Route = Trim(Join([IF(Таблица13[[#This Row],[Лазер]:[Универс. ТиФ]]="да",Q1:Z1&" ",""], ""))
End Function

[Доктор]

Доброго дня.
Спасибо, что откликнулись.
Сейчас буду пробовать.

С уважением,
Док