Теперь Кью работает в режиме чтения

Мы сохранили весь контент, но добавить что-то новое уже нельзя

Как вывести в строчку все номера разных журналов, которые перечислены в столбик?

Коллеги, добрый день!

ИСХОДНЫЕ:

Есть список записей (несколько сотен) в Excel вида: "Название журнала №", например: "Аргументы и факты №1"

Т. е. список выглядит так:

"Аргументы и факты №1"

"Время №10"

"Аргументы и факты №2"

"Аргументы и факты №4"

ЗАДАЧА:

Вывести список журналов, напротив каждого из которых в строчку вывести все номера, которые встречаются в списке.

В случае со списком, приведенным в качестве примера выше, результат был бы таким:

Аргументы и факты №1 №2 №4

Время №10

ВОПРОС:

С помощью каких формул, функций или макросов можно такое реализовать? Предпочтительнее наиболее простой вариант.

Спасибо!

ExcelФормулы+2
Кирилл Рыжков
  ·   · 226
Автоматизация любых задач, отнимающих массу...  · 2 мар 2020

В столбце A исходные данные, начиная с A2

  • B2: =ЛЕВСИМВ(A2;НАЙТИ("№";A2))
  • C2:=СЧЁТЕСЛИ(ДВССЫЛ("B2:"&АДРЕС(СТРОКА()-СТРОКА($B$1)+1;СТОЛБЕЦ($B$2)));B2)
  • D2: =C2&B2
  • E2: =ЕСЛИ(СЧЁТЕСЛИ(ДВССЫЛ("$B$2:"&АДРЕС(СТРОКА();СТОЛБЕЦ($B$2)));B2)=1;B2;"---")
  • F2: =ЛЕВСИМВ(E2;ДЛСТР(E2)-1)
  • G2: =ЕСЛИОШИБКА(ПСТР(ДВССЫЛ("A"&(СТРОКА($A$2)-1+ПОИСКПОЗ((СТОЛБЕЦ()-СТОЛБЕЦ($G2)+1)&$E2;$D$2:$D$15;0)));ДЛСТР($E2);100);"----")

ячейку G2 растягивем вправо подальше и затем всю строку , начиная с G2 растягиваем вниз

Реестр.png

Спасибо большое!