Отбор синонимичных значений ячеек столбца

Здравствуйте.
Task такой. Есть 2 столбца. В первом какие-либо данные/артикулы. В соседнем их сотни, но среди этих сотен есть те, что синонимичны значениям из первого столбца.
Есть уже промежуточное решение, но его бы доработать.
Отбор синонимичных значений является промежуточным результатом (который можно не отображать). Главное - результирующий массив, где под каждым значением ячейки-аргумента функции вставляются отобранные синонимичные значения. Например, в алфавитном порядке. Желательно, кончено, чтобы сначала шли значения с числовыми суффиксами, а уже потом значения с суффиксами, содержащими какие-либо буквы.
Причём именно с суффиксами, без значений с префиксами.
Если синонимичных значений нет, то в результирующий массив просто попадает ячейка.
Из файла примера всё станет ясно.
В общем, было бы супер иметь такое решение, а то я по очереди юзаю 2 макроса: сначала для отбора, потом для объединения. Оба файла с ними прилагаю.
Отбор к слову, написан хорошо, но не идеально. Он допускает префиксы и дубликаты искомых значений. Почему - не знаю. Писал его не я.
Сами коды макросов во вложении, но я думаю, что на VBA проще писать с нуля.

Вложения

	Файл примера.xlsx (17.6 Кб, 18 просмотров)
	Макросы.docx (13.3 Кб, 15 просмотров)

0

Сообщение от Rost_13 Из файла примера всё станет ясно

Rost_13, вoзмoжнo вас немнoжкo oгoрчу, не сталo.
Чтoбы пoнять чтo вам нужнo, объясните чтo в вашем пoнимании или
в пoнимании этoй задачи значит:
- синoнимичнoе значение
- суффикс
- префикс
Приведите примеры, скажем для искoмoгo значения "3",
всех синoнимичных значений из членoв прoсматриваемoгo массива.
Приведите примеры для значения "3" суффиксoв и префиксoв из данных
прoсматриваемoгo массива.

0

Сообщение от Rost_13 Из файла примера всё станет ясно

Присоединюсь к elixi с дополнением:
почему пример в xlsx а тексты макросов в docx? Чтобы помогающие попрактиковались в копировании и вставке текстов в модули?

Сообщение от Rost_13 Отбор к слову, написан хорошо, но не идеально

К кому претензии? К написавшему код или к копировщику кода? После первого же "If" нет пробела перед InStr, дальше смотреть не стал. Поверьте весь код, может проблемы и отпадут.

0