Удалить в строках все, кроме цифр

'---------------------------------------------------------------------------------------
' Module    : mNumberFromText
' DateTime  : 18.03.2011 15:21
' Author    : The_Prist(Щербаков Дмитрий)
'             WebMoney - R298726502453; Яндекс.Деньги - 41001332272872
'             [url]www.excel-vba.ru[/url]
' Purpose   : [url]http://www.planetaexcel.ru/forum.php?thread_id=25683[/url]
'---------------------------------------------------------------------------------------
 
 
Function Extract_Number_from_Text(sWord As String, Optional Metod As Integer)    '0 числа, 1 текст
    Dim sSymbol As String, sInsertWord As String
    Dim i As Integer
 
    If sWord = "" Then Extract_Number_from_Text = "Нет данных!": Exit Function
    sInsertWord = ""
    sSymbol = ""
    For i = 1 To Len(sWord)
        sSymbol = Mid(sWord, i, 1)
        If Metod = 1 Then
            If Not LCase(sSymbol) Like "*[0-9]*" Then
                If sSymbol = "," Or sSymbol = "." Or sSymbol = " " Then
                    If Mid(sWord, i - 1, 1) Like "*[0-9]*" And Mid(sWord, i + 1, 1) Like "*[0-9]*" Then
                        sSymbol = ""
                    End If
                End If
                sInsertWord = sInsertWord & sSymbol
            End If
        Else
            If LCase(sSymbol) Like "*[0-9.,;:-]*" Then
                If LCase(sSymbol) Like "*[.,]*" Then
                    If Not Mid(sWord, i - 1, 1) Like "*[0-9]*" Or Not Mid(sWord, i + 1, 1) Like "*[0-9]*" Then
                        sSymbol = ""
                    End If
                End If
                sInsertWord = sInsertWord & sSymbol
            End If
        End If
    Next i
    Extract_Number_from_Text = sInsertWord
 
End Function
 
Function oNumbers(Rng As Range) As Double 'это для Экселя
    Dim RegEx As Object, objRegEx As Object, N As Long, m As Long, sl
 
    Dim ssl As String, S_Summ As Double
    For N = 1 To Rng.Columns.Count
        For m = 1 To Rng.Rows.Count
            ssl = ssl & Rng.Cells(m, N) & " "
        Next: Next
    Set RegEx = CreateObject("VBScript.RegExp")
    With RegEx
        .Global = True
        .Pattern = "\D"
        ssl = .Replace(ssl, " ")
    End With
    Set objRegEx = Nothing
    ssl = RTrim(LTrim(ssl))
    sl = Split(ssl, " ", -1)
    For N = 0 To UBound(sl)
        If sl(N) <> "" Then
            S_Summ = S_Summ + sl(N)
        End If: Next
    oNumbers = S_Summ
End Function
 
'-----------------------------------------
Function Zifra(Rng As Range) As Double 'тоже Эксель
    Dim RegEx As Object
    Dim ssl As String, S_Summ As Double
    For N = 1 To Rng.Columns.Count
        For m = 1 To Rng.Rows.Count
            ssl = ssl & Rng.Cells(m, N)
        Next: Next
    Set RegEx = CreateObject("VBScript.RegExp")
    With RegEx
        .Global = True
        .Pattern = "\D"
        ssl = .Replace(ssl, " ")
    End With
    Set objRegEx = Nothing
    ssl = RTrim(LTrim(ssl))
    For N = 1 To Len(ssl)
        sl = Mid(ssl, N, 1)
        If sl <> " " Then
            S_Summ = S_Summ + sl
        End If: Next
    Zifra = S_Summ
End Function
 
Function GetNumeric(t As Range)
    Dim j As Integer, l As String
    For j = 1 To Len(t)
        If IsNumeric(Mid(t, j, 1)) Then l = l & Mid(t, j, 1)
    Next j
    GetNumeric = Val(l)
End Function
 
Public Function ExtractNumber(s As String)
    Dim i As Long, str As String
    For i = 1 To Len(s)
        If InStr(1, "1234567890,", Mid(s, i, 1)) <> 0 Then str = str & Mid(s, i, 1)
    Next
    ExtractNumber = str
End Function
 
Function NumbersOnly(srcStr As String) As String
    Dim objRegEx As Object
    Set objRegEx = CreateObject("VBScript.RegExp")
    With objRegEx
        .Global = True
        .Pattern = "[^0-9,]"    '"\D"
        NumbersOnly = .Replace(srcStr, vbNullString)
    End With
    Set objRegEx = Nothing
End Function
 
Function Num(Txt As String)    ' As Long
    Dim N&
    For N = 1 To Len(Txt)
        If Mid(Txt, N, 1) Like "#" Then Num = Num & Mid(Txt, N, 1)
    Next N
End Function

Public Function onlyDigits(stroka) 'Только цифры
    Static objRegExp As Object
    If objRegExp Is Nothing Then
        Set objRegExp = CreateObject("VBScript.RegExp")
        objRegExp.Global = True
        objRegExp.Pattern = "[^0-9]"
    End If
    onlyDigits = objRegExp.Replace(stroka, "")
End Function
 
?onlyDigits("qwerty12345,0 asdf678zxcvb 000...")
123450678000