Function ЧИСЛОИЗСТРОКИ(СТРОКА As String)
Dim sSymbol As String, sWord As String
Dim i As Integer
If СТРОКА = "" Then ЧИСЛОИЗСТРОКИ = "Н/Д": Exit Function
sWord = "": sSymbol = ""
' Проходим по каждому символу
For i = 1 To Len(СТРОКА)
sSymbol = Mid(СТРОКА, i, 1)
If LCase(sSymbol) Like "*[0-9.,;:-]*" Then
If LCase(sSymbol) Like "*[.,]*" And i > 1 Then
If Not Mid(СТРОКА, i - 1, 1) Like "*[0-9]*" Or Not Mid(СТРОКА, i + 1, 1) Like "*[0-9]*" Then
sSymbol = " "
End If
End If
sWord = sWord & sSymbol
End If
Next
ЧИСЛОИЗСТРОКИ = sWord
End Function