Извлечение числа из текста и вывод его в соседнюю..

[SergeyVK]

Доброго дня.
В столбце В описание товара и есть его емкость: 900мл.,700мл., 0.1л... и так далее. Возможно ли эти значения поместить отдельно в соседний столбец? Количество знаков/букв все время разное.

Заранее спасибо.

[IgorGO]

Function MLL$(s$)
  Dim re
  Set re = CreateObject("VBScript.RegExp"): re.Global = True
  re.Pattern = "\d[0-9. М]+Л"
  If re.test(s) Then MLL = re.Execute(s)(0)
End Function

[SergeyVK]

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

Function MLL$(s$)
  Dim re
  Set re = CreateObject("VBScript.RegExp"): re.Global = True
  re.Pattern = "\d[0-9. М]+Л"
  If re.test(s) Then MLL = re.Execute(s)(0)
End Function

IgorGO, Спасибо, но сложновато для меня.

[IgorGO]

открывайте файл и пользуйтесь
видите в А4 написано =MLL(B4)
что тут сложного? MLL - это МиЛлиЛитры))

[SergeyVK]

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

открывайте файл и пользуйтесь
видите в А4 написано =MLL(B4)
что тут сложного? MLL - это МиЛлиЛитры))

Я бы открыл, но он пустой.

[IgorGO]

странно

[SergeyVK]

спасибо