VBA вставка в одну ячейку из нескольких

[Tirendus]

Всем привет!
Пытаюсь создать макрос, который бы копировал значения из столбца и вставлял их в одну ячейку, но получается так, что макрос ставит в конечную ячейку значение последней используемой из другого листа... то есть, мне нужно 10 значений через знак "|", а вставляется только последнее.

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

Dim b As Boolean, i, j, dev As Integer, jarjad As String, ra As Range
Sub MtelNet()
i = 2
j = 1
dev = 2
Worksheets("Лист1").Activate
Do
    Do
    b = False
    b = Cells(i, 4) = Cells(i + 1, 4)
    i = i + 1
    jarjad = Cells(i - 1, 4)
    Loop Until b = False
        Worksheets("Лист2").Cells(26, j).FormulaR1C1 = jarjad & ".jad"
        Worksheets("Лист2").Cells(28, j).FormulaR1C1 = jarjad & ".jar"
    Do Until dev = i
        Worksheets("Лист2").Cells(30, j) = Worksheets("Лист1").Cells(dev, 1) & _
 "-" & Worksheets("Лист1").Cells(dev, 2) & "|"  ' вот основная часть кода, которая меня интересует
        dev = dev + 1
    Loop
    j = j + 1
Loop Until Cells(i + 1, 4).Value = ""

End Sub

если я очень криво написал, то попробую пояснить - всё, что нужно - копировать из нескольких ячеек значение в одну, без замены, циклом

[mc-black]

1. Переменные i и j у вас объявлены как Variant. Поскольку это счетчики для адресации ячеек, рекомендую явно указать As Long
2. Из двух строк

b = False
b = Cells(i, 4) = Cells(i + 1, 4)

первая не имеет смысла, т.к. следом идет вторая..
3. Основное, то что ты хотел исправить должно выглядеть примерно так:

Worksheets("Лист2").Cells(30, j) = Worksheets("Лист2").Cells(30, j) _
    & Worksheets("Лист1").Cells(dev, 1) & "-" & Worksheets("Лист1").Cells(dev, 2) & "|"

[Tirendus]

большое спасибо прям под носом было, как я сам не догадался!

[EducatedFool]

Проверяй:



Только не проси прокомментировать код.
Я сам не понимаю, как он работает