Поиск чисел в тексте

[s8259]

Доброго времени суток всем форумчанам! В прайс-листе есть название номенклатуры, в котором вставлен объем или вес продукции, например: "АКВАТЕКС БЕЛЫЙ 0,8 Л (6) "РОГНЕДА" или "АЦЕТОН 0,35 КГ (30) ТЕКС". Как правило, значение объема и веса идут в тексте первыми числительными и к числу объема через пробел добавляется буква "Л", а к весу - "КГ". Подскажите, возможно прописать функцией вывод в отдельную ячейки числовое значение объема и веса? Заранее благодарен.

[kuklp]

Возможно. И поиск никто не отменял.UDF:

Public Function ExtractNumber(S As String)
    Dim i As Integer, str As String
    For i = 1 To Len(S)
          if Mid(S, i, 1)="(" then exit for
        If InStr(1, "1234567890,", Mid(S, i, 1)) <> 0 Then str = str & Mid(S, i, 1)
    Next
    ExtractNumber = str
End Function

[doober]

Еще вариант.

[s8259]

Большое спасибо kuklp и doober за профессиональное решение задачи. Сам бы я не смог ее решить.

[kuklp]

Сообщение от s8259

Большое спасибо kuklp и doober за профессиональное решение задачи. Сам бы я не смог ее решить.

Открою секрет - и я бы не смог(верней смог бы, но гораздо более геморройным способом). Учусь. Перечислять всех учителей не стану. Читайте форум. Возможно и Вас когда-то, назовут ГУРУ.

[vikttur]

Так хочется в профессионалы!

=ПСТР(СЖПРОБЕЛЫ(ПСТР(A1;ПОИСК(",";A1)-2;10));1;ПОИСК(" ";СЖПРОБЕЛЫ(ПСТР(A1;ПОИСК(",";A1)-2;10)))-1)

[kuklp]

Сообщение от vikttur

Так хочется в профессионалы!

=ПСТР(СЖПРОБЕЛЫ(ПСТР(A1;ПОИСК(",";A1)-2;10));1;ПОИСК(" ";СЖПРОБЕЛЫ(ПСТР(A1;ПОИСК(",";A1)-2;10)))-1)

Кто бы говорил

[vikttur]

Да ну...
До свободного "разговора" в VBA еще пыхтеть и пыхтеть

[kuklp]

Мне в формулах тоже