Приведение всех телефонов к международному формату +7 xxx xxx-xx-xx в Excel

Решение с VBA
Код поместить в Модуль1 проекта VBA
Код
Sub Noner_norm()
i = 1 '1 (единицу) заменить, если номера начинаются не с первой строки
While Cells(i, 1) <> "" '1 (единицу) заменить, если номера не в первом столбце
n = Cells(i, 1) '1 (единицу) заменить, если номера не в первом столбце
If Len(n) = 8 Then n = Mid(n, 2)
If Len(n) = 7 Then nomer = "+7 86146 " & Mid(n, 1, 3) & "-" & Mid(n, 4, 2) & "-" & Mid(n, 6, 2)
If Len(n) = 12 Then nomer = "+7 " & Mid(n, 3, 3) & " " & Mid(n, 6, 3) & "-" & Mid(n, 9, 2) & "-" & Mid(n, 11, 2)
If Len(n) = 16 Then nomer = "+7 " & Mid(n, 5, 3) & " " & Mid(n, 10, 3) & "-" & Mid(n, 13, 2) & "-" & Mid(n, 15, 2)
Cells(i, 2) = nomer '2 (двойку) заменить, если исправленные номера вставлять не во второй столбец
i = i + 1
Wend
End Sub
После вставки кода запустить макрос.

"+7" это СНГ
та же европа уже "+3"
цифра после плюса сильно зависит от региона))

Сначала - оставить в тексте только цифры
Потом - проверка длины строки (7 или 11 - правильно, больше или меньше - ошибка)
В конце - добавление кода и форматирование.

Без VBA, по-моему, не обойтись. Точнее, можно и формулами, но это по 20 формул на один номер.