Как одной функцией функция извлечь число из текста

[5mrs]

Как одной функцией извлечь число из текста?

[IgorGO]

надо написать функцию ИзвечьЧислоИзТекста
RegExp - наиболее подходящий для этого инструмент

[riniks17]

код
=ПРОСМОТР(2^64;--ЛЕВСИМВ(ПСТР(A1&"_0";МИН(НАЙТИ({0;1 ;2;3;4;5;6;7;8;9};A1&"_0123456789") );15);{1;2;3;4;5;6;7;8;9;10;11;12;1 3;14;15}))

Взял здесь.http://www.planetaexcel.ru/forum/ind...ID=8&TID=15606 Работает

[5mrs]

Спасибо нашел:
Вот не самый универсальный, но вариант. В ячейку пишем =ТОЛЬКОЦИФРЫ(А1)
Function ТОЛЬКОЦИФРЫ(ячейка As Range) As Long
Dim i As Integer, Результат As String
Dim Символ As String
For i = 1 To Len(ячейка)
Символ = Mid(ячейка, i, 1)
If IsNumeric(Символ) Then
Результат = Результат & Символ
End If
Next i
ТОЛЬКОЦИФРЫ = Val(Результат)
End Function

[IgorGO]

тоже не самый универсальный:

Function ИзвлечьЧислоИзТекста(v As String) As String
 Dim RE
 Set RE = CreateObject("vbscript.regexp"): RE.Pattern = "\d+"
 If RE.test(v) Then ИзвлечьЧислоИзТекста = RE.Execute(v)(0)
End Function