Удаление лишних символов

[optimi]

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

Возможно ли убрать лишние символы в столбце А так, чтобы остались только цифры (как в столбце D)?

Лишние символы - скобки, дефисы, пробелы.

во вложении файл для примера.

Видел подобные вопросы. Но для моего файла решения не подошли.

[Aleksandr H.]

Public Function ТолькоЦифра(смесь As String)
Dim i As Long
For i = 1 To Len(смесь)
Select Case Asc(Mid(смесь, i, 1))
Case 48 To 57
ТолькоЦифра = ТолькоЦифра & Mid(смесь, i, 1)
End Select
Next
ТолькоЦифра = Val(ТолькоЦифра)
End Function

Public Function onlyDigits(смесь As String)
    Dim objRegExp As Object
    Set objRegExp = CreateObject("VBScript.RegExp")
    objRegExp.Global = True
    objRegExp.Pattern = "[^0-9]"
    onlyDigits = objRegExp.Replace(смесь, "")
End Function

[svsh2016]

добрый вечер,еще вариант функции uuu в столбце G

Function uuu(t$)
 With CreateObject("VBScript.RegExp"): .Pattern = "\D+": .Global = True
    uuu = .Replace(t, "")
 End With
End Function

[svsh2016]

optimi,еще вариант функции uuu1 в столбце K без регулярок

Function uuu1(t$)
    Dim i&
 For i = 1 To Len(t)
    If IsNumeric(Mid(t, i, 1)) Then uuu1 = uuu1 & Mid(t, i, 1)
 Next
End Function

[optimi]

Спасибо, Aleksandr H., svsh2016, но я не могу использовать эти коды записях макросов.

Если возможно, пропишите эти коды в нужном месте в файле "Лишние символы во вложении.

[svsh2016]

добрый день,добавил Вам кнопки test( макрос вводит все формулы) и кнопка очистка.

Sub test()
    Dim i1&
    Application.Calculation = -4135
    i1 = Range("A" & ActiveSheet.Rows.Count).End(xlUp).Row
    Range("B1:B" & i1).Formula = "=uuu(A1)"
    Range("C1:C" & i1).Formula = "=uuu1(A1)"
    Application.Calculation = -4105
End Sub

[optimi]

svsh2016,

очень благодарен. макрос подходит и к другим похожим файлам. теперь то что занимало часа 2, занимает секунд 30. это очень и очень хорошо

[optimi]

В общем, рано я обрадовался, так как на следующем этапе произошел сбой.

Теперь, в рабочем файле в листе "удаление" есть очищенный от лишних символов столбец с цифрами. Этот столбец я с помощью специальной вставки я перенес в лист "сверка", убрал зеленые флажки, чтобы с этим массивом можно было работать.

Но функция ВПР (для сверки данных) все равно не работает, в то время как в файле образец эта функция работает.

Вопрос: почему не работает ВПР (или как сделать чтобы она работала)?

[Aleksandr H.]

Потому что надо понимать что текст 9511727913 из А1 это не число 9511727913 из В1

=VLOOKUP(TRIM(B1);A:A;1;0)

=впр(сжечпробелы(а1);А:А;1;0

[SAS888]

Или выполнить:

Sub qq()
    With Range("A1:A" & Cells(Rows.Count, 1).End(xlUp).Row)
        .Value = .Value
    End With
End Sub