365:
Код
=СБРОСИТЬ(REDUCE("";СБРОСИТЬ(REDUCE("";BYROW(A2:C5;LAMBDA(x;ОБЪЕДИНИТЬ("@";;x)));LAMBDA(s;c;ВСТОЛБИК(s;ТЕКСТДО(c;"@";-1)&"@"&ТЕКСТРАЗД(ТЕКСТПОСЛЕ(c;"@";-1);;СИМВОЛ(10)))));1);LAMBDA(s;c;ВСТОЛБИК(s;--ТЕКСТРАЗД(c;"@"))));1)
разбор тут
пы.сы. ещё вот так можно
Код
=СБРОСИТЬ(REDUCE("";C2:C5;LAMBDA(s;c;ВСТОЛБИК(s;СБРОСИТЬ(REDUCE("";--ТЕКСТРАЗД(c;;СИМВОЛ(10));LAMBDA(ss;cc;ВСТОЛБИК(ss;ГСТОЛБИК(СМЕЩ(c;;-2;1;2);cc))));1))));1)
или вообще так
[vba]Код
=СБРОСИТЬ(REDUCE("";C2:C5;LAMBDA(s;c;ВСТОЛБИК(s;LET(x;--ТЕКСТРАЗД(c;;СИМВОЛ(10));ГСТОЛБИК(ИНДЕКС(A:B;ПОСЛЕД(ЧСТРОК(x);;СТРОКА(c);0);{1;2});x)))));1)
[/vba]
(в тегах кода, потому как ничего не меняется уже сколько лет - переводчик формул откровенно врёт и подставляет несуществующую функцию вместо LET...)