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

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

Ячейки

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

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

Формат ячеек

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

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

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

Макрос в Excel

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

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

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

Добавить комментарий

Ваш e-mail не будет опубликован. Обязательные поля помечены *