Вычленяем цифры из строки Excel

Пользовательские функции для экстракции цифр из строки в экселе:
Function ExtractNumbers(str As String) As String
'перебор символов
For n = 1 To Len(str)
If Mid(str, n, 1) Like "#" Then ExtractNumbers = ExtractNumbers & Mid(str, n, 1)
Next n
End Function
Function ExtractNumbers1(str As String) As String
'регулярные выражения
Dim objRegExp As Object
Set objRegExp = CreateObject("VBscript.RegExp")
objRegExp.Pattern = "[^0-9]"
objRegExp.Global = True
ExtractNumbers1 = objRegExp.Replace(str, "")
End Function

[@user-ln4li9yu6f]

+