нужен макрос на выделение значения из массива в отдельный столбец

[30gb]

Здравствуйте, в приложеном документе представлен перечень резины для автомобилей, строка содержит в себе производителя марку размер и т.д... Мне нужно выделить в отдельную строчку размер, тот что выделен в документе красным цветом, помогите пожалуйста

[EducatedFool]

Используйте формулу =РазмерШины()

  Ячейка: B1      Формула  (стиль A1):   =РазмерШины(A1)
                  Формула  (стиль R1C1): =РазмерШины(RC[-1])

Пример в файле:

[30gb]

огромное спасибо за помощь

[Hugo121]

Ну а те записи, которые не взялись этой формулой, можно вытянуть комбинацией из

Function Substring(Текст, Символ_разделитель, Номер_фрагмента) As String
'---------------------------------------------------------------------------------------
' URL : http://www.planetaexcel.ru/tip.php?aid=54
' Purpose : Выделяет из текста n-ный субстринг, ориентируясь по символам-разделителям
' Notes : Substring(текст; символ_разделитель; номер_фрагмента), где
' текст - текст, который делим
' символ_разделитель - символ, который надо считать разделителем фрагментов
' номер_фрагмента - порядковый номер фрагмента, который нам нужен
'---------------------------------------------------------------------------------------
On Error Resume Next
Substring = Split(Application.Trim(Текст), Символ_разделитель)(Номер_фрагмента - 1)
End Function


Function SubstringRev(txt, Delimiter, n) As String
Dim x As Variant
x = Split(txt, Delimiter)
If n > 0 And n - 1 <= UBound(x) Then
SubstringRev = x(UBound(x) - (n - 1))
Else
SubstringRev = ""
End If
End Function

Сперва делим 2 раза по " R1" (правда там два размера придётся делить по " R2"), затем каждый результат делим по пробелам - итого получаем 4 столбца, 2 из которых нужные - их в итоге можно слить в один.