Как макросом из ячейки Excel вытащить число?

[Franck]

Есть файл с огромным количеством ячеек, с текстом типа "Снят с про-ва 100 кг" (текст разный). Нужно или макросом или функцией вытащить из ячейки только число (ну, 100, например). Можно ли это сделать покрасивше и как? Вручную очень долго обрабатывать.

[alibek]

Дай образец текста, хотя бы десятка два элементов (по возможности разных), тогда можно подумать, как лучше сделать.

[Calvin]

Ну если в ячейках нет других чисел, кроме тех, которые нужно изъять, то можно сделать так:
(это только посимвольный "перебор" начального значения ячейки)

Код: Выделить всё

Strperem = "Снят с про-ва 100 кг"
For i = 1 To Len(Strperem)
    If IsNumeric(Mid(Strperem, i, 1)) = True Then
    s = s + Mid(Strperem, i, 1)
    End If
Next
d = Val(s)


2Franck не за что - рад что помог

[Franck]

To Calvin
Спасибо огромное! Получилась чудная функция:

Код: Выделить всё

Function StrNumber(Strperem As Variant)

  For i = 1 To Len(Strperem)
    If IsNumeric(Mid(Strperem, i, 1)) = True Then
    s = s + Mid(Strperem, i, 1)
  End If
Next
StrNumber = Val(s)
End Function