Какие действия мне нужно сделать в таблице?

Question

[akarmikik]

Вечер добрый! Есть большое количество данных, просто написанных по строкам (изб. 1). Нужно сделать таблицу так, чтоб в столбце "название" расположился только "жирный" текст (который и является названием фирм). При этом там есть различные данные по типу "телефон 1", "телефон 2", "сайт". Не могу понять какие формулы подобрать и вообще какой алгоритм действий, чтоб нормально настроить таблицу (изб.2)

Comments

[Александр]

Почувствуйте ритм. Поймайте волну.

Answer 1

[Даниил Бабкин]

Я вижу 2 способа - "одноразовый на костылях" и многоразовый.
Для многоразового пилите Powerquery запрос.
Для одноразового

1. создайте столбец слева (пусть столбец А)
   
2. фильтром выделите все жирные строки (фильтр по формату) и проставьте в поле А что-либо (н., цифру 1)
   
3. снимите фильтр и в 10 полей справа от вашего контента, начиная с поля C2, вставьте формулу: =ЕСЛИ($A2=1;ЕСЛИ((СМЕЩ($A2;СЧЁТЗ($B2:B2);0)="")*(СЧЁТЗ($B2:B2))*(B2<>"");СМЕЩ($B2;СЧЁТЗ($B2:B2);0);"");"")
   

Формула дана для ячейки C2. Если у вас первая ячейка будет другая, то просто измените номер строки (2) на нужный и растяните формулу.
Формула не самая изящная, но рабочая.
Удачи.

Comments

[Даниил Бабкин]

John Smith, вы правы, на фильтрах и формулах определить жирность невозможно без доработок.
Посему нужно вставить макрос:

Function ЕЖИРНЫЙ(ЯЧЕЙКА As Range) As Boolean
  ЕЖИРНЫЙ = ЯЧЕЙКА.Font.Bold
End Function

И в поле А2 и ниже добавить формулу:
=если(ЕЖИРНЫЙ(A2);1;"")

Answer 2

[hint000]

Смотрите ответ на почти такой же вопрос: Как расположить текст в excel по столбцам?
Разница в том, что там цикл составлял 3 строки, а у вас 8 строк. Поэтому вам на 10..20 секунд больше ручной работы, чем там. :) Но суть та же.

Answer 3

[Sergey В.]

Вам нужен макрос, который последовательно переберет все строки и запишет (например в другой лист) строки с font.bold = true

Comments

[Александр]

Не нужен макрос. В расположении данных на картинке есть чёткий ритм, формулы «на ура» справятся.

Answer 4

[Андрей Несветаев]

Вообще передать привет тому кто вёл таблицу. Макрос не напишу, но начал бы с

Function ШРИФТИМЯ(ЯЧЕЙКА As Range) As String
    ШРИФТИМЯ = ЯЧЕЙКА.Font.FontStyle
End Function

Банально что бы можно было выделить "жирный" текст, а оттуда уже плясать с группировкой.
Но лучше конечно посидеть и написать макрос как сказал BasiC2k

Comments

[Александр]

Вообще передать привет тому кто вёл таблицу.

Никто её в представленном виде не вёл. Видно же! Импортирована из базы данных.