Макрос для объединения ячеек Excel

[wadzik]

Есть четыре стоящие по горизонтали ячейки с занесенными в них данными,
если объединять эти ячейки кнопочкой "Объединить ячейки", то данные внутри ячеек теряются, кроме той что стоит в первой левой.

Возможно ли и если да то как сделать макрос, который объединяет стоящие несколько(например четыре) ячейки рядом по горизонтали, так, чтобы данные из всех четырех ячеек не потерялись и оказались в новой объединенной ячейке ?

[IgorGO]

короткий ответ - можно.
а реальный ответ завит от способа обьединения данных из 4-х ячеек в одну. Кстати, перед обьединением (после того как данные уже обработаны) - данные из присоединяемых ячеек надо удалить, чтобы избавиться от вопроса возникающего у экселя при обьединении непустых ячеек.

[wadzik]

а если не короткий ответ
как ? можно пример.

способ объединения данных, ну не знаю, а как проще будет.

В общем смысл вот в чем:

Есть таблица Excel, в ней порядка тысячи строк, в этой таблице в четырех стоящих рядом ячейках записаны данные, их надо оъединить в одну ячейку и так в каждой из этой 1000 строк:

т.е. есть
-----А-----B-------C---------D
|Съешь |эту |вкусную |конфету |

надо
-----А-----B-------C---------D
|Съешь эту вкусную конфету |

а в идеале вообще вот так:

---------------------А-------------------B---------------C----------------D
|Съешь эту вкусную конфету |"пустая ячейка"|"пустая ячейка"|"пустая ячейка"|

[IgorGO]

Sub Merge4()
  For r = ActiveCell.Row To ActiveCell.End(xlDown).Row
    Cells(r, 1) = Cells(r, 1) & Cells(r, 2) & Cells(r, 3) & Cells(r, 4)
    Range(Cells(r, 2), Cells(r, 4)).ClearContents
    Range(Cells(r, 1), Cells(r, 4)).Merge
  Next
End Sub

от строки с активной ячейкой до конца списка данные с ячеек В,С,Д приоединяются к А.

[Teslenko_EA]

wadzik у меня к Вам вопрос:
"в каждой из этой 1000 строк" - зачем объединять тысячу ячеек с тремя тысячами ячеек не содержащими никакой информации ?
Евгений.

[wadzik]

Спасибо помогло

[wadzik]

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

wadzik у меня к Вам вопрос:
"в каждой из этой 1000 строк" - зачем объединять тысячу ячеек с тремя тысячами ячеек не содержащими никакой информации ?
Евгений.

Рядомстоящие ячейки не пустые

Имеется


Нужно


IgorGO

Простите за наглость, но можно как-нибудь изменить скрипт, чтобы при вставки, ячейки объединя лись с пробелами,

т.е. А= А +" " +Б +" " +С +" " +Д.

Спасибо

[IgorGO]

можно:

Cells(r, 1) = Cells(r, 1) & " " & Cells(r, 2) & " " & Cells(r, 3) & " " & Cells(r, 4)

[wadzik]

Спасибо огромное

[Teslenko_EA]

wadzik Вы ошиблись выложив "картинки" которые противоречат первоначальному вопросу - "Возможно ли ... объединяет стоящие ... ячейки рядом по горизонтали" или ошиблись с вопросом?. Скорее второе, если для решения задачи достаточно применить конкатенацию (сложение текста) которую предложил IgorGO, без Merge (объединения ячеек им же предложенного). "Рядомстоящие ячейки не пустые" - таковыми становятся, но без объединения.
Будьте внимательнее.
Евгений.