Помогите автоматизировать рутинный процесс

[30gb]

подскажите пожалуйста, имеются столбцы, к примеру:
Наименование: Ширина Высота Радиус
Автошины Bridgestone 245/70 R16 H 680
Автошины Bridgestone 255/50 [COLOR="rgb(255, 0, 255)"]R19[/COLOR] V 680
Автошины Bridgestone 265/70 [COLOR="rgb(255, 0, 255)"]R16[/COLOR] H 680
Автошины Bridgestone 275/70 [COLOR="rgb(255, 0, 255)"]R16[/COLOR] H 680
Автошины Bridgestone 285/50 [COLOR="rgb(255, 0, 255)"]R18[/COLOR] V 680
Возможно ли как-нибудь автоматом, красные числа перенести в ширину, зеленые в высоту, а фиолетовые в радиус?
спасибо

[Volodshan]

Возможно: формулами, макросом... Нужен ваш пример: в таком виде исходные данные, а в таком желательно получить.

[Hugo121]

Макрос. Без примера - только алгоритм.

Sub tt()
temp = [a1].Value
warr = Split(Split(temp, "/")(0))
w = warr(UBound(warr))
harr = Split(Split(temp, "/")(1))
h = harr(0)
r = harr(1)
End Sub

[30gb]

Простите за глупость, но что конкретно с этим макросом делать?) я в экселе не силен

[doober]

Выложите свой файл строк на 10,укажите куда вставлять.После комментариев и пояснений вам будет понятно .что делать с макросом

[30gb]

выкладываю
первую строчку сделал примером, как нужно, чтобы выглядело

[doober]

Я специально создал 3 функции.Каждая расчитывает свой параметр.Вдруг надо будет разнести по другому данные.В инструкции показано.как применять,В своей книге создадите Модуль1,скопируете с моего код.

[30gb]

Спасибо большое за помощь

[Hugo121]

Выложу, раз сделал, макросом.

[30gb]

все работает) спасибо)