Макрос для сортировки

[pupszu]

Сообщение от Казанский

Циклы на самом деле не нужны. Достаточно

Columns("B").Replace "8921*", "Россия (моб.)"

Спасибо за совет, это повеселей. Но все-равно при появлении новых направлений придется лезть в макрос и править его. Это полюбому напряжней чем поправить табличку с кодами в экселе.

Сообщение от Казанский

Другое дело, что строки поиска надо отсортировать по длине, и сначала заменять более длинные строки. Иначе смотрите, например

8831	Н.Новгород
883130	Саров

Если сначала заменить 8831*, то в обоих случаях будет Н.Новгород.

Да, про это я уже давно подумал, но все-равно спасибо за заботу

[pupszu]

Сообщение от Казанский

Примерно так. Файл "code-legend.xlsx" должен находиться в папке с открытым файлом

Работает! Спасибо огромное!