Поиск  Пользователи  Правила 
Закрыть
Логин:
Пароль:
Забыли свой пароль?
Регистрация
Войти
 
Страницы: 1
RSS
Нужно вытащить текст и цифры и разбить на строчки., Нужно сделать комбинации опций для выгрузки на сайт (движок cs-cart)
 
Вообщем облазил много форумов, но так и не нашёл для себя то что нужно. Мне нужно сделать на сайт комбинацию опции что бы выглядело так как здесь.
Исходник выглядит так
Цвет Бирюзовый 32 38 Цвет Голубой 32 Цвет Желтый 38 Цвет   Капучино 32 Цвет Медовый 32 Цвет Нежно-розовый 32 Цвет Персиковый 32 34 Цвет   Розовый 34 Цвет Ярко-розовый 32
нужно сделать что бы было так, в одной колонки только размеры в другой только цвет, но это ещё не всё потом надо что бы цвет и размеры выглядели так
Цвет=Бирюзовый,   Размер=32
Цвет=Бирюзовый, Размер=38
 
как вариант, конкретно под пример
Скрытый текст
 
Код
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

Изменено: Владимир - 3 Мар 2017 10:46:04 (Ошибку нашёл.)
"..Сладку ягоду рвали вместе, горьку ягоду я одна."
 
Вариант на Power Query, если правильно понял идею
F1 творит чудеса
 
Максим Зеленский, Отлично выглядит, надо срочно начать его изучать)
 
heso, это весело и интересно :)
F1 творит чудеса
Страницы: 1
Читают тему (гостей: 1)
Наверх