Извлечение части данных из одной ячейки макросом - VBA
Формулировка задачи:
Здравствуйте.
Надо извлечь несколько данных находящихся в одной ячейке на разных позициях, не знаю как лучше объяснить:
Арктикул: 5177 Цвет:белый DEWSPO FOIL, PRIN тиси Рост: 134-164 Наличие: в наличии 950.00 рублей Арктикул: 5177 Цвет:серебро DEWSPO FOIL, PRIN тиси Рост: 134-164 Наличие: в наличии 950.00 рублей Арктикул: 5177 Цвет: голубой
Мне нужно, только названия цветов (белый, серебро, голубой)перенести в другую ячейку, желательно что бы они, были сразу через запятую или точку с запятой.Решение задачи: «Извлечение части данных из одной ячейки макросом»
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
ИИ поможет Вам:
- решить любую задачу по программированию
- объяснить код
- расставить комментарии в коде
- и т.д
