Вообщем облазил много форумов, но так и не нашёл для себя то что нужно. Мне нужно сделать на сайт комбинацию опции что бы выглядело так как здесь. Исходник выглядит так
Цвет Бирюзовый 32 38 Цвет Голубой 32 Цвет Желтый 38 Цвет Капучино 32 Цвет Медовый 32 Цвет Нежно-розовый 32 Цвет Персиковый 32 34 Цвет Розовый 34 Цвет Ярко-розовый 32
нужно сделать что бы было так, в одной колонки только размеры в другой только цвет, но это ещё не всё потом надо что бы цвет и размеры выглядели так
Sub ColorSize()
Dim i&, ii&, n&, a As String, b As String
a = Replace(Cells(2, 2) & "/", " ", "/")
For i = 1 To Len(a)
If IsNumeric(Mid(a, i, 2)) Then
ii = ii + 1
n = UBound(Split(Mid(a, 1, i), "Цвет"))
b = Split(Split(Mid(Cells(2, 2), 1, i), "Цвет")(n), " ")(1)
Cells(ii + 1, 1) = "Цвет " & b & " " & Mid(Cells(2, 2), i, 2)
End If
Next
End Sub
Изменено: Владимир - 03.03.2017 10:46:04(Ошибку нашёл.)
"..Сладку ягоду рвали вместе, горьку ягоду я одна."