Любителям сложных формул посвящается!

[ZORRO2005]

Друзья,
Задание во вложении.

[vladtr]

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

Друзья,
Задание во вложении.

У Вас, и так все там в порядке... Вопрос не поставлен, приходиться догадываться. Я так понял, необходимо написать функцию, которая использует в качестве параметра значения в ячейки заголовка таблицы (в вашем случае, то что выделено зеленым цветом). Если писать формулу то, я бы отдал предпочтение тем, которые есть. Зачем городить мега формулы, если и так все просто, понятно и компактно.

[SAS888]

Может быть Вам подойдет решение на VBA?
Просто измените значения заголовков столбцов с условиями (столбцы "J:L").
Обрабатывается любое количество строк. Можно обойтись и без предварительного разбиения текста по столбцам.

[ZORRO2005]

SAS888,
СУПЕР!Спасибо большое!
Можно сделать чтобы лишние пробелы не съедались?
Допустим я хочу сделать 3 пробела между словами 1 и 3 столбцов.

[SAS888]

А я наоборот, специально это делал. Но, если нужно, то из кода нужно выбросить функцию Application.Trim(...). Для этого, строки

For n = 1 To Len(Application.Trim(Cells(1, j)))
Ident = Mid(Application.Trim(Cells(1, j)), n, 1)

нужно поменять на

For n = 1 To Len(Cells(1, j))
Ident = Mid(Cells(1, j), n, 1)

[Konstantin_Z]

в J2 формулу:
=СЦЕПИТЬ(ЕСЛИ(ЕЧИСЛО(ЗНАЧЕН(ПСТР(J$ 1;1;1)));ИНДЕКС($C2:$I2;1;ПОИСКПОЗ( ПСТР(J$1;1;1);$C$1:$I$1;0));ПСТР(J$ 1;1;1));ЕСЛИ(ЕЧИСЛО(ЗНАЧЕН(ПСТР(J$1 ;2;1)));ИНДЕКС($C2:$I2;1;ПОИСКПОЗ(П СТР(J$1;2;1);$C$1:$I$1;0));ПСТР(J$1 ;2;1));ЕСЛИ(ЕЧИСЛО(ЗНАЧЕН(ПСТР(J$1; 3;1)));ИНДЕКС($C2:$I2;1;ПОИСКПОЗ(ПС ТР(J$1;3;1);$C$1:$I$1;0));ПСТР(J$1; 3;1));ЕСЛИ(ЕЧИСЛО(ЗНАЧЕН(ПСТР(J$1;4 ;1)));ИНДЕКС($C2:$I2;1;ПОИСКПОЗ(ПСТ Р(J$1;4;1);$C$1:$I$1;0));ПСТР(J$1;4 ;1));ЕСЛИ(ЕЧИСЛО(ЗНАЧЕН(ПСТР(J$1;5; 1)));ИНДЕКС($C2:$I2;1;ПОИСКПОЗ(ПСТР (J$1;5;1);$C$1:$I$1;0));ПСТР(J$1;5; 1));ЕСЛИ(ЕЧИСЛО(ЗНАЧЕН(ПСТР(J$1;6;1 )));ИНДЕКС($C2:$I2;1;ПОИСКПОЗ(ПСТР( J$1;6;1);$C$1:$I$1;0));ПСТР(J$1;6;1 )))

и тянуть сначала вправо, а потом вниз
ограничение формулы: только для 6-ти смволов из ячеек J1:L1

если надо больше заходите в СЦЕПИТЬ() щелкаете текст6, копируете, ставите ; вставляете, меняете во всех ПСТР(J$1;6;1) только что вставленного куска среднюю цифру на 7 и т.д.

[ZORRO2005]

Konstantin_Z,
спасибо