как извлечь нужный текст из строки

[mariyavaryanitsa]

Добрый вечер! Посмотрите пожалуйста кто может на мою задачу, мне нужно в столбце К вычлинить число,которое стоит перед буквой "р" , иногда оно стоит вот так 3р, иногда с пробелом. Иногда это дробное число 0,01. Наверно тут нужны регулярные выражения. Формулы не помогают.

[mariyavaryanitsa]

вот пример

[mariyavaryanitsa]

а извлеченное число можно вставить в столбец L

[kuklp]

Function FindDig(ByVal txt$) As Long
    With CreateObject("VBScript.regexp"): .Global = True
        .Pattern = "\d+(?= ?р)"
        FindDig = IIf(.test(txt$), .Execute(txt$)(0), "")
    End With
End Function

[mariyavaryanitsa]

Прошу прощение, не могу разобраться как пользоваться кодом, Sub и End Sub не нужны?

[kuklp]

Вы свой файл во вложении смотрели?

[mariyavaryanitsa]

да, но там макроса нет, там просто формула в ячейке

[doober]

Эта функция вам поможет
применение L3=ManiRUR(K3)

Public Function ManiRUR(ByVal s) As Variant
        bRes = False
        Set RegExp = CreateObject("VBScript.RegExp")
        RegExp.IgnoreCase = True
        RegExp.Pattern = "(\d{1,}|\d{1,},\d{1,})(р| р)"
        bRes = RegExp.test(s)
        If bRes Then
                Set oMatches = RegExp.Execute(s)
                ManiRUR = oMatches(0).SubMatches(0)
                Exit Function
        End If
        ManiRUR = ""
End Function

[kuklp]

Там функция в общем модуле.

[kuklp]

Привет, тезка. Чет ты слишком усложнил:-)