Библиотека численных значений и цифр

[Randy.Mandy]

Здравствуйте.

Скажите, пожалуйста, существует ли в VBA что-то вроде библиотеки, которая хранит только цифры/числа ?
Необходимо выделить только численные значения, стоящие в строке до первого пробела, а все остальное удалить. Если численных значений до пробела не встречается или встречается вперемешку с буквами в одном слове (первом слове до пробела), то занести пустую строку.
Написал процедуру, но проверка на присутствие чисел получилась очень громоздкой....и все бы ничего,но для случая, как в строке
eh3 day: count / дней : количество
проверка видит наличие цифры 3 и пропускает значение "eh3 " в результат. А в идеале должна была занести пустую строку " ",поскольку здесь присутствуют и буквы.
Или лучше просто добавить переменную типа Integer и проверять выходные значения на этот тип данных?
Файл с исходными данными и макросом приложил.

пробудлирую код

Sub cl()
Sheets("Лист2").Select
row_end = Cells(ActiveSheet.Rows.Count, 1).End(xlUp).Row
For i = 2 To row_end
r1 = Cells(i, 1).Value
  r1dv = Left(r1, InStr(r1, " "))
   If (InStr(r1dv, ":")) Or (InStr(r1dv, "/")) Then
   Cells(i, 2).Value = ""
  Else
  Cells(i, 2).Value = r1dv
        End If
If (InStr(Cells(i, 2), "1")) Or (InStr(Cells(i, 2), "2")) Or (InStr(Cells(i, 2), "3")) Or (InStr(Cells(i, 2), "4")) Or (InStr(Cells(i, 2), "5")) Or (InStr(Cells(i, 2), "6")) Or (InStr(Cells(i, 2), "7")) Or (InStr(Cells(i, 2), "8")) Or (InStr(Cells(i, 2), "9")) Then
Else
Cells(i, 2).Value = ""
End If
Next
End Sub

[Randy.Mandy]

файл с исходником и макросом))

[nilem]

попробуйте так:

Sub cl()
Dim i As Long
For i = 2 To Cells(Rows.Count, 1).End(xlUp).Row
    Cells(i, 2) = Val(Cells(i, 1))
Next
End Sub

[Randy.Mandy]

........просто невероятно!
вместо моих 15 строк кода,одна из которых протяженностью километр, Ваши только 4! О_о никаких Лефтов, никаких ИнСтр и никаких библиотек...))
добавил проверку, на нулевое значение. если в рез-то ноль,то ячейка обнуляется.
Спасибо!
С наступающим Вас!!

[Randy.Mandy]

Скажите, пожалуйста, а какая функция считывает все цифры, включая ноль?
Здесь все замечательно и правильно работает, кроме случая, когда строка, содержащая необходимые значения, начинается с нуля (например, "0345 day: count / дней : количество") ,- нолик в результате пропадает (на выходе 0345), а он важен.

[Hugo121]

Сперва задайте столбцу с результатами текстовый формат (иначе нули съест Эксель после помещения результата в ячейку):

Sub clHUGO()
    Dim i As Long, a
    For i = 2 To Cells(Rows.Count, 1).End(xlUp).Row
        a = Split(Trim(Cells(i, 1)))
        If IsNumeric(a(0)) Then Cells(i, 2) = a(0)
    Next
End Sub

Но можно конечно код нарастить - задавать формат вывода динамически, или если первый 0, то добавлять впереди апостроф (тогда формат можно не менять), если не число - то очищать Cells(i, 2) или писать туда "числа нет" или ещё что-то придумать...

[Randy.Mandy]

Hugo121, спасибо Вам!
Кое-что дописал,- всё получилось, как надо))