Как объединить ячейки в эксель и не потерять данные

Объединение ячеек в Microsoft Excel

Очень часто бывает, что при работе с документами в Microsoft Excel происходит ситуация, когда нужно объединить несколько ячеек в одну. Хорошо, когда Вы заранее соединяете пустые ячейки, а потом уже добавляете в объединенную ячейку текст, тогда вы сохраните и форматирование и текст. А что же делать в ином случае?

Как объединить ячейки в Excel

Давайте для начала разберемся, как вообще можно объединить две, три или несколько ячеек. Для начала надо выделить диапазон ячеек, которые Вы планируете соединить, нажать правую кнопку и выбрать пункт “Формат ячеек”.

Во всплывающем окне, которое открылось у Вас на экране, необходимо переключиться на вкладку “Выравнивание”. В этой вкладке, в пункте “Отображение” Вы увидите пункт “Объединение ячеек”. Именно на нем нужно поставить галочку, чтобы объединить выделенные ячейки.

Объединение ячеек без потери данных

Чтобы объединить ячейки без потери данных, нам потребуется макрос. Для создания Вам необходимо для начала нажать сочетания клавиш “ALT + F8”. Выйдет добавление макроса во всплывающем окне. Тут Вы вводите произвольное название макроса и нажимаете на кнопку “Создать”.

После этого у Вас выйдет окно добавление нового макроса. Вам необходимо вставить в него данный код:

Sub Макрос()
Dim c As Range
Dim s As String

For Each c In Selection
If s = «» Then
s = c
Else
s = s & » » & c
c.ClearContents
End If
Next c
With Selection
.Range(«A1») = s
.HorizontalAlignment = xlCenter
.Merge
End With
End Sub

Макросы, конечно, многим могут показаться темным лесом. Так, что лучше заранее продумать структуру Вашего документа и объединить ячейки, пока там еще нет текста.