объединении столбцов.

[kandeman]

Ситуация следующая. прайс лист с 5-7 колонками две из них надо объединить. точнее сделать так. допустим в первой колонке написано ХЛЕБ во второй колонке написано БЕЛЫЙ как эти две колонки объединить в одну чтоб получилось ХЛЕБ БЕЛЫЙ??? в речную не реально сделать тк прайс из 15к наименований. очень нужна помощь подскажите плз.

[vikttur]

Функция СЦЕПИТЬ() или ее аналог &

[nilem]

Вариант

Sub ertert()
Dim x, y, z(), i As Long
x = Range([a1], Cells(Rows.Count, 1).End(xlUp)).Value
y = Range([c1], Cells(Rows.Count, 3).End(xlUp)).Value
ReDim z(1 To UBound(x), 1 To 1)
For i = 1 To UBound(x)
    z(i, 1) = x(i, 1) & " " & y(i, 1)
Next i
[d1].Resize(UBound(x)).Value = z
End Sub

[kandeman]

Спасибо за подсказки но можно по конкретнее куда и что вставлять и как использовать данный код? Я в этом мягко говоря не соображаю просто.
Заранее благодарен за помощь.

[EugeneS]

см. вложение

Формула:

=B1 & " " & A1

Ячейки "А1" и "B1" замените на свои.

[Daddy]

Зачем мудрить когда есть стандартные функции?

Сообщение от vikttur

Функция СЦЕПИТЬ()

А если и с ней возникнет проблема, то "Вставка->Функция" находишь "сцепить" и нажимаешь "справка по этой функции"

[kandeman]

Сообщение от nilem

Вариант

Sub ertert()
Dim x, y, z(), i As Long
x = Range([a1], Cells(Rows.Count, 1).End(xlUp)).Value
y = Range([c1], Cells(Rows.Count, 3).End(xlUp)).Value
ReDim z(1 To UBound(x), 1 To 1)
For i = 1 To UBound(x)
    z(i, 1) = x(i, 1) & " " & y(i, 1)
Next i
[d1].Resize(UBound(x)).Value = z
End Sub

ОГРОМНЕЙШЕЕ СПАСИБО!!!! разобрался с кодом и все работает! Еще раз спасибо!!!

[kandeman]

Сообщение от Daddy

Зачем мудрить когда есть стандартные функции?

А если и с ней возникнет проблема, то "Вставка->Функция" находишь "сцепить" и нажимаешь "справка по этой функции"

функцию сцепить мучаю уже недели 2 наверное. не работает она когда 6-15к наименований и соединять надо по столбцам

[VictorM]

Тогда Ваш файлик сюда, можно не весь.
И что такое

6-15к наименований

?