Нужен макрос разбивающий текст по заданным условиям

Старая форма входа

Страница 1 из 1 1
Модератор форума: китин, _Boroda_

Мир MS Excel » Вопросы и решения » Вопросы по VBA » Нужен макрос разбивающий текст по заданным условиям (Макросы/Sub)

alexp21

Дата: Суббота, 10.03.2018, 20:46 | Сообщение № 1

Группа: Пользователи

Ранг: Новичок

Сообщений: 36

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

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

Нужен макрос разбивающий текст из столбца «B» в столбцы «B, C, D, E» из заданных условий:

В файле с примером 2 Листа, Лист 1 - исходный текст, Лист 2 - необходимый результат.

1.Условие, считаем количество заполненных ячеек в столбцах «F, G, H, I» исходя из полученных данных делим текст на части, равные количеству заполненных ячеек. На примере, в строке 2, длинна текста 2519 символов и 4 заполненных ячейки «F, G, H, I», значит делим текст на 4 равные части по следующему принципу, ¼ символов, далее доходим до первого пробела и переносим оставшийся текст в следующую ячейку.

2.Условие, максимальная длинна текста 1500 символов, поэтому доходим 1450 символа далее до первого пробела и переносим оставшуюся часть текста в следующий столбец. Даже если у нас нет заполненных ячеек в столбцах «F, G, H, I»! При этом данные из этих ячеек необходимо дополнить скопировав из имеющихся ячеек, см. пример в 3 строке.