Выбрать из ячеек значения между "=" и "кг"

Старая форма входа

Страница 1 из 1 1
Модератор форума: китин, _Boroda_

Выбрать из ячеек значения между "=" и "кг" (Макросы/Sub)

Yar4i

Дата: Воскресенье, 06.12.2020, 06:17 | Сообщение № 1

Группа: Проверенные

Ранг: Форумчанин

Сообщений: 137

Репутация: 1 ±

Замечаний: 0% ±

Excel 2010

Добрый день, дамы и господа

Столкнулся с задачей, которую решил через формулы, однако хочется на будущее иметь решение и через макрос.
В столбце А находятся данные, и нужно выбрать все значения между "=" и "кг". В данном случае искомые значения это числа с сотыми.

Ввиду того, что возможны опечатки (такие как в ячейке А1 - "г" вместо "кг"), то важно разместить выделенные-найденные значения в соседних столбцах B. C. D. E ...
Например в ячейке А1 будет найдено лишь одно значение и размещено в столбце В в соответствующей 1ой строке.

Пример до и после приложил.
Также приложил решение с помощью формул - может быть кому-то и я буду полезен.

К сообщению приложен файл: 121212.xlsx (17.2 Kb)

Сообщение отредактировал Yar4i - Воскресенье, 06.12.2020, 06:18

Ответить

Kuzmich

Дата: Воскресенье, 06.12.2020, 11:47 | Сообщение № 2

Группа: Проверенные

Ранг: Ветеран

Сообщений: 713

Репутация: 157 ±

Замечаний: 0% ±

Excel 2003

Цитата

иметь решение и через макрос

UDF для первого значения веса
[vba]

Код

Function iWes(cell$)
With CreateObject("VBScript.RegExp")
     .Global = True
     .Pattern = "m=\s?(\d+,\d{2})(?=г|кг)"
   If .test(cell) Then
     iWes = .Execute(cell)(0).SubMatches(0)
   Else
     iWes = ""
   End If
End With
End Function

[/vba]