Разбить текст формулой макросом

Дата: Суббота, 26.10.2024, 13:18 | Сообщение № 1

Группа: Проверенные

Ранг: Форумчанин

Сообщений: 219

Репутация: 0 ±

Замечаний: 40% ±

2019

Добрый день, уважаемые!

Подскажите пожалуйста формулы или макрос, которая разделит данные в строке!

К сообщению приложен файл: v_chat_rebjatam.xlsx (14.7 Kb)

Vadym Gorokh

Сообщение отредактировал grh1 - Суббота, 26.10.2024, 13:19

Дата: Суббота, 26.10.2024, 16:56 | Сообщение № 2

Группа: Проверенные

Ранг: Обитатель

Сообщений: 323

Репутация: 104 ±

Замечаний: 0% ±

Здравствуйте. Посмотрите вариант с формулами.

К сообщению приложен файл: v_chat_rebjatam_1.xlsx (15.5 Kb)

Дата: Суббота, 26.10.2024, 17:20 | Сообщение № 3

Группа: Проверенные

Ранг: Форумчанин

Сообщений: 219

Репутация: 0 ±

Замечаний: 40% ±

2019

i691198, просто супер!!!
спасибо большое.

Vadym Gorokh

Дата: Суббота, 26.10.2024, 18:08 | Сообщение № 4

Группа: Проверенные

Ранг: Форумчанин

Сообщений: 219

Репутация: 0 ±

Замечаний: 40% ±

2019

i691198, есть некорректность
посмотрите в самом начале слово Lesen (ну и ниже по списку) съедается первая буква...
Вместо Lesen получаем esen

Vadym Gorokh

Дата: Суббота, 26.10.2024, 18:46 | Сообщение № 5

Группа: Проверенные

Ранг: Обитатель

Сообщений: 323

Репутация: 104 ±

Замечаний: 0% ±

Ну да, вижу. поправил формулу. Для ячейки Q5.

Код

=ЕСЛИОШИБКА(ЕСЛИ(P5<>"";ПСТР(A5;ПОИСК(P5;A5)+4;ПОИСК("—";A5)- ПОИСК(P5;A5)-5);ПСТР(A5;ПОИСК(".";A5)+2;ПОИСК("—";A5)- ПОИСК(".";A5)-3));"")

Дата: Суббота, 26.10.2024, 20:20 | Сообщение № 6

Группа: Проверенные

Ранг: Форумчанин

Сообщений: 219

Репутация: 0 ±

Замечаний: 40% ±

2019

i691198, чтобы не портить всю "композицию" формул, я просто переправил нумерацию с 1 по 9 добавив впереди ноль...
01
02
03
...
и т.д. и всё работает корректно с первоначальной формулой..

спасибо еще раз

Vadym Gorokh

Сообщение отредактировал grh1 - Суббота, 26.10.2024, 20:21

Дата: Суббота, 26.10.2024, 21:15 | Сообщение № 7

Группа: Проверенные

Ранг: Обитатель

Сообщений: 323

Репутация: 104 ±

Замечаний: 0% ±

Цитата grh1, 26.10.2024 в 20:20, в сообщении № 6 (

)

чтобы не портить всю "композицию" формул

Что значит "не портить". Нужно вставить эту формулу в Q5 и протянуть ее до вниз, можно с запасом. Ваш способ - это кривой костыль, и при трехзначной нумерации опять будут ошибки - лишние символы.

Дата: Суббота, 26.10.2024, 21:35 | Сообщение № 8

Группа: Проверенные

Ранг: Форумчанин

Сообщений: 219

Репутация: 0 ±

Замечаний: 40% ±

2019

Цитата i691198, 26.10.2024 в 21:15, в сообщении № 7 (

)

Нужно вставить эту формулу в Q5

тире длинное выскакивает если использовать формулу, которую вы говорите

Vadym Gorokh

Дата: Суббота, 26.10.2024, 21:46 | Сообщение № 9

Группа: Проверенные

Ранг: Форумчанин

Сообщений: 219

Репутация: 0 ±

Замечаний: 40% ±

2019

i691198, да, Вы правы - это я не совсем корректно вставил формулу.
Спасибо

Vadym Gorokh

Дата: Суббота, 26.10.2024, 21:56 | Сообщение № 10

Группа: Проверенные

Ранг: Обитатель

Сообщений: 323

Репутация: 104 ±

Замечаний: 0% ±

Цитата grh1, 26.10.2024 в 21:35, в сообщении № 8 (

)

тире длинное выскакивает

Для данных из вашего примера не вижу никаких тире. Или это другие данные?

Дата: Воскресенье, 27.10.2024, 00:18 | Сообщение № 11

Группа: Проверенные

Ранг: Форумчанин

Сообщений: 219

Репутация: 0 ±

Замечаний: 40% ±

2019

i691198, ответил сообщением выше...

Vadym Gorokh