Сложная замена значений в ячейке с исключениями

@uranium238 · Регистрация: 12.04.2013

Студворк — интернет-сервис помощи студентам

Здравствуйте Уважаемые Форумчане
Прошу помочь разобраться.

Имеется таблица стран с наименованием, кодом, расположением, признаком группировки и столбец ячеек, в каждой из которых находится некоторое перечисление скольких-то стран или наименования объединений.
Необходимо заменить ячейку перечислением кодов стран через запятую. Сложность заключается ещё и в том, что попадаются исключения из групп, например, группа стран Азии, исключая Японию, Китай.

Подскажите идею. Подходящий алгоритм так и не нашёл. Буду рад любой поддержке.
Файл списка во вложении.
Спасибо.

@ikki · 15.04.2013, 13:18

Не по теме:

таки да - второе название испанское.
хотя вики говорит, что оно "происходит от французского"
если оч. интересно - http://ru.wikipedia.org/wiki/Фолклендские_острова
на приведенной карте похожее написание - Фолклендские (Мальвинские) острова
но как-то явно не написано по поводу стандарта названия.
а вообще-то - законная территория Великобритании.

@Igor_Tr · 15.04.2013, 13:38

To Ikki Я тут и так веселюсь на полную. Почему возникло? Перечисление исключений в скобках, а в них еще скобки с уточнениями (Мальвинские). Не знаю, как это вяжется с грамматикой. И с чем это кушать? Или это пить надо?

Ладно, что-то придумаю.

@ikki · 15.04.2013, 13:40

Не по теме:

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

Я тут и так веселюсь на полную.

приношу свои соболезнования
:handshake:

@Igor_Tr · 15.04.2013, 13:42

Да нет. Спасибо, конечно, но это для меня просто как игрушка для разрядки.

@uranium238 · 16.04.2013, 13:26 **[ТС]**

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

)
Далее, планирую уточнить противоречивость данных, т.к. реально бред выходит. Об этом я написал на ПланетеЕксель, но видимо, все участники туда уже заглядывали.
Задача обработки всё же интересна, но всё портят исходники.

@Igor_Tr · 16.04.2013, 18:27

Ну, Вы сильно не радуйтесь.

Просто у меня очень много меньше стало свободного времени. Сезон. Но, если куда-то не затянут под конец дня, вечером, думаю, закончу. Мелочь осталась

@Igor_Tr · 16.04.2013, 23:42

Нет, ну я действительно думал долго на счет уточнение "Мальвинские". Уже хотел махнуть рукой. Но тут до меня дошло.

ЭТО ДЛЯ ПАРАШУТИСТА!!! ЧТО Б НЕ ПРОМАХНУЛСЯ!!!

Жалко стало, намокнет.
Коротше так. Давайте хоть минимально какие-то правила устновим. В названиях (Лист1) уточнения берете в квадратные скобки. Исключения на Листе2 - в круглые. Названия на листе2 должны соответствовать названиям в листе1, в том числе и квадратные скобки. А то там действительно чехарда. Запустил по критериям ячейки "B6" - не нашел несколько значений. Вот результат моих расследований:

Лист2: Боливия – Лист1 : Боливия, Многонациональное Государство
Лист2: США - Лист1 : Виргинские острова, США
а в таблице вобще загадочно:

Соединенные Штаты

Соединенные Штаты Америки

840

Америка

Лист2: Венесуэла – Лист1 : Венесуэла Боливарианская Республика

Бардак...
По коду. На листе 2 активируете нужную ячейку с параметрами и кнопка START. Рез-ты будут рядом. Не маленькие

Еще там есть процедура Private Sub CriteriaOnSheets() привязаная к листу «Аркуш1». Выкладывает разборки с текстом на этот лист. Хотел удалить - но передумал. Не нужно будет -сами удалите. Вобщем, пробуйте. Все использованные функции в отдельном модуле. Удачи. Вам. И мне тоже, а то, чувствую, Ikki за мои издевательства над регулярными, меня закопает.

Помните про меня только хорошее....

@Igor_Tr · 18.04.2013, 01:55

Прошу извинения. Думаю: "Что мне мозги кусает?" Час назад дошло - правила без исключений! (идут первые), при проверке правил с исключениями!, нужно включать в исключения !!! для избежания повторов. (Свята Мария! Чуть язык не сломал!)

Как-раз тот случай с Польшей, ЕС, Европой и барабанами. Но нет ничего плохого без хорошего. Я там еще добавил пару строк. После проверки, код создаст лист с выборкой нужных Вам стран и кодов (и покажет их кол-во). Уже будет легче проверять. Нагляднее, вместо кучи цифр и запятых. Лист назовет автоматом с указанием ячейки листа2, в которой критерии. Ганяйте его до потери. Если поменяете критерии в ячейке, соответствующий лист удалять не нужно - код его и так перезаписывает. Выловите ошибку - дайте знать. Исправим. Пример хороший. В свободное время буду его ганять по регуляркам. И еще. Если нужно сразу пройти по всем ячейкам столбца "В" листа2, в процедуре GeneralStart поставьте цикл. Если не сможете - я сделаю. Там еще пару строк дописать, но не знаю, или Вам надо.

@Igor_Tr · 18.04.2013, 02:06

Весна. О чем думаю?
!!! Забыл!!! Нужно подключить библиотеки. В окне редактора VBA (F11) на панели выбираете

Tools > References

В окне, что появится, найдите и поставьте галочки перед этими библиотеками:

Microsoft VBScript Regular Expressions 5.5
Microsoft Scripting Runtime
Microsoft ActiveX Data Objects 2.5 Library

Новые блоги и статьи Все статьи Все блоги /
Запустил конкурс "тем и промптов для текстовых квестов созданных почти чисто ИИ" Adler 06.10.2026 Всем привет! За последние три-четыре дня я создал более 16 текстовых квестовых игр используя преимущественно по одному запросу к ИИ на игру. Мне так понравилось смотреть все ветки/ сцены во всех. . .	ИИ не может найти нужный язык в списке Supersumestria 05.10.2026 Я ему даю вот такое изображение и прошу найти и подчеркнуть немецкий язык. Возвращает он вот это: https:/ / i. **********/ vqBWLe2. png Нужную строчку в 3й колонке просто выдумал. . Это. . .	Новая последняя моя музыка в SUNO zorxor 05.10.2026 Здравствуйте, дорогие мои друзья! С большой радостью я хотел бы представить вам свою новую последнею музыку, которую сгенерировала мне по моей просьбе нейросеть SUNO. С уважением, zorxor. Это. . .	Программный домашний кинотеатр russiannick 27.09.2026 Сподобился на программный домашний кинотеатр. В качестве ЯВУ по традиции выбрал js. В помощники взял Яндекс-Алису. Было создано три зала на разные интересы. исторические и ретро сериал Хичкок. . .
Беседа с ИИ о программистах, недопускающих к созданию и правке кода генеративные ИИ и причины этого zorxor 21.09.2026 Раньше я радовался или получал некоторые эмоции, пусть небольшие, но всё же, от самого процесса написания кода, рекомпиляции и запуска, видя постепенное развитие программы и прочее. А теперь лень. . .	Мобильное приложение ColorStep pavlinmavlin 17.09.2026 Реализовал приложение Красный, Зеленый, Синий в Unity3d + c#. Название изменил на ColorStep. Приложение прошло модерацию и теперь доступно для скачивания. Делал его сам, шаг за шагом — и вот,. . .	Запрет дублирования строк в табличной части Maks 13.09.2026 Реализация из решения ниже выполнена на нетиповом справочнике "Нормы ТО" с табличной часть "Виды ТО", разработанного в КА2, со следующими реквизитами: - ВидТО (СправочникСсылка. ВидыТО); - ВидГСМ. . .	Скрипты Tampermonkey для CyberForum, ChatGPT, Claude и пр. Jin X 06.09.2026 Скрипты Tampermonkey для CyberForum, ChatGPT, Claude и пр. Работая с форумом и нейросетями в браузере часто хочется что-то подкорректировать или добавить какого-то функционала. Ниже прикреплён. . .

@ikki
	15.04.2013, 13:18
	Не по теме: таки да - второе название испанское. хотя вики говорит, что оно "происходит от французского" если оч. интересно - http://ru.wikipedia.org/wiki/Фолклендские_острова на приведенной карте похожее написание - Фолклендские (Мальвинские) острова но как-то явно не написано по поводу стандарта названия. а вообще-то - законная территория Великобритании. 0

@Igor_Tr 4377 / 661 / 36 Регистрация: 17.01.2010 Сообщений: 2,134
	15.04.2013, 13:38
	To Ikki Я тут и так веселюсь на полную. Почему возникло? Перечисление исключений в скобках, а в них еще скобки с уточнениями (Мальвинские). Не знаю, как это вяжется с грамматикой. И с чем это кушать? Или это пить надо? Ладно, что-то придумаю. 0

@Igor_Tr 4377 / 661 / 36 Регистрация: 17.01.2010 Сообщений: 2,134
	15.04.2013, 13:42
	Да нет. Спасибо, конечно, но это для меня просто как игрушка для разрядки. 0

@uranium238 0 / 0 / 0 Регистрация: 12.04.2013 Сообщений: 8
	16.04.2013, 13:26 [ТС]
	Спасибо всем не равнодушным, особенно Igor_Tr, который подстигнул интерес форумчан. Простите за "кривизну" исходных данных, надо было их как-то переработать (не нужные и кривые страны будут удалены ) Далее, планирую уточнить противоречивость данных, т.к. реально бред выходит. Об этом я написал на ПланетеЕксель, но видимо, все участники туда уже заглядывали. Задача обработки всё же интересна, но всё портят исходники. 0

@Igor_Tr 4377 / 661 / 36 Регистрация: 17.01.2010 Сообщений: 2,134
	16.04.2013, 18:27
	Ну, Вы сильно не радуйтесь. Просто у меня очень много меньше стало свободного времени. Сезон. Но, если куда-то не затянут под конец дня, вечером, думаю, закончу. Мелочь осталась 0