Разделение слова на буквы в определенные ячейки в один ряд

Разделение слова на буквы в определенные ячейки в один ряд, Разделение слова на буквы в определенные ячейки в один ряд

Пользователь

Сообщений: 6 Регистрация: 20.12.2019

01.04.2022 19:29:21

Здравствуйте уважаемые форумчане, и снова обращаюсь к вам за помощью, так как не раз вы меня выручали. Так как информации много, использование функции эксель приводит к нагрузке файла, поэтому прошу вас помочь с написанием макроса для облегчения работы и сохранения малого объема файла.
Есть журнал с данными на листе "Список", и пустая утвержденная форма бланка на другом листе "Бланк" с пустыми ячейками . Необходимые действия:

1) Данные из определенных ячеек листа "Список" должны разделиться по буквам и заполнить нужные ячейки на листе "Бланк".
2) На листе "Список", в столбце "А", на какую строку поставить символ "х", данные этой строки должны заполнить ячейки на листе "Бланк"

Сложность в том, что на листе "Бланк" ячейки предназначенные для данных (то есть букв) расположены через один. Приведен пример в прикрепленном файле.

Заранее спасибо всем за любые попытки помочь.

Прикрепленные файлы

Пример.xlsm (10.2 КБ)

jakim

Пользователь

Сообщений: 2045 Регистрация: 01.03.2013

01.04.2022 20:12:25

Формула

Код
=IF(ISODD(COLUMNS($A:A));MID(Список!$B1;CEILING(COLUMNS($A:A)/2;1);1);"")

Прикрепленные файлы

Пример-1.xlsm (11.3 КБ)

Ігор Гончаренко Пользователь Сообщений: 14576 Регистрация: 01.01.1970	#3 01.04.2022 20:23:58 см.вложение Прикрепленные файлы Пример (47).xlsm (17.77 КБ) Программисты - это люди, решающие проблемы, о существовании которых Вы не подозревали, методами, которых Вы не понимаете!

kru

Пользователь

Сообщений: 6 Регистрация: 20.12.2019

04.04.2022 14:33:15

Цитата
написал: Прикрепленные файлы Пример (47).xlsm (17.77

Здравствуйте Игорь. Все работает отлично. Огромное спасибо Вам!!! У меня одна просьба, могли бы Вы комментировать код, чтобы знать что какую команду выполняет. Чтобы по Вашим комментариям я мог изменить код и использовать в других журналах.

kru Пользователь Сообщений: 6 Регистрация: 20.12.2019	#5 04.04.2022 14:34:46 1 Изменено: kru - 04.04.2022 14:36:30 (дублирование)

Ігор Гончаренко Пользователь Сообщений: 14576 Регистрация: 01.01.1970	#6 04.04.2022 15:24:49 в модуле листа Список макрос Sub Worksheet_Change следит за изменениями на листе, если в колонке А, была поставлена любая метка, то 3 соседние ячейки (В, С, Д) передаются в процедуру FIOS FIOS Target.Offset(0, 1).Resize(1, 3) процедура FIOS в мождуле1 раскладывает полученные Фамилию, Имя, Отчество по буквам в ячейки 1,3,5-й строк первого листа Программисты - это люди, решающие проблемы, о существовании которых Вы не подозревали, методами, которых Вы не понимаете!