Помощь в VBA⁠⁠

Мало вводных.

Если есть таблица *-Код-*-регион, то можно сделать =ВПР(1;2;3;ИСТИНА)

где 1 - код из этой таблицы

2 - таблица из которой ищем значение, выделяем начиная со столбика с кодом до столбика с регионом, и обязательно нажимаем F4, чтоб зафиксировать таблицу при растягивании

3 - это порядковый номер столбика с регионом, где столбик с кодом - это 1.

То есть, если у Вас Номер стоки-код-область-город, то будет

=ВПР(<код>;'[Таблица кодов.xlsx]Лист 1'!R2C2:R700C4;3;ИСТИНА)

Теперь как искать код:

Тут важен формат номера в телефоне, например, если код выделен скобками или после него пробел (там может быть ещё пол-пробела, так что лучше скопировать пробел и вставить в формулу): (903) 111-11-11 или '+7 (903) 111-11-11, 903 111-11-11,то можно добавить скрытый столбец слева, там =поиск(")";RС[1])

потом фиксируем первый символ кода (2, для первого и 5 для второго формата, тут использую 2) добавляем еще один скрытый столбец слева, там: =ПСТР(RC[2];2;RC[1]-2) получаем код для вставки. Если скрытые столбцы не хочется, то все формулы можно объединить (формулы для столбца слева):

=ВПР(ПСТР(RC[1];2;поиск(")";RС[1])-2);'[Таблица кодов.xlsx]Лист 1'!R2C2:R700C4;3;ИСТИНА)

Если такой таблицы нет, но есть таблица *-регион-*-код и её нельзя откопировать и поменять столбики местами, то чуть сложней можно через ИНДЕКС и ПОИСКПОЗ примерно тоже самое сделать.

Если вообще таблицы нет, то можно включить данные, потом включить там по поиску все с кодом опять со скобками и/или пробелом ищем, чтоб лишнее не находил, а потом вставлять в уже полуручном режиме