Перейти к содержимому

Как убрать объединение ячеек в excel

  • автор:

Объединение и отмена объединения ячеек — Excel

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

Ваш браузер не поддерживает видео. Установите Microsoft Silverlight, Adobe Flash Player или Internet Explorer 9.

Объединение ячеек

Выделите ячейки для объединения.

Выберите Объединить центр &.

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

Отмена объединения ячеек

Нажмите стрелку вниз рядом с кнопкой Объединить и поместить в центре.

Выберите Отменить объединение ячеек.

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

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

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

В приведенном ниже примере ячейки A1, B1 и C1 объединены для создания подписи «Продажи за месяц», чтобы описать информацию, указанную в строках 2–7.

Объединение ячеек над другими ячейками

Объединение ячеек

Объедините две или более ячеек, выполнив указанные ниже действия.

Выделите несколько смежных ячеек, которые вы хотите объединить.

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

На вкладке Главная нажмите кнопку Объединить и выровнять по центру.
На вкладке "Главная" нажмите кнопку "Объединить и выровнять по центру"

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

Чтобы объединить ячейки без центрирования, щелкните стрелку рядом с элементом Объединить & центр, а затем выберите Объединить поперек или Объединить ячейки.

Отмена объединения ячеек

Если необходимо отменить объединение ячеек, щелкните объединенную ячейку и выберите пункт Отменить объединение ячеек в меню Объединить и выровнять по центру (см. рисунок выше).

Разделение текста по нескольким ячейкам

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

Например, столбец, содержащий полные имена, можно разделить на отдельный столбец с именами и отдельный столбец с фамилиями следующим образом.

До и после разделения текста по различным столбцам

Выполните указанные ниже действия, чтобы разделить текст на несколько столбцов.

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

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

Выберите Данные >Текст в столбцы, в котором отображается мастер преобразования текста в столбцы.

Выберите Разделители > Далее.

Установите флажок Пробел и очистите остальные поля. Или проверка поля «Запятая» и «Пробел«, если текст разделяется таким образом (например, «Рейес, Хавьерс» с запятой и пробелом между именами). В нижней части всплывающего окна представлена область предварительного просмотра данных.

Шаг 2 в мастере: в разделе "Разделители" выберите способ разделения данных; в области предварительного просмотра отображается образец данных

Нажмите кнопку Далее , а затем выберите формат для новых столбцов. Если вам не нужен формат по умолчанию, выберите формат, например Текст, а затем выберите второй столбец данных в окне Предварительный просмотр данных и снова выберите тот же формат. Повторите это для всех столбцов в окне представления Pre.
Шаг 3 в мастере; выбран параметр "Текстовый"

Нажмите кнопку Изображение кнопки "Свернуть диалоговое окно"справа от поля Назначение , чтобы свернуть всплывающее окно.

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

Выберите ячейки, в которые нужно вставить свои разделенные ячейки.

Нажмите кнопку Кнопка "Развернуть", чтобы снова развернуть всплывающее окно, а затем нажмите кнопку Готово.

Нажмите кнопку "Развернуть"

Объединив несколько ячеек, можно создать одну новую, более крупную ячейку. Это отличный способ создания подписи, которая охватывает несколько столбцов. В данном примере ячейки A1, B1 и C1 объединены для создания подписи «Продажи за месяц», чтобы описать данные во 2–7 строках.

Объединение ячеек над другими ячейками

Объединение ячеек

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

Важно: Убедитесь, что только одна из ячеек в диапазоне содержит данные.

Выберите Главная > Объединить центр &.

Кнопка "Объединить и поместить в центре" на ленте

Если параметр Merge & Center неактивен, убедитесь, что ячейка не редактируется или ячейки, которые требуется объединить, не содержатся в таблице.

Совет: Чтобы объединить ячейки без отцентрирования данных, выберите объединенную ячейку, а затем выберите параметры выравнивания слева, по центру или по правому краю рядом с элементом Объединить & центр.

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

Отмена объединения ячеек

Чтобы отменить объединение ячеек сразу после слияния, нажмите клавиши CTRL+Z. В противном случае сделайте следующее:

Выберите объединенную ячейку и выберите Главная > Объединить центр &.

Кнопка "Объединить и поместить в центре" на ленте

Данные в объединенной ячейке перемещаются в левую ячейку при разделении ячеек.

До и после разъединения ячеек

Дополнительные сведения

Вы всегда можете задать вопрос эксперту в Excel Tech Community или получить поддержку в сообществах.

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

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

Формат ячеек

Команда Excel Правая кнопка мыши → Формат ячеек → Выравнивание → Отображение → объединение ячеек удаляет границы между ячейками в выделенном диапазоне. В результате получается одна большая ячейка. На картинке показано объединение ячеек одной строки и трех столбцов.

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

Таким же способом можно объединить любой прямоугольной диапазон. После объединения ячеек содержимое часто центрируют. На ленте во вкладке Главная даже есть специальная команда Объединить и поместить в центре.

Команда объединить и поместить в центре

Начинающие пользователи Excel часто применяют эту команду для размещения названия таблицы по центру.

Надпись в центре объединенной ячейки

Выглядит красиво, но крайне непрактично. Если выделить столбец комбинацией клавиш Ctrl + пробел, то диапазон расширится на все столбцы, которые захватывает объединенная ячейка. Возникнут и другие проблемы: при копировании, не работает в таблице Excel, нельзя автоматически подогнать ширину столбца и др. В общем, объединение ячеек сулит много неудобств в дальнейшей работе. Поэтому в большинстве случаев объединение ячеек лучше не применять.

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

Бывает, что в файле уже есть объединенные ячейки и они мешают нормальной работе. Например, в отчете из 1С или при работе с чужим файлом Excel. Тогда их нужно как-то быстро найти и отменить объединение. Как это быстро сделать? Выполните следующие шаги.

  1. Вызовите команду поиска Главная (вкладка) → Редактирование (группа) → Найти и выделить → Найти. Или нажмите комбинацию горячих клавиш Ctrl + F.
  2. Убедитесь, что в поле Найти пусто.
  3. Нажмите кнопку Параметры.
  4. Перейдите в Формат, в окне формата выберите вкладку Выравнивание и поставьте флажок объединение ячеек.
  5. ОК.
  6. В окне Найти и заменить нажмите Найти все.
  7. Появятся адреса всех объединенных ячеек. Их можно выбрать по отдельности, или все сразу нажав Ctrl + A.

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

Для отмены объединения сразу на всем листе Excel выполните следующие действия.

  1. Выделите все ячейки на листе. Можно щелкнуть на треугольнике, расположенном на пересечении заголовков строк и столбцов, либо горячей комбинацией Ctrl + A (один или два раза).
  2. Повторно примените команду Главная (вкладка) → Выравнивание (группа) → Объединить и поместить в центре.

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

Горячие клавиши объединения ячеек в Excel

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

Буквы под командами после нажатия Alt

Затем буквы появятся под каждой командой или выпадающим списком команд. Таким образом можно определить последовательность клавиш вызова нужной команды. Для объединения и центрирования ячеек в моей версии Excel необходимо последовательно нажать Alt – Я – Щ – Б. Это был первый способ.

Второй способ. Любым способом объединить ячейки и повторно вызвать команду клавишей F4 (повтор последнего действия).

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

Настройка панели быстрого доступа Excel

Вы попадаете в настройки панели быстрого доступа. Найдите команду Объединить и поместить в центре и добавьте ее в правое окно.

Перенос кнопки на панель быстрого доступа

Кнопка появится на панели быстрого доступа.

Объединение ячеек на панели быстрого доступа

После нажатия Alt под этой кнопкой появится цифра, зависящая от порядкового номера в ряду.

Цифра под командой на панели быстрого доступа

Теперь есть еще одна горячая клавиша объединить ячейки в Excel – Alt + 5.

Выравнивание по центру (без объединения ячеек)

Для расположения надписи в середине строки воспользуйтесь командой выравнивание по центру.

  1. Поместите надпись в левую ячейку строки, где должно произойти выравнивание.
  2. Выделите вправо нужное количество ячеек.
  3. Вызываете команду Правая кнопка мыши → Формат ячеек → Выравнивание → по горизонтали → по центру выделения.

Внешне результат такой же, как при объединении, только все ячейки останутся на своем месте. Есть пару нюансов.

  1. Не всегда понятно, в какой ячейке находится запись.
  2. Выравнивать по центру можно только по горизонтали, по вертикали нельзя.

В большинстве случаев вместо объединения ячеек лучше применять выравнивание по центру.

Формат ячеек влияет только на отображение данных. На деле часто приходится соединять содержимое из разных ячеек. Далее рассмотрим, как в Excel объединить данные из нескольких ячеек в одну.

Объединение ячеек с помощью & (амперсанд) и функции Excel СЦЕПИТЬ (CONCATENATE)

Объединение содержимого ячеек – очень распространенная задача. Выбор решения зависит от типа данных и их количества.
Если нужно сцепить несколько ячеек, то подойдет оператор & (амперсанд).

& (амперсанд) для сцепки ячеек Excel

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

Функция СЦЕПИТЬ для объединения ячеек

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

Функция СЦЕПИТЬ для текста

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

Правильное соединение текста и числа.

Объединение текста и числа в Excel функцией СЦЕПИТЬ

Соединение текста и даты.

Объединение текста и даты в Excel функцией СЦЕПИТЬ

В общем, если вы искали, как объединить столбцы в Excel, то эти приемы работают отлично. Однако у & и функции СЦЕПИТЬ есть существенный недостаток. Все части текста нужно указывать отдельным аргументом. Поэтому соединение большого числа ячеек становится проблемой.

Функция Excel СЦЕП (CONCAT)

В Excel 2016 на смену функции СЦЕПИТЬ пришла функция СЦЕП. Она работает так же, только в качестве аргумента можно задать целый диапазон.

Функция СЦЕП Excel

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

Функция Excel ОБЪЕДИНИТЬ (TEXTJOIN)

Функция ОБЪЕДИНИТЬ также появилась в Excel 2016 и решила сразу все проблемы склеивания ячеек: указание целого диапазона, вставка разделителя и даже пропуск пустых ячеек в диапазоне, чтобы не дублировать разделитель.

разделитель – разделитель, который вставляется между ячейками

пропускать_пустые – если 0, то пустые ячейки включаются, если 1 – игнорируются. Обычно задают 1, чтобы не дублировать разделитель.

текст1;… – ссылка на диапазон или отдельные ячейки для сцепления.

Функция ОБЪЕДИНИТЬ Excel

Функция Excel ОБЪЕДИНИТЬ – лучшее решение для склеивания ячеек.

Заполнить – Выровнять

И еще один трюк. Объединить ячейки можно без формул. Исходные ячейки должны быть в одном столбце.

Столбец с текстом для сцепления

Выполните следующие действия.

  1. Выделите столбец с данными.
  2. Расширьте выделение вправо настолько, сколько предположительно должен занять объединенный текст или больше.
  3. Вызовите команду Главная (вкладка) -> Редактирование (группа) -> Заполнить -> Выровнять.

Текст будет помещен в одну ячейку через пробел.

Выравнивание столбца с текстом по горизонтали

  • Если в ячейках есть числа, даты или формулы, фокус не получится. Работает только с текстом.
  • Общая длина текста не должна превышать 255 символов. Лишнее будет перенесено на вторую строку автоматически (см. ролик ниже).

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

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

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

Метод 1 – панель инструментов.

На панели вы увидите кнопку объединения.

Чтобы ею воспользоваться, выделите диапазон, подлежащий объединению, и нажмите ее.

В итоге будет произведено объединение.

Если нажать на стрелочку около этой кнопки, то вы увидите меню.

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

Согласие приведет к потере остальных данных.

Команда «Объединить по строкам» создаст консолидированные ячейки в каждой строке.

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

Последний пункт отвечает на вопрос, как отменить объединение ячеек в Excel.

Метод 2 – использование меню

В последних версиях офиса классическое меню было заменено на вкладки. А вызов привычных окон осуществляется с помощью небольших значков в правом нижнем углу вкладки.

Не забудьте предварительно выделить объединяемые клетки и нажмите на этот значок. Появится окно выравнивания.

Ставьте галочку около пункта «Объединение ячеек». Здесь же в соответствующих выпадающих полях вы можете указать параметры выравнивания данных.

Метод 3 – копирование уже объединенных данных

Если Вам нужно воспроизвести уже имеющееся объединение, то воспользуйтесь буфером обмена. Комбинация горячих клавиш для объединения ячеек в Excel в таком случае будет следующей:

CTRL+C – скопировать в буфер обмена.
CTR+V – вставить из буфера обмена.

Установите указатель на выбранную позицию.

Скопируйте с помощью нажатия CRTL+C. Признаком того, что данные скопированы будут «бегущие муравьи» — анимация рамки по ее границам.

Установите курсор на нужную клетку. Выделять при этом такое же количество адресов необязательно, Excel автоматически выберет необходимое число и выполнит команду. Правда, данные пропадут. Нажмите кнопки для вставки из буфера. Аналогичное объединение появится в выбранном месте.

Метод 4 – формат по образцу

В Excel, как и в любой программе пакета Office, есть очень удобная кнопка «Формат по образцу».
Она находится в разделе «Буфер обмена».

Поставьте указатель на объединенный фрагмент и нажмите эту кнопку. Переведите указатель на нужное место и щелкните мышью. Форматирование будет полностью воспроизведено.

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

Как объединить содержимое ячейки в таблице Excel с сохранением данных

Это актуальная проблема. В любом из предыдущих способов Excel удаляет данные. Для их сохранения используется функция «Сцепить».
Нажмите значок Fx около строки формул. Так вы вызовете окно вставки функций.


Введите в строку поиска название «Сцепить» и нажмите кнопку «Найти».

Выделите найденную функцию и нажмите «Ок». Появится окно настройки.

Укажите диапазон руками или выделите его мышью.

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

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

Еще одна возможность выполнить объединение текста из нескольких ячеек Excel
– воспользоваться оператором «&», который производит объединение строк. Чтобы начать ввод формулы, поставьте указатель на то место, где будет расположен новый текст и нажмите знак «=». Затем мышкой щелкните по первому адресу, нажмите &, щелкните по второму и так далее.

Объединение текста из двух разных ячеек в одну в Excel версий 2003-2010 осуществляется аналогично.

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

Можно воспользоваться последним пунктом из меню кнопки «Объединить ячейки».

Или можно снять галочку в окне форматирования.

Как объединить с помощью макроса

Один из самых сложных способов – самостоятельно написать программу, которая позволит автоматизировать процесс. В пакет Microsoft Office добавлен разработчик кода на языке VBA. Чтобы им воспользоваться, нажмите ALT+F11. Откроется окно добавления программного кода.

Выполните команду Insert – Module.

Откроется окно для ввода данных.

Скопируйте и вставьте код.

Перейдите в Excel, нажав на его значок в левом верхнем углу.

Выделите объединяемый диапазон и запустите макрос на вкладке «Вид» — «Макросы».

Выберите нужный макрос и нажмите кнопку «Выполнить».

Фрагменты таблицы будут объединяться.

Не активна кнопка ячейки в Excel

Это редкий случай, но тем не менее такое происходит.

Причин две – защита листа или совместная работа. Вам надо проверить, не подключены ли у Вас подобные функции.
Чтобы снять защиту, перейдите на вкладку «Рецензирование» и нажмите кнопку «Снять защиту листа».

Если у вас нет такой кнопки, значит лист не защищен и причина не в этом. Проверьте, не находится ли документ в совместном доступе. Для этого нажмите кнопку «Поделиться» на панели инструментов справа.

Если Вы увидите больше одного пользователя, значит доступ открыт и кнопка «Объединить ячейки» будет не активна.

Нажмите на пользователе правой кнопкой мыши и выберите «Удалить пользователя».

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

Сортировка объединенных ячеек Excel

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

После того, как привели объединения в порядок, нажимайте кнопку «Сортировка и фильтр» в панели инструментов (справа) в разделе «Главная».

Выберите нужный вид сортировки.

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

Если лист Excel большой, на нем бывает трудно обнаружить объединенные данные. В таком случае воспользуемся поиском. На вкладке «Главная» нажмите кнопку «Найти и выделить» и выберите «Найти». Или нажмите горячие клавиши Ctrl + F. Читайте больше о горячих клавишах Excel.

Затем нажмите «Параметры» и «Формат».

Поставьте галочку около пункта «Объединение ячеек» и нажмите «ОК».

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

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

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

В программе Excel присутствует кнопка для разъединения объединенных ячеек таблицы на закладке: «ГЛАВНАЯ»-«Выравнивание»-«Отменить объединение ячеек». Но что, если эту операцию нужно выполнять многократно, да еще и после нее заполнять данными ново созданные ячейки. Реализовать данную задачу вручную – это весьма затратное занятие по времени и силам. Здесь рационально воспользоваться макросом.

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

Допустим у нас уже имеется вполне читабельная таблица списка заказов, в которой имеются объединенные ячейки в столбце «Год». Пример, такой таблицы изображен ниже на рисунке:

таблица списка заказов.

Но нам необходимо преобразовать данную таблицу в стандартный формат, например, для создания отчета на основе сводной таблицы. Для этого откроем редактор Visual Basic (ALT+F11):

Visual Basic.

И вставим новый стандартный модуль используя инструмент в редакторе: «Insert»-«Module». А после чего запишем в модуль VBA код макроса для разъединения объединенных ячеек:

модуль VBA код макроса.

Если мы хотим отменить объединение ячеек в столбце «Год» и заполнить созданные ячейки соответствующими значениями (годами), тогда перейдите на одну большую объединенную ячейку B2 и запустите макрос: «РАЗРАБОТЧИК»-«Код»-«Макросы»-«RazdelitVstavit»-«Выполнить».

отменить объединение ячеек.

В данном VBA коде макроса используется только одна переменная. Она хранит в себе адрес диапазона ячеек B2:B15 которые охватывает одна активная объединенная ячейка.

Адрес активной ячейки отображается в поле «Имя» (напротив строки формул Excel). Но там не отображается полный адрес объединенной ячейки.

Адрес активной ячейки.

Для пользователя в поле «Имя» будет адрес отображаться одинаково, но в макросе их можно различить с помощью методов объекта ActiveCell.MergeArea.Addres. В зависимости какой тип активных ячеек будет возвращен тип адреса – одна ячейка или диапазон. Если активная ячейка не является объединенной, тогда в переменной будет храниться только адрес одной активной ячейки, а не целого диапазона. Далее макрос проверяет является ли текущая активная ячейка – объединенной, с помощью сравнения двух способов получения адреса для одной и той же активной ячейки. Тот способ, который передал адрес в переменную из метода объекта ActiveCell.MergeArea.Addres и обычный – ActiveCell.Addres. Если адрес в переменной и адрес получен обычным способом не совпадает, значит она является объединенной и код выполняется дальше.

С помощью метода объекта ActiveCell.UnMerge выполняется разъединение объединенной активной ячейки. Далее копируется ее содержимое и заполняется диапазон на листе, адрес которого получен из переменной, его же ранее содержала в себе объединенная активная ячейка. После копирования значения для объекта CutCopyMode устанавливается свойство False, чтобы прекратить процесс копирования. В результате таблица листа заказов будет иметь такой же вид как показано ниже на рисунке:

Пример.

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

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

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

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

Создадим цикл, который будет перемещаться по всем выделенным объединенным ячейкам:

For i = 1 To Selection.Count

В конце кода не забудем добавить конец цикла:

Вместо ссылки на активную ячейку Active.Cell теперь будем использовать ссылку на очередную по счету ячейку в выделенном диапазоне: Selection.(i). Полная версия усовершенствованного макроса выглядит следующим образом:

Пример2.

Цикл, который перемещается по каждой объединенной ячейке выделенного диапазона, каждый раз вызывает VBA код макроса для разъединения их диапазона объединения с учетом всех выше описанных условий.

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

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

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