Распределение содержимого ячейки

[Монаx]

Добрый день! Помогите советом как раскидать данные из одной ячейки по нескольким с помощью формул. Суть: необходимо из одной ячейки в которой много фирм раскидать на несколько ячеек где будет отдельно своя фирма, а так же из полученных ячеек достать в отдельные, номера телефонов и e-mail адреса.
З.Ы. : Текст в ячейке в перемешку цифры буквы разным размером.

[EducatedFool]

Это вы вручную с сайта скопировали?
Excel может сам выполнить запрос к сайту - и результаты будут разбиты по ячейкам

Обязательно формулы? макрос не подойдёт?
Это надо сделать один раз, или раскидывать данные придётся регулярно?

[Монаx]

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

Это вы вручную с сайта скопировали?
Excel может сам выполнить запрос к сайту - и результаты будут разбиты по ячейкам

Обязательно формулы? макрос не подойдёт?
Это надо сделать один раз, или раскидывать данные придётся регулярно?

Да это ручками с сайта сделано, ибо нет иной возможности достать более актуальную информацию. Формулы выбраны из за своей кажущейся простоты, так как с макросами дел не имел. Акция разовая далее необходимости в такой обработке не будет.

[Hugo121]

Полпути, макрос:

Option Explicit

Sub tt()
Dim a, b, i
a = Split([a1], "Добавить Отзывы/Рейтинг")
ReDim b(1 To UBound(a) + 1, 1 To 1)
For i = 0 To UBound(a): b(i + 1, 1) = Application.Trim(Replace(a(i), "Добавить прайс-лист", "")): Next
[b1].Resize(UBound(a) + 1).Value = b
End Sub

[Монаx]

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

Полпути, макрос:

Option Explicit

Sub tt()
Dim a, b, i
a = Split([a1], "Добавить Отзывы/Рейтинг")
ReDim b(1 To UBound(a) + 1, 1 To 1)
For i = 0 To UBound(a): b(i + 1, 1) = Application.Trim(Replace(a(i), "Добавить прайс-лист", "")): Next
[b1].Resize(UBound(a) + 1).Value = b
End Sub

Правда не знаю как это использовать. Дольше буду разбираться. Уж лучше бы формулой.

[Монаx]

Попробовал подставить как понял не получается, выдает пустые ячейки

[Hugo121]

Клик по ярлыку листа - исходный текст - вставить код - выполнить

[Монаx]

а принт скрин процесса если не сложно.

[Hugo121]

Да что тут принтскринить?
Ярлык листа известно где, по нему правым мышом, в меню выбрать "исходный текст", в открывшееся окно закопипастить текст макроса.
Теперь ищем кнопку RUN - на панели или в меню.
Результатом будут вытянутые в столбик B данные вида

Ортикон ООО
Новосибирская обл., 630088, г. Новосибирск, Кировский р-н, ул. Сибиряков-Гвардейцев, д. 60 эт. 1

(383) 279-23-26 - телефон единая справочная

opt@mail.ru

Правда сейчас заметил косяк - там не всюду есть "Добавить Отзывы/Рейтинг", поэтому делить лучше по "Отзывы/Рейтинг", а "Добавить " потом убрать заменой.

Т.е.

Sub tt()
Dim a, b, i
a = Split([a1], "Отзывы/Рейтинг")
ReDim b(1 To UBound(a) + 1, 1 To 1)
For i = 0 To UBound(a): b(i + 1, 1) = Application.Trim(Replace(Replace(a(i), "Добавить прайс-лист", ""), "Добавить ", "")): Next
[b1].Resize(UBound(a) + 1).Value = b
End Sub

Хотя мне кажется, что если вставлять данные не в строку формул, а в ячейку - то они и сами должны по строкам примерно так расположиться, только с лишними "Добавить прайс-лист"...

[Монаx]

Спасибо всем за помощь.