Все телефоны в одну форму

[Raccoon]

Помогите пожалуйста, с такой задачей:

Есть в таблице столбец телефонов (30 000 штук), забитый вручную: где-то лишние пробелы, где-то код страны и города разделён слешами, где-то минусом, где-то телефон сотрудника отделён также от кода города.
То есть вариантов написания полно.
Есть и варианты, нде между кодом страны и города никаких символов нет
Нужно же привести телефоны в одну форму, например: +7 (495) 1234567

Можно ли этот процесс вообще как-то автоматизировать?

Была бы очень благодарна за идеи.

[Serge 007]

Давайте файл со всеми возможными вариантами написания номеров - приведём в один формат, если это возможно

[Aiden]

См. пример. 99% номеров должно обработать.

[doober]

Проверил,работает .Обязательное условие наличие всех 11 цифр

Function Tel_Standart(ss As String) As String
For n = 1 To Len(ss)
If IsNumeric(Mid(ss, n, 1)) Then
sl = sl & Mid(ss, n, 1)
End If
Next
  Tel_Standart = Format(sl, "+# (###) #######")
End Function

[Raccoon]

Вот варианты, которые чаще всего встречаются.

Первый:

+7 495-2053210

Второй:

812-143186

Третий:

+7 499 168299

Четвёртый:

+38(441)969994

Пятый:

09218854/12-0

Шестой:

+7 (0) 453-143456

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

[doober]

812-143186
Какой правильный ответ?
Если у вас телефоны разнных стран

[Raccoon]

дада,
есть двузнычные коды стран и разные по длине коды городов.
Всё должно быть в форме +38 (1234) 56789

[Raccoon]

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

812-143186
Какой правильный ответ?
Если у вас телефоны разнных стран

Здесь код страны нужно добавить. +7 (812) 143186

[doober]

Привязка к стране есть,?
Тогда можно как то анализировать недостающие цифры

[Raccoon]

Aiden
doober
Спасибо большое за примеры. Но если коды городов разной длины?

doober
Телефонов без кода страны не так уж много на самом деле, мне самое главное сейчас с верхней проблемой разобраться.