Объединение содержимого ячеек столбца в одно значение))

[Rust_12]

Доброго времени суток!
Подскажите, пожалуйста, почему меня не слушается счетчик
При объединении всех значений строк(ячеек), стоящих в столбце A в одну строку и занесении этого значения во 2 столбец(B), макрос объединяет 1 строку столбца А и последнюю строку этого столбца.

Я сделала вот так:

Private Sub CommandButton1_Click()
r_end = Range(Cells(1, 1).Address).CurrentRegion.Rows.Count
For i = 2 To r_end
Cells(1, 2) = Cells(1, 1).Value & Cells(i, 1).Value
Next
End Sub

Пичему счетчик по всему столбцу не проходит?

Файл приложила

[DiemonStar]

Ну так вполне правильно объединяет первую и последнюю ячейку) А чтобы объединяло все надо сделать так:

Private Sub CommandButton1_Click()
row_end = Range(Cells(1, 1).Address).CurrentRegion.Rows.Count
Cells(1, 2) = Cells(1, 1).Value
For i = 2 To row_end
Cells(1, 2) = Cells(1, 2).Value & Cells(i, 1).Value
Next
End Sub

[kuklp]

Вариант в одну строку:

Public Sub www()
[b1] = Replace(Join(Application.Transpose(Range("a1", [a1].End(xlDown)))), " ", "")
End Sub

[Казанский]

Можно сразу объединить через пустую строку:

[b1] = Join(Application.Transpose(Range("a1", [a1].End(xlDown))), "")

[Rust_12]

Ой.
Сколько разнообразных вариантов))
Поняла, в чем ошибалась!!
Спасибо!

[kuklp]

Я сразу так и сделал - ошибка вылезла. Сейчас проверил - нормально. Глюк.