Нужна функция для получения из исходной строки только цифры
вот набросал все работает, но наверное есть более красивое решение
по замене запятой и точки с запятой на пробел не принципиально
есть ли возможность оптимизировать код
Public Function FunStrNumOnly(StrString As String) As Variant
Dim I As Long
Dim FunStrNumOnlyTmp As String
Dim SimTmp As String
For I = 1 To Len(StrString)
SimTmp = Mid$(StrString, I, 1)
If IsNumeric(SimTmp) Then
FunStrNumOnlyTmp = FunStrNumOnlyTmp & SimTmp
Else
If SimTmp = "," Or SimTmp = ";" Then FunStrNumOnlyTmp = FunStrNumOnlyTmp & " "
End If
Next I
FunStrNumOnlyTmp = Trim$(FunStrNumOnlyTmp)
If Len(Trim$(FunStrNumOnlyTmp)) = 0 Then
FunStrNumOnly = Null
Else
FunStrNumOnly = FunStrNumOnlyTmp
End If
End Function