@San4oPan40a
campaign manager

Макрос который для каждого значение в ячейке до и после добавляет текст?

Если было в ячейке Excel такое значение: M L XL
То нужно такое:
select:Размер:M:+0.0000:0:0:+0.00000000:1|select:Размер:L:+0.0000:0:0:+0.00000000:1|select:Размер:XL:+0.0000:0:0:+0.00000000:1|
  • Вопрос задан
  • 65 просмотров
Пригласить эксперта
Ответы на вопрос 2
И в чем Вам здесь помощь нужна?
Где пример Вашей наработки, в которой у Вас что то не получается?
Ответ написан
@San4oPan40a Автор вопроса
campaign manager
Если вдруг кому-то пригодится:
Private Sub Test() 'http://www.cyberforum.ru/vba/thread2445785.html
    Const template = "|select:Размер:<SIZE>:+0.0000:0:0:+0.00000000:1"
 
    Dim a, e, i&, t1$, t2$, cNBS$, cS$: cNBS = Chr$(160): cS = Chr$(32)
    a = Range(Cells(2, "A"), Cells(Rows.Count, "A").End(xlUp)).Value
    For i = 1 To UBound(a)
        t1 = Format$(Trim$(a(i, 1)), "0,000")
        t1 = Replace(t1, cNBS, cS) 'можно записать в одну строку
        For Each e In Split(t1)
            t2 = t2 & Replace(template, "<SIZE>", e)
        Next
        a(i, 1) = Mid$(t2, 2): t2 = ""
    Next
    Cells(2, "B").Resize(i - 1) = a 'Результат в соседний столбец (для наглядности)
End Sub
Ответ написан
Ваш ответ на вопрос

Войдите, чтобы написать ответ

Войти через центр авторизации
Похожие вопросы
Crazy Studio Москва
от 60 000 до 120 000 руб.
УГМК-Телеком Екатеринбург
от 50 000 руб.
Revealbot Москва
от 90 000 руб.
25 авг. 2019, в 14:05
60000 руб./за проект
25 авг. 2019, в 13:47
1000000 руб./за проект