Как программе excel объединить ячейки. Объединение нескольких ячеек с данными. Как объединить ячейки в Excel стандартными средствами

Объединение двух или более ячеек в Экселе поможет сделать документ более привлекательным и понятным. Это несложное форматирование, и научиться ему может каждый.

Соединить ячейки можно двумя способами: склеивание ячеек в одну или соединение информации, вписанной в эти ячейки, но при этом возникнет эффект потери данных. Давайте попробуем разобраться, как объединить ячейки в Экселе.

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

Выполните следующие шаги:

  • Выделите ячейки, щелкните по ним правой клавишей мыши;
  • Выберите пункт «Формат ячеек…», появится новое окно;
  • Перейдите в меню «Выравнивание», далее – «Отображение»;
  • Установите птичку возле строчки «Объединение ячеек» и нажмите «Enter».

Теперь две ячейки объединятся в одну. Правда, здесь есть один момент. Если вы объединяли ячейки по горизонтали, то останется только та информация, которая была в левой; если объединяли по вертикали – то останется информация, которая была в верхней ячейке. Все, что было написано во второй ячейке, просто удалится.

Соединение данных из разных ячеек

Но в экселе 2010 и других версиях программы можно объединять ячейки таким образом, чтобы все написанное сохранялось. Допустим, у вас три столбика: в первом указано имя, во втором – фамилия, в третьем – отчество. Требуется объединить их в одной ячейке (например, сделать Иван Петров Иванович). Если ФИО не одно, а много, то переписывать все заново – слишком долго. Есть два варианта объединения ячеек, с помощью которых сделать это намного быстрее.

Вариант первый:

  • Сделайте четвертый столбик, назвав его ФИО;
  • На следующей строчке введите «=A2&B2&C2» (то есть те ячейки, в которых стоят первые фамилия, имя и отчество) и нажмите «Enter»;
  • Получится следующее – «ИванПетровИванович». То есть, ФИО будет написано без пробелов;
  • Если нужно установить пробелы, вставьте знак «&” “&», то есть, формула будет такой – «A2&” “&B2&” “&C2». В результате получится «Иван Петров Иванович»;
  • Чтобы поставить разделитель, можно использовать любой знак, например запятую. Получится такая формула«A2&” “&С2&”, “&В2», в итоге ФИО будут выглядеть так: «Иван Иванович, Петров»;
  • Чтобы использовать формулу для других ячеек, скопируйте первую формулу, выделите строчки под ней (напротив которых стоят разделенные фамилия, имя и отчество) и нажмите «Enter».

Вариант второй:

  • Аналогично применяется формула «=СЦЕПИТЬ(A2;B2;С2)»;
  • Если нужно установить пробел, то «=СЦЕПИТЬ(A2,» «,B2)»;
  • Если нужна запятая – «=СЦЕПИТЬ(A2,», «,B2)».

Как разделить объединенные ячейки

  1. Щелкните по ячейке левой клавишей мыши. На вкладке «Главная» в разделе «Выравнивание» загорится кнопка «Объединить и поместить в центре»;
  2. Чтобы убрать соединение, просто нажмите эту кнопку.

Правда, при разделении ячеек не произойдет разъединение данных в них. Если они объединялись, информация будет расположена в левой ячейке. Во второй ячейке произойдет эффект потери данных то есть она будет пустой.

Как найти объединенные ячейки

  1. Перейдите на вкладку «Главная», в раздел «Редактирование»;
  2. Выберите «Найти и выделить», затем «Найти»;
  3. Выберите «Параметры», нажмите строчку «Формат»;
  4. Откройте меню «Выравнивание», в разделе «Отображение» пометьте галочкой строчку «Объединение ячеек»;
  5. Кликните «ОК»;
  6. Затем используйте один из двух вариантов:
  • Для того чтобы найти очередную объединенную ячейку, щелкните «Найти далее». В экселе будет выделена нужная ячейка;
  • Для того чтобы найти сразу все такие ячейки, щелкните «Найти все». Появятся все объединенные ячейки. Можно нажать на любую ячейку в списке – тогда она будет выделена в экселе, и вы увидите, где она расположена.

Важные выводы

  1. Все данные, которые имеются в ячейках, теряются (за исключением верхней левой в выделенных ячейках, в которых потери нет), это касается любых направлений выделения;
  2. Объединение ячеек вполне можно вернуть обратно, что не приведет к потери данных. Информация, которая содержалась в них, будет расположена в левой верхней ячейке (она будет расположена сплошным текстом).

Объединение ячеек в Эксель 2010 и других версиях программы помогает ускорить работу с документом и создать более наглядную картину. Используя эту функцию, вы легко научитесь правильно структурировать таблицы.

Используют зачастую для выполнения сложных расчетных операций и создания таблиц с результатами, где применяется автоматическое изменение этих данных при изменении первичных данных. Для упрощения чтения информации с итоговой таблицы и в целом для правильного ее оформления необходимо знать, как объединить ячейки в Excel, ведь этого требует в большинстве случаев шапка таблицы. То есть такая функция необходима для объединения нескольких ячеек в одну для подчеркивания принадлежности информации нескольких колонок/строк к одному заголовку в шапке.

В Экселе документы представлены в виде листов, разбитых на множество ячеек. Поэтому, чтобы соединить несколько таких клеток и разместить в них общую информацию или не утратить имеющиеся данные, рассмотрим несколько способов достижения поставленных целей. Также представлен способ разъединения, поскольку в работе и такие функции могут принести пользу и сэкономить время.

Основные способы объединения

Так как версии Excel обновляются и меняются их меню, не всегда и не у всех пользователей получается быстро объединить нужную область привычным способом. Однако все же имеется универсальный метод, который работает во всех версиях программы. Рассмотрим, как объединить ячейки в Экселе через контекстное меню (самый простой способ):

  1. Необходимо выделить с помощью мышки нужные ячейки и кликнуть на правую кнопку в любом выделенном месте.
  2. В появившемся окне выбрать команду «Формат ячеек», после чего перейти на вкладку «Выравнивание».
  3. В появившейся группе следует нажать на «Отображение», поставить флажок перед надписью «Объединение ячеек» и подтвердить действия кнопкой «Ок».

Есть и другой способ, который в зависимости от версии Excel несколько отличается. К примеру, в программе 2003 года панель инструментов поможет объединить несколько ячеек. В панели инструментов «Форматирование» имеется специальная кнопка, которая осуществляет объединение ячеек, при этом еще и выравнивает содержимое по центру, что хорошо подходит для создания шапки таблицы, то есть заголовков.

В Экселе 2007 и 2010 гг. аналогичную кнопку можно найти на вкладке «Главная» — «Выравнивание». При выборе этого меню и нажатии стрелки правее можно не только объединить и разместить по центру данные, но и помещать по строкам, а также вовсе отменять объединение ячейки в Экселе.

Если при объединении возникли трудности — пункты меню и кнопки являются неактивными, исправить ситуацию можно, сняв защиту с листа или убрав разрешение доступа к книге.

Слияние без потери данных

Объединить ячейки обычно получается с потерей или изменой . То есть при слиянии клеток с текстом информация заменяется данными с верхней левой ячейки объединяемого диапазона, при этом данные других клеток просто теряются. Чтобы знать, как объединить ячейки в Еxcel без потери данных, предстоит ознакомиться с еще одной полезной командой — текстовая функция «Сцепить».

С помощью такой функции можно соединить до 255 текстовых строк в одно целое, сцепить можно текстовые и числовые данные, ссылки и сочетание этих элементов. К примеру, в 1-й ячейке будет фамилия, а во 2-й — имя человека, чтобы осуществить слияние данных, нужно указать в 3-й клетке следующую формулу: =СЦЕПИТЬ(A1;» «;B1). Кавычки в этом случае означают пробел, то есть любые знаки пунктуации , но заключаются в кавычки.

В меню Еxcel «Главная» в разделе «Библиотека функций» необходимо выбрать «Текстовые», после чего кликнуть на функцию «СЦЕПИТЬ». В появившемся окне следует указать обязательный аргумент и необязательные аргументы, причем ячейки должны быть разделены запятыми (см. фото). После этого подтвердить операцию — объединить указанные данные.

При необходимости можно выполнить обратную операцию. В программе как таковой функции разъединения нет, но сделать это можно при желании очень быстро. Если ячейка представляет собой слияние нескольких клеток таблицы, то следует ее сначала выделить, после чего, кликнув курсором мышки, в меню выбрать подсвеченную кнопку «Объединения и помещения в центре» или раскрыть прикрепленный к ней выпадающий список, где нужно выбрать команду отмены.

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

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

При работе в программе Excel часто возникают ситуации, когда нужно соединить нескольких ячеек в одну (например, чтобы сделать заголовок).

Сейчас мы разберем все возможные варианты. Первые два способа подойдут в случае, если нужно склеить пустые или почти пустые ячейки (частично заполненные). Другие же соединят не только сами ячейки, но и их содержимое.

Самый простой способ

1 . Выделяем то, что нужно объединить. Для этого нажимаем левую кнопку мышки на крайней ячейке и, не отпуская мышку, тянем до тех пор, пока нужные ячейки не обрисуются рамкой.

2 . Нажимаем на кнопку на вкладке «Главная» (вверху).

По умолчанию эта кнопка соединяет ячейки и помещает их содержимое в центре. Но есть и другие варианты: чтобы их открыть, нужно нажать на маленькую стрелку справа от кнопки.

Еще один простой способ

1 . Выделяем нужные ячейки и жмем по одной из них правой кнопкой мышки. Появляется контекстное меню, в котором выбираем пункт «Формат ячеек».

2 . В окошке выбираем вкладку «Выравнивание» и ставим галочку напротив пункта «Объединение ячеек», после чего нажимаем OK.

Объединение ячеек с данными

Если вы собираетесь соединить несколько ячеек, в которых уже есть информация, учитывайте, что в результате будут сохранены не все данные. Часть информации удалится.

Чтобы этого не произошло, объединять их нужно по-другому. Есть несколько способов: через сцепление данных, при помощи программы Блокнот и через макрос.

Способ первый (через сцепление)

Шаг 1: склеиваем данные

Сначала нужно склеить данные, то есть соединить их друг с другом. Делается это в новой ячейке через функцию «Сцепить» или через знак &. Покажу на примере оба варианта, а вы уж выбирайте, какой больше нравится.

Склеивание через функцию «СЦЕПИТЬ» . Допустим, у нас есть отдельно имя, фамилия и отчество. Все эти данные нужно объединить, а для этого сначала склеить их.

1 . Щелкаем по пустой ячейке.

2 . Печатаем знак = и большими буквами слово СЦЕПИТЬ

3 . Открываем скобку и щелкаем по первой ячейке с данными, затем печатаем точку с запятой и щелкаем по второй, затем опять точку с запятой - и по третьей. После это закрываем скобку.

4 . Нажимаем клавишу Enter на клавиатуре.

Все данные слепятся в одну сплошную строку. Если же их нужно каким-то образом разделить (пробелом, запятой и т.д.), этот символ также нужно добавить в формулу, но только в кавычках. Пример знака - в качестве разделителя:

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

Склеивание через знак & . Находится этот символ там же, где цифра 7 на клавиатуре. Набирать его нужно на английской раскладке при зажатой клавише Shift.

Принцип почти такой же, как и при склеивании через функцию СЦЕПИТЬ:

1 . Щелкаем в пустой ячейке и печатаем в ней знак =

2 . Нажимаем на первую ячейку с данными, печатаем символ & и нажимаем на вторую ячейку, затем опять вводим & и нажимаем на третью и так далее.

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

Шаг 2: убираем дубли

Не важно, каким способом, но данные мы склеили.

Если нужно получить такой же результат и для остальных ячеек, эту «формулу» можно растянуть:

  • Щелкаем по ячейке с результатом
  • Наводим на маленький черный квадратик внизу справа
  • Когда курсор примет вид тонкого черного плюса, нажимаем левую кнопку мышки и, не отпуская ее, растягиваем по другим ячейкам

У меня получилось вот что:

Подробнее о «растягивании» можно узнать из вот этого урока .

Всё это, кончено, хорошо и замечательно, но есть одна проблемка. Так как данные мы склеили через формулу, то результат этих действий будет виден только если сохранится оригинал. Другими словами, и новые и старые ячейки должны остаться на месте.

Иногда это подходит, но что делать, если нужны только склеенные данные? Выход есть!

1 . Выделяем новые (склеенные) ячейки.

2 . Щелкаем по любой из них правой кнопкой мышки и из меню выбираем «Копировать».

3 . Выделяем какие-нибудь другие пустые ячейки.

4 . Нажимаем по любой из них правой кнопкой мышки и выбираем «Специальная вставка».

5 . В окошке выбираем пункт «Значения» (вверху) и нажимаем ОК.

В итоге получаем те же самые склеенные данные, но уже не в виде формулы (которая без оригинала не работает), а как обычный текст.

Собственно, теперь все предыдущие данные можно удалить, а эти (новые) скопировать и вставить на их место.

Способ второй (через Блокнот)

Честно говоря, мне этот способ даже больше нравится - он быстрее.

1 . Выделяем в Экселе ячейки с нужными данными (можно выделить целые столбы/строки).

2 . Копируем их (правая кнопка мыши - Копировать).

3 . Открываем программу Блокнот: Пуск - Все программы - Стандартные - Блокнот. Или открываем Пуск и печатаем слово блокнот в поле для поиска (внизу).

4 . Вставляем в окно программы скопированные данные (правой кнопкой мышки по пустому месту - Вставить).

5 . Копируем символ табуляции.

Для этого в пустой строчке Блокнота (перейти на нее можно, нажав на Enter) нажимаем один раз клавишу Tab на клавиатуре.

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

6 . Вверху программы Блокнот нажимаем на пункт «Правка» и выбираем «Заменить…».

7 . В первое поле («Что:») вставляем скопированный символ табуляции, а во второе поле («Чем:») вставляем необходимый нам разделитель, например, жмем клавишу пробел.

8 . Нажимаем на кнопку «Заменить все» и закрываем это маленькое окошко.

После этого данные в Блокноте немного изменятся - текст как будто бы чуть-чуть сожмется.

9 . Выделяем все это в Блокноте и копируем.

10 . Переходим в программу Excel и вставляем скопированные данные (удалив предыдущие).

Способ третий (макрос)

Еще один вариант объединения ячеек в Экселе без потери данных. Он чуть более сложный - для тех, кто знает, что такое Visual Basic.

Данный способ я позаимствовал из вот этой статьи . Кстати, очень клёвый сайт, советую всем, кто работает с программой Excel.

1 . Открываем вкладку «Вид» и нажимаем на кнопку «Макросы».

2 . Печатаем название для макроса, нажимаем «Создать».

3 . Откроется редактор Visual Basic. Вставляем туда следующий код:

Sub MergeToOneCell()
Const sDELIM As String = " " "разделитель в данном случае пробел.
Dim rCell As Range
Dim sMergeStr As String
If TypeName(Selection) <> "Range" Then Exit Sub "если выделяются не ячейки, тогда программа выходит
With Selection
For Each rCell In .Cells
sMergeStr =sMergeStr & sDELIM & rCell.Text "процесс сбора текста из ячеек
Next rCell
Application.DisplayAlerts = False "выключаем обычное предупреждение о потере текста
.Merge Across:=False "объединение ячеек
Application.DisplayAlerts = True
.Item(1).Value = Mid(sMergeStr, 1 + Len(sDELIM)) " добавляем к объединенным ячейкам суммированный текст
End With
End Sub

4 . Закрываем редактор Visual Basic.

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

Объединение двух или более ячеек в Экселе поможет сделать документ более привлекательным и понятным. Это несложное форматирование, и научиться ему может каждый.

Соединить ячейки можно двумя способами: склеивание ячеек в одну или соединение информации, вписанной в эти ячейки, но при этом возникнет эффект потери данных. Давайте попробуем разобраться, как объединить ячейки в Экселе.

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

Выполните следующие шаги:

  • Выделите ячейки, щелкните по ним правой клавишей мыши;
  • Выберите пункт «Формат ячеек…», появится новое окно;
  • Перейдите в меню «Выравнивание», далее – «Отображение»;
  • Установите птичку возле строчки «Объединение ячеек» и нажмите «Enter».

Теперь две ячейки объединятся в одну. Правда, здесь есть один момент. Если вы объединяли ячейки по горизонтали, то останется только та информация, которая была в левой; если объединяли по вертикали – то останется информация, которая была в верхней ячейке. Все, что было написано во второй ячейке, просто удалится.

Соединение данных из разных ячеек

Но в экселе 2010 и других версиях программы можно объединять ячейки таким образом, чтобы все написанное сохранялось. Допустим, у вас три столбика: в первом указано имя, во втором – фамилия, в третьем – отчество. Требуется объединить их в одной ячейке (например, сделать Иван Петров Иванович). Если ФИО не одно, а много, то переписывать все заново – слишком долго. Есть два варианта объединения ячеек, с помощью которых сделать это намного быстрее.

Вариант первый:

  • Сделайте четвертый столбик, назвав его ФИО;
  • На следующей строчке введите «=A2&B2&C2» (то есть те ячейки, в которых стоят первые фамилия, имя и отчество) и нажмите «Enter»;
  • Получится следующее – «ИванПетровИванович». То есть, ФИО будет написано без пробелов;
  • Если нужно установить пробелы, вставьте знак «&” “&», то есть, формула будет такой – «A2&” “&B2&” “&C2». В результате получится «Иван Петров Иванович»;
  • Чтобы поставить разделитель, можно использовать любой знак, например запятую. Получится такая формула«A2&” “&С2&”, “&В2», в итоге ФИО будут выглядеть так: «Иван Иванович, Петров»;
  • Чтобы использовать формулу для других ячеек, скопируйте первую формулу, выделите строчки под ней (напротив которых стоят разделенные фамилия, имя и отчество) и нажмите «Enter».

Вариант второй:

  • Аналогично применяется формула «=СЦЕПИТЬ(A2;B2;С2)»;
  • Если нужно установить пробел, то «=СЦЕПИТЬ(A2,» «,B2)»;
  • Если нужна запятая – «=СЦЕПИТЬ(A2,», «,B2)».

Как разделить объединенные ячейки

  1. Щелкните по ячейке левой клавишей мыши. На вкладке «Главная» в разделе «Выравнивание» загорится кнопка «Объединить и поместить в центре»;
  2. Чтобы убрать соединение, просто нажмите эту кнопку.

Правда, при разделении ячеек не произойдет разъединение данных в них. Если они объединялись, информация будет расположена в левой ячейке. Во второй ячейке произойдет эффект потери данных то есть она будет пустой.

Как найти объединенные ячейки

  1. Перейдите на вкладку «Главная», в раздел «Редактирование»;
  2. Выберите «Найти и выделить», затем «Найти»;
  3. Выберите «Параметры», нажмите строчку «Формат»;
  4. Откройте меню «Выравнивание», в разделе «Отображение» пометьте галочкой строчку «Объединение ячеек»;
  5. Кликните «ОК»;
  6. Затем используйте один из двух вариантов:
  • Для того чтобы найти очередную объединенную ячейку, щелкните «Найти далее». В экселе будет выделена нужная ячейка;
  • Для того чтобы найти сразу все такие ячейки, щелкните «Найти все». Появятся все объединенные ячейки. Можно нажать на любую ячейку в списке – тогда она будет выделена в экселе, и вы увидите, где она расположена.

Важные выводы

  1. Все данные, которые имеются в ячейках, теряются (за исключением верхней левой в выделенных ячейках, в которых потери нет), это касается любых направлений выделения;
  2. Объединение ячеек вполне можно вернуть обратно, что не приведет к потери данных. Информация, которая содержалась в них, будет расположена в левой верхней ячейке (она будет расположена сплошным текстом).

Объединение ячеек в Эксель 2010 и других версиях программы помогает ускорить работу с документом и создать более наглядную картину. Используя эту функцию, вы легко научитесь правильно структурировать таблицы.

Иногда эксель удивляет своими требованиями делать что-то через э… макросы. Вот недавно, встала задача разбить несколько объединенных ячеек по одной, чтобы можно было нормально отсортировать весь диапазон. Думаю, никому не надо объяснять, как просто убрать объединение ячеек, разбив их по одной (я имею ввиду формат-выравнивание-убрать галку с «объединение ячеек»). Но, к сожалению, эксель обладает очень интересным свойством при отмене объединения ячеек не спрашивать, как именно мы хотели бы их вернуть в нормальное, разъединенное состояние, а тупо пишет в верхнюю левую ячейку значение, которое было в объединенной, а все остальные ячейки оставляет незаполненными. Ну, естественно, ни о какой нормальной сортировке по прежде объединенным ячейкам говорить не приходится. И хорошо бы их было всего штук 200-300. А если их шестьдесят тысяч, разбитых на группы по 10 ячеек? Вручную шесть тысяч значений потом копировать в оставшиеся пустыми ячейки?

Типичная картина — хотим отсортировать список пофамильно, чтобы Кузнецов шел все-таки после Иванова. Пример, разумеется, очень упрощенный.

Просто так отсортировать таблицу эксель нам не даст — ячейки-то объеденены. Но и если мы отменим объединение, то каждая фамилия запишется только в верхнюю ячейку, и остальные придется дозаполнять. Получится вот так вот:

А нам то надо, чтобы в каждой ячейке было соответствующее значение, иначе при сортировке получится черти что!

К сожалению, выполнить это стандартными средствами экселя, как например, мы или — невозможно. Необходимо использовать макросы. Но, слава богу, есть добрые люди на свете, которые уже сделали это до нас. Причем — написали даже не один макрос, а целых несколько. При этом макросы позволяют не только разделять ячейки с сохранением содержащейся в них информации, но и многое другое:

  • разгруппировать ячейки выделенного диапазона с заполнением

Проверил все, работают отлично. Код самого простого, как показавшего отличнейшие результаты, хочу разместить и здесь. На всякий случай, если вдруг пропадет с исходной страницы, ссылку на которую я привел выше.

Итак, создаем макрос с кодом:

ABAP

Sub UnMerge_And_Fill_By_Value() " разгруппировать все ячейки в Selection и ячейки каждой бывшей группы заполнить значениями из их первых ячеек Dim Address As String Dim Cell As Range If TypeName(Selection) <> "Range" Then Exit Sub End If If Selection.Cells.Count = 1 Then Exit Sub End If Application.ScreenUpdating = False For Each Cell In Intersect(Selection, ActiveSheet.UsedRange).Cells If Cell.MergeCells Then Address = Cell.MergeArea.Address Cell.UnMerge Range(Address).Value = Cell.Value End If Next End Sub

SubUnMerge_And_Fill_By_Value () "разгруппироватьвсеячейкивSelectionиячейкикаждойбывшейгруппызаполнитьзначениямиизихпервыхячеек

DimAddressAs String

DimCellAs Range

If TypeName (Selection) & lt ; & gt ; "Range" Then

Exit Sub

EndIf

If Selection. Cells. Count = 1 Then

Exit Sub

EndIf

Application. ScreenUpdating= False

For EachCellIn Intersect (Selection, ActiveSheet. UsedRange) . Cells

If Cell. MergeCellsThen

Address= Cell. MergeArea. Address

Cell. UnMerge

Range (Address) . Value = Cell. Value

EndIf

Next

В результате выполнения макроса все выделенные объединенные ячейки разбиваются по одной, и заполняются именно тем значением, которое было в объединенной. Сортируй-не хочу.

Только не надо забывать, что после выполнения макроса, отменить эту операцию нельзя. Поэтому лучше работать с копией таблицы.

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

Тоже на всякий случай приведу код:

ABAP

Sub MergeCls() Dim ri As Integer, r2 As Integer, Col As Integer r1 = ActiveCell.Row r2 = ActiveCell.Row Col = ActiveCell.Column Do If Cells(r1, Col) <> Cells(r2 + 1, Col) Then If r1 <> r2 Then Range(Cells(r1 + 1, Col), Cells(r2, Col)).ClearContents With Range(Cells(r1, Col), Cells(r2, Col)) .HorizontalAlignment = xlCenter .VerticalAlignment = xlCenter .WrapText = True .Orientation = 0 .AddIndent = False .IndentLevel = 0 .ShrinkToFit = False .ReadingOrder = xlContext .MergeCells = True End With End If r1 = r2 + 1 End If r2 = r2 + 1 Loop Until Cells(r2, Col) = "" End Sub

SubMergeCls ()

DimriAs Integer, r2As Integer, ColAs Integer

r1= ActiveCell. Row

r2= ActiveCell. Row

Col= ActiveCell. Column

If Cells (r1, Col) & lt ; & gt ; Cells (r2+ 1 , Col) Then

If r1& lt ; & gt ; r2Then

Range (Cells (r1+ 1 , Col) , Cells (r2, Col) ) . ClearContents

With Range (Cells (r1, Col) , Cells (r2, Col) )