Извлечение части данных из одной ячейки макросом - VBA

Формулировка задачи:

Здравствуйте. Надо извлечь несколько данных находящихся в одной ячейке на разных позициях, не знаю как лучше объяснить:Арктикул: 5177 Цвет:белый DEWSPO FOIL, PRIN тиси Рост: 134-164 Наличие: в наличии 950.00 рублей Арктикул: 5177 Цвет:серебро DEWSPO FOIL, PRIN тиси Рост: 134-164 Наличие: в наличии 950.00 рублей Арктикул: 5177 Цвет: голубой Мне нужно, только названия цветов (белый, серебро, голубой)перенести в другую ячейку, желательно что бы они, были сразу через запятую или точку с запятой.

Код к задаче: «Извлечение части данных из одной ячейки макросом - VBA»

textual
 Function uuu(st As String)
     With CreateObject("vbscript.regexp")
     .Global = True
     .IgnoreCase = True
     .Pattern = "[A-Я]{4}\-[А-Я]{5,7}"
      uuu = .Execute(st)(0).Value
   End With
End Function

9   голосов, оценка 3.444 из 5


СОХРАНИТЬ ССЫЛКУ