Как удалить все буквы их ячеек и оставить № телефонов.

[Ppaa]

Здравствуйте!

Есть в Excel столбец содержащий текстовые комментарии во многих из которых есть сотовые телефоны в произвольном формате.
Идеально конечно было бы, если бы гуру подсказали бы способ (видимо, макрос) который мог бы оставить в ячейках только номера сотовых в формате +79011234567.
Вот тут есть тема с регулярным выражением, позволяющим проверить правильность сотового номера http://habrahabr.ru/blogs/regex/110731/

Но это наверное слишком нагло.
Поэтому подскажите пожалуйста, как удалить из ячеек все буквы?

[Djeki]

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

Есть в Excel столбец содержащий текстовые комментарии

Столбец есть, только где он ?? Выложите здесь..

[Ppaa]

Там персональная информация - номера сотовых и т.д.
Ок, попутал все цифры в телефонах.

[doober]

Функция извлекает номер телефона,был бы пример файла,сделал бы в нем.
Закончился лимит на файлы

Function oNumbers(RNG As Range)
Dim RegEx As Object
Dim ssl As String
ssl = RNG.Value
Set RegEx = CreateObject("VBScript.RegExp")
    With RegEx
        .Global = True
        .Pattern = "((8|\+7)[\- ]?)?(\(?\d{3}\)?[\- ]?)?[\d\- ]{7,10}"
    If .test(ssl) = True Then
         Set RegM = .Execute(ssl)
      oNumbers = RegM(0).Value
      Set objRegEx = Nothing
  Exit Function
    End If
    End With
  oNumbers = ssl
End Function

[doober]

Юзаем кнопку

[Ppaa]

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

Юзаем кнопку

Спасибо! буду разбираться.

[Ppaa]

Путем мучительных разборов я смог убрать все буквы и большинство ненужных символов. За исключением пожалуй перевода строки. А как можно убрать в колонке числа менее 10 символов и более 11?

[nilem]

А если вот так:

Sub oNumbers2()
Dim x, y(), r, i&
x = Range("A1:A" & Cells(Rows.Count, 1).End(xlUp).Row).Value
ReDim y(1 To UBound(x), 1 To 1)
With CreateObject("VBScript.RegExp")
    .IgnoreCase = True
    .Global = True
    .Pattern = "[^0-9()]+" 'или так: .Pattern = "\D"
    For Each r In x
        If .Test(r) = True Then r = .Replace(r, "")
        If Len(r) = 10 Or Len(r) = 11 Then i = i + 1: y(i, 1) = r
    Next r
End With
If i <> 0 Then [b1].Resize(i).Value = y
End Sub

[doober]

пока писал,николай уже обогнал

Function Zifra(RNG As Range)
Dim RegEx As Object
Dim ssl As String
ssl = Replace(RNG.Text, vbTab, "")
Set RegEx = CreateObject("VBScript.RegExp")
    With RegEx
        .Global = True
        .Pattern = "\d"
        If .test(ssl) = True Then
         Set RegM = .Execute(ssl)
      For n = 0 To RegM.Count - 1
      If Len(RegM(n).Value) <> 10 Then
      ssl = Replace(ssl, RegM(n).Value, "")
        End If
     Next
      Zifra = ssl
      Set objRegEx = Nothing
  Exit Function
  
    End If
    End With
  Zifra = ssl
End Function

[Ppaa]

Спасибо! Ну и наверно последний вопрос. Как можно добавить перед 10 значными номерами, начинающимися с 9 , цифру 7, а в 11 значных номерах, начинающихся на 89, заменить 8 на 7.