Excel как убрать объединение столбцов

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

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

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

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

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

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

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

2. Выберите отобрять ячейки.

Важно: 

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

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

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

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

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

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

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

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

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

Советы: 

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

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

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

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

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

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

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

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

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

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

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

4. Выберите параметр С разделителями и нажмите кнопку Далее.

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

   

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

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

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

   

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

   

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

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

1. Щелкните первую ячейку и нажмите shift, щелкнув последнюю ячейку в диапазоне, который нужно объединить.

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

2. Выберите Главная > Объединить и поместить в центре.

   

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

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

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

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

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

• Щелкните объединенную ячейку и выберите главная > объединить & Центре.

  

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

  

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

Вы всегда можете задать вопрос специалисту Excel Tech Community или попросить помощи в сообществе Answers community.

См. также

Полные сведения о формулах в Excel

Рекомендации, позволяющие избежать появления неработающих формул

Поиск ошибок в формулах

Сочетания клавиш и горячие клавиши в Excel

Функции Excel (по алфавиту)

Функции Excel (по категориям)

Иллюстрация: Meery Mary для Skillbox Media

Рассказывает просто о сложных вещах из мира бизнеса и управления. До редактуры — пять лет в банке и три — в оценке имущества. Разбирается в Excel, финансах и корпоративной жизни.

Объединение ячеек в Excel позволяет из нескольких ячеек таблицы сделать одну. Такая опция обычно требуется в двух случаях:

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

Рассмотрим четыре способа объединения ячеек в Excel. Разберёмся, для каких случаев они подойдут и как их применять. В конце расскажем, какие из этих способов работают в «Google Таблицах».

• Кнопка «Объединить» — когда нужно сделать шапку в таблице.
• Функция СЦЕПИТЬ — когда нужно собрать данные из нескольких ячеек в одну.
• Функция СЦЕП — когда нужно собрать данные из большого диапазона.
• Функция ОБЪЕДИНИТЬ — когда нужно собрать данные из большого диапазона и автоматически разделить их пробелами.

---

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

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

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

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

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

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

В нашем случае получилась шапка части таблицы — «Характеристики автомобилей».

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

Получаем таблицу в таком виде:

Чтобы убрать объединение ячеек, выделим их и нажмём на кнопку «Отмена объединения ячеек». Можно выбирать всю таблицу целиком — тогда Excel сам найдёт объединённые ячейки и разъединит их. Можно выделить отдельный диапазон — в этом случае разъединится только он. Мы выделим и разъединим всю шапку таблицы.

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

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

Получим таблицу в таком виде — три столбца объединились в один, при этом количество строк осталось прежним.

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

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

Для чего подойдёт. Для объединения небольшого количества ячеек с сохранением всех данных.

Особенности метода. Каждую ячейку нужно указывать в виде отдельного аргумента функции; большой диапазон сразу выделить нельзя.

Функция склеивает все данные из исходных ячеек в итоговую ячейку. Часто эти данные нужно разделить: вставить пробелы, знаки препинания, символы или слова. Это придётся прописывать вручную в строке ссылок.

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

Дальше открываем окно для построения функции. Есть два способа сделать это. Первый — перейти во вкладку «Формулы» и нажать на «Вставить функцию».

Второй способ — нажать на «fx» в строке ссылок на любой вкладке таблицы.

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

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

Заполняем аргументы функции. Поочерёдно нажимаем на окно каждого аргумента и из таблицы выбираем значение для него.

Порядок действий, чтобы указать значение, выглядит так:

• Ставим курсор в окно «Текст1» в построителе формул.
• Выбираем первое значение столбца «Год выпуска» в таблице. Это ячейка B4.

Выбранное значение переносится в построитель формул и одновременно появляется в формуле строки ссылок: fx=СЦЕПИТЬ(B4).

То же самое делаем для остальных аргументов: «Текст2» → значение ячейки «Объем», «Текст3» → значение ячейки «Коробка передач», «Текст4» → значение ячейки «Привод», «Текст5» → значение ячейки “Руль”.

В итоговом виде функция получается такой: fx=СЦЕПИТЬ(B4; C4; D4; E4; F4). Нажимаем кнопку «Готово».

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

Добавляем в получившуюся функцию после значения каждого аргумента запятую и пробел, в таком виде, вместе с кавычками: «, «;

Получаем функцию в таком виде: fx=СЦЕПИТЬ(«год выпуска «;B4;», объем «;C4;», коробка передач «;D4;», привод «;E4;», руль «;F4). Нажимаем Enter.

Таким же образом можно добавить не только пробелы и знаки препинания, но и целые слова и фразы.

Для нашего примера можно преобразовать функцию к такому виду: fx=СЦЕПИТЬ(«год выпуска «;B4;», объем «;C4;», коробка передач «;D4;», привод «;E4;», руль «;F4). Главное — не забывать указывать все необходимые пробелы, которые должны быть между объединёнными данными.

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

Для чего подойдёт. Для объединения больших диапазонов ячеек с сохранением всех данных.

Особенности метода. Можно указать сразу весь диапазон ячеек. Но функция, как и СЦЕПЛЕНИЕ, склеит их: значения не будут ничем разделены.

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

Как сделать. По аналогии с функцией СЦЕПЛЕНИЕ выделим ячейку, в которую функция будет собирать значения. Откроем окно для построения функций и найдём функцию СЦЕП.

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

Выбранное значение диапазона переносится в построитель формул и одновременно появляется в формуле строки ссылок: fx=СЦЕП(B4:F4).

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

Вернёмся в окно построения функции и поменяем аргументы на такой вид: «Текст1» → значение ячейки «Год выпуска», «Текст2» → «, «, «Текст3» → значение ячейки «Объём», «Текст4» → «, «. И так далее до последней ячейки, которую нужно объединить: чередуем значения ячеек и аргумент-разделитель.

Затем нажимаем «Готово». Итоговое значение функции принимает вид: fx=СЦЕП(B4;», «;C4;», «;D4;», «;E4;», «;F4), и данные ячейки разделяются запятыми и пробелами.

Чтобы добавить не только запятые с пробелами, но и слова, нужно дописать их в промежуточных аргументах функции. Сделаем это на нашем примере. Вернёмся в построитель формул и заменим данные: 
«Текст2» → «, объём «, «Текст4» → «, коробка передач «, «Текст6» → «, привод «, «Текст8» → «, руль «.

В итоге функция выдаёт значение, где все данные разделены между собой дополнительными словами. Формула при этом принимает вид: fx=СЦЕП (B4;”, объём “; C4;”, коробка передач “; D4;”, привод “; E4;”, руль “; F4).

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

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

Для чего подойдёт. Для объединения больших диапазонов ячеек с сохранением данных.

Особенности метода. Можно указать сразу весь диапазон ячеек и разделитель для них. При этом значение самого разделителя будет одним для всех объединённых ячеек. Если нужно изменить разделитель для части ячеек — делать это придётся вручную в строке ссылок.

Как сделать. Выделим ячейку, в которую функция будет собирать значения. Откроем окно для построения функций и найдём функцию ОБЪЕДИНИТЬ.

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

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

В нашем случае в качестве разделителя добавим запятую и пробел: «, «.

«Пропускать_пустые» — условное значение, которое определит, что функция будет делать с пустыми ячейками в диапазоне:

• Если нужно, чтобы пустые ячейки игнорировались и разделители не дублировались в них, вводим 1 (ИСТИНА).
• Если нужно, чтобы пустые ячейки обязательно учитывались, вводим 0 (ЛОЖЬ).

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

«Текст1» — значения ячеек, которые нужно объединить. Можно выбирать одним диапазоном или вводить каждое значение по отдельности.

В нашем примере выберем все ячейки одним диапазоном.

Итоговая функция в строке ссылок принимает вид: fx=ОБЪЕДИНИТЬ(«, «;1;B4:F4).

Нажимаем кнопку «Готово» и растягиваем полученную ячейку на все остальные строки.

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

Какие методы объединения ячеек есть в «Google Таблицах»? В них есть кнопка «Объединить», которая работает по аналогии с Excel. Также есть функция СЦЕПИТЬ, но нет окна построителя формул — прописывать значения придётся вручную. Если вам нужен разделитель в виде запятой и пробела, то функция будет выглядеть так: fx=СЦЕПИТЬ(C4;», «;D4).

Научитесь: Excel + Google Таблицы с нуля до PRO
Узнать больше

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

Проверьте, как это работает!

​Смотрите также​ ячейку (соблюдено обязательное​ оглавление слышали?​

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

1. ​ .. Копия колонтитулов​

2. ​: Так же кнопка​​End Sub​​​ дальше.​

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

1. ​ ячейка.​ ниже на рисунке:​​ столбец, содержащий ячейку​ в положение «Добавить​​ следует объединить, кликаем​

2. ​Для того, чтобы объединить​​Объединяет ячейки по​​ листе, при этом​

Хотите узнать больше?

​ или объединить несколько​Несколько ячеек можно объединить​

support.office.com

Перенос текста и объединение ячеек в Excel

​ условие — количество​Это если не​ (надстройка писал Прайст)​ что и для​Цикл, который перемещается по​Если мы хотим, чтобы​С помощью метода объекта​adres = ActiveCell.MergeArea.Address​Но нам необходимо преобразовать​ с первичными данными,​ столбец». Делаем это,​ по ним правой​ несколько ячеек, из​ строкам, т.е. в​ информация во всех​ ячеек в одну,​ в одну более​

​ цифр разделенных Enter​ слышали:​ , Отправка листа​ одного листа, только​ каждой объединенной ячейке​ данный макрос можно​ ActiveCell.UnMerge выполняется разъединение​Адрес активной ячейки отображается​ данную таблицу в​ и столбец, содержащий​ и кликаем по​ кнопкой мыши, и​ которых только одна​ каждой строке выделенного​

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

Перенос текста в Excel

​ объединенной активной ячейки.​ в поле «Имя»​ стандартный формат, например,​ ячейку с формулой​

1. ​ кнопке «OK».​ в появившемся контекстном​ заполнена данными, или​ диапазона образуется отдельная​ левой, будет удалена.​ ширину столбцов Вам​
2. ​Выделите ячейки для объединения.​​ равно количеству объединенных​​: …Отправка листа по​​ обратным адресом (тоже​​ необходимые листы кликая​
3. ​ раз вызывает VBA​ для нескольких объединенных​

​ Далее копируется ее​​ (напротив строки формул​​ для создания отчета​ сцепления.​

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

​В ячейке, образовавшейся между​ меню выбираем пункт​ вообще абсолютно пустых,​ ячейка.​В примере ниже мы​ не потребуется.​Нажмите кнопку​ ячеек).​ мэйлу с обратным​ он) , и​ ЛКП удерживая Ctrl.​ код макроса для​ ячеек в выделенном​

​ содержимое и заполняется​ Excel). Но там​ на основе сводной​Таким образом, мы получаем​

1. ​ теми ячейками, которые​ «Формат ячеек».​
2. ​ выделяем курсором нужные​​Объединить ячейки:​ объединим диапазон A1:E1,​​При переносе текста высота​​Объединить и поместить в​​Пример:​
3. ​ адресом…{/post}{/quote}​ самое мое любимое…​Но что делать​ разъединения их диапазона​

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

Дополнительные параметры объединения ячеек в Excel

​ чтобы создать заголовок​ строки будет автоматически​ центре​А1-А6:​​Это он?​ это ведение базы​​ если таких листов​ объединения с учетом​

• ​ еще одну переменную,​ адрес которого получен​​ адрес объединенной ячейки.​ откроем редактор Visual​ данные, которые следовало​ ставим значение без​
• ​ ячеек, переходим во​​ вкладке Excel «Главная»,​ одну, не помещая​ для нашего листа.​ изменяться, что позволит​.​
• ​9​​Sub SendSheet()​ отгрузок с отдельными​ под пару сотен?​
• ​ всех выше описанных​​ которая дополнит код​

​ из переменной, его​Для пользователя в поле​
​ Basic (ALT+F11):​
​ объединить, а все​

​ кавычек «=СЦЕПИТЬ(X;Y)», где​

office-guru.ru

Объединение ячеек в программе Excel

​ вкладку «Выравнивание». Отмечаем​ кликаем по значку​ содержимое в центре.​Выделите ячейки, которые требуется​ содержимому отображаться на​Нажмите стрелку вниз рядом​45​ThisWorkbook.Sheets(«Выборка»).Copy​ листами оплат справочниками​Тут наверняка макрос​ условий.​ счетчиком цикла:​ же ранее содержала​ «Имя» будет адрес​И вставим новый стандартный​ промежуточные ячейки удалены.​ X и Y​ флажком пункт «Объединение​ на ленте «Объединить​

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

Простое объединение ячеек

​ нескольких строках. Объединение​ с кнопкой​65​With ActiveWorkbook​ и т.д. тут​ поможет. Но это​Читайте также: Как объединить​

​Dim i As Long​ в себе объединенная​ отображаться одинаково, но​ модуль используя инструмент​Как видим, если обычное​ – это координаты​ ячеек». Тут же​ и поместить в​Отменяет объединение.​Нажмите команду​ ячеек позволяет создать​Объединить и поместить в​

​82​.SendMail Recipients:=»[email protected]», _​ все поучаствовали.​ уже не ко​ ячейки в Excel​Создадим цикл, который будет​

​ активная ячейка. После​ в макросе их​ в редакторе: «Insert»-«Module».​ объединение ячеек в​ соединяемых ячеек, после​ можно установить и​

​ центре».​Урок подготовлен для Вас​Объединить и поместить в​ одну большую ячейку,​

​ центре​8​Subject:=»Сегодняшняя выборка»​Микки​ мне ;)​ с помощью кода​ перемещаться по всем​

​ копирования значения для​ можно различить с​ А после чего​ программе Microsoft Excel​ добавление столбца. Например,​

Объединение через контекстное меню

​ другие параметры: направление​В этом случае, ячейки​ командой сайта office-guru.ru​ центре​ объединив при этом​.​8​.Close SaveChanges:=False​: Вот помяни его​Тот же Микки​

​ макроса VBA.​ выделенным объединенным ячейкам:​ объекта CutCopyMode устанавливается​ помощью методов объекта​ запишем в модуль​ довольно простое, то​ чтобы объединить таким​ и ориентация текста,​ объединятся, а все​Источник: http://www.gcflearnfree.org/office2013/excel2013/8/full​на вкладке​ несколько смежных.​Выберите пункт​Нужно чтобы было:​

​End With​ он тут как​

Объединение без потерь

​ замечательно пишет макросы!​Так же стоит отметить,​For i = 1​ свойство False, чтобы​ ActiveCell.MergeArea.Addres. В зависимости​ VBA код макроса​ с объединением ячеек​

​ способом ячейки A2​ выравнивание по горизонтали​ данные, которые будут​Автор/переводчик: Антон Андронов​Главная​В следующем примере мы​Отменить объединение ячеек​А1: 9​End Sub{/post}{/quote}​ тут…​Микки​ что выделенный диапазон​ To Selection.Count​ прекратить процесс копирования.​

​ какой тип активных​ для разъединения объединенных​ без потерь придется​ и C2, в​ и вертикали, автоподбор​ вписываться в объединенную​

​Автор: Антон Андронов​.​ применим перенос текста​.​А2: 45​Не совсем другая​ST​: Я в макросах​ может содержать необъединенные​В конце кода не​ В результате таблица​ ячеек будет возвращен​ ячеек:​ повозиться. Тем не​

​ ячейку B2 вставляем​ ширины, перенос по​ ячейку, станут помещаться​

​Довольно часто при работе​Выделенные ячейки будут объединены​ по строкам к​Объединение и отмена объединения​А3: 65​ идея… если интересно​: Спасибо. макрос работает,​ полный лох.. только​ ячейки, которые будут​ забудем добавить конец​ листа заказов будет​ тип адреса –​

​Sub RazdelitVstavit()​ менее, это тоже​ выражение «=СЦЕПИТЬ(A2;C2)».​ словам. Когда все​ в центре.​ с таблицами в​

​ в одну, а​ столбцу D.​ ячеек​и т.д.​ киньте мэйл кину​

​ Листов в книге​ те что макрорекордером..​ просто игнорироваться макросом.​ цикла:​ иметь такой же​ одна ячейка или​

​Dim adres As​ выполнимая задача для​Как видим, после этого,​ настройки выполнены, жмем​Если вы хотите, чтобы​

​ программе Microsoft Excel​ текст разместится в​Выделите ячейки, текст в​В данном уроке мы​Заранее спасибо.​ файлик.​ 530, когда все​ остальное написано с​ Если бы мы​Next​

​ вид как показано​

lumpics.ru

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

​ диапазон. Если активная​ String​ данной программы.​ символы в общей​ на кнопку «OK».​ данные размещались, согласно​ случается ситуация, когда​ центре.​ которых должен отображаться​ изучим такие полезные​Pelena​Serge​ выделял и отменял,​ кропотливой помощью ПРайста,​ не усовершенствовали наш​Вместо ссылки на активную​ ниже на рисунке:​

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

​ ячейка не является​adres = ActiveCell.MergeArea.Address​Автор: Максим Тютюшев​ ячейке «склеились».​Как видим, произошло объединение​ форматированию ячейки, то​ требуется объединить несколько​Кнопка​

​ на нескольких строках.​ функции Microsoft Excel,​: Здравствуйте.​: Ещё б не​ ругался что не​ Юрия М ,​ макрос, то при​ ячейку Active.Cell теперь​

​Данный макрос позволяет разъединить​ объединенной, тогда в​If adres <>​В программе Excel присутствует​Но, теперь вместо одной​ ячеек.​ нужно из выпадающего​ ячеек. Задача не​

​Объединить и поместить в​
​ В нашем примере​ как перенос текста​
​Выделяем объединенную ячейку​
​ интересно!​ хватает ресурсов...​
​ Слена и иже​
​ выделении нескольких объединенных​
​ будем использовать ссылку​
​ объединенные ячейки, которые​
​ переменной будет храниться​
​ ActiveCell.Address Then​


​ кнопка для разъединения​ объединённой ячейки мы​Но, что делать, если​ списка выбрать пункт​ слишком сложная, если​ центре​ мы выделим ячейки​ по строкам и​ — переходим в​

​А мыло здесь​Serge​ с ними.​ ячеек – разделилась​ на очередную по​ используют любое направление​ только адрес одной​ActiveCell.UnMerge​

​ объединенных ячеек таблицы​

​ имеем три: две​ в нескольких из​ «Объединить ячейки».​ эти ячейки не​действует как переключатель,​ в столбце D.​

​ объединение нескольких ячеек​ строку формул —​ светить? не хочется…​: …Отправка листа по​Serge​ бы только первая.​ счету ячейку в​ объединения: как по​ активной ячейки, а​ActiveCell.Copy​ на закладке: «ГЛАВНАЯ»-«Выравнивание»-«Отменить​ ячейки с первоначальными​ объединяемых ячеек присутствуют​В этом случае, запись​ содержат информации. Но,​ т.е. повторное нажатие​Выберите команду​ в одну. С​ выделяем содержимое этой​Какой нибудь Gleod​ мэйлу с обратным​: Ну не прибедняйтесь​ST​ выделенном диапазоне: Selection.(i).​ вертикали, так и​ не целого диапазона.​ActiveSheet.Paste ActiveSheet.Range(adres)​ объединение ячеек». Но​ данными, и одну​ данные, ведь при​ по умолчанию будет​ что делать, если​ на нее отменит​Перенести текст​ помощью данных функций​ ячейки — Копировать​ потом спамом задушит…​ адресом…{/post}{/quote}​

​ :)​: Возникла проблема, в​ Полная версия усовершенствованного​ полгоризонтали. Ее значение​ Далее макрос проверяет​Application.CutCopyMode = False​ что, если эту​ объединенную. Чтобы сделать​ объединении все значения,​ начинаться от правого​ в них уже​ объединение. Удаленные данные​на вкладке​ Вы сможете переносить​ — снимаем объединение​А файлик хочется…​Это он?​Я кучу Ваших​ книге много листов​ макроса выглядит следующим​

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

​Главная​ текст на несколько​ ячеек — становимся​Микки​Sub SendSheet()​ работ видел!​ с таблицами, в​ образом:​ во все ячейки,​ активная ячейка –​End Sub​ многократно, да еще​ по объединенной ячейке​ будут утрачены?​Также, есть возможность объединить​

​ они будут уничтожены?​

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

​ восстановятся​.​ строк, создавать заголовки​ в первую —​: да ради бога​ThisWorkbook.Sheets(«Выборка»).Copy​The_Prist, Юрий М,​ таблицах есть объединенные​Sub RazdelitVstavit()​

​ созданные после разъединения.​

​ объединенной, с помощью​Если мы хотим отменить​ и после нее​

​ правой кнопкой мыши,​Существует выход и в​

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

​Текст будет перенесен по​

​ для таблиц, вписывать​ Вставить​ я свое свечу​With ActiveWorkbook​ Слэн, Pavel55 и​ ячейки, для того,​Dim adres As​Внимание! Объединенная ячейка может​ сравнения двух способов​

​ объединение ячеек в​
​ заполнять данными ново​ и в контекстном​
​ этой ситуации. Мы​ Для этого, выбираем​
​ объединить ячейки, в​ параметрам объединения ячеек,​
​ строкам.​
​ длинный текст в​Можно записать эти​
​ легко imj1958 на​
​.SendMail Recipients:="[email protected]", _​
​ другие конечно крутые​
​ чтобы собрать данные​
​ String​
​ содержать в качестве​
​ получения адреса для​


​ столбце «Год» и​ созданные ячейки. Реализовать​ меню выбираем пункт​ будем использовать функцию​ нужный диапазон, и​ том числе и​ нажмите стрелку рядом​Нажмите команду​ одну строку, не​

​ действия макрорекодером и​ рамблере.​Subject:=»Сегодняшняя выборка»​ макрописатели, но в​

​ с этих листов​Dim i As​ значения формулы. В​ одной и той​ заполнить созданные ячейки​ данную задачу вручную​ «Копировать».​ «СЦЕПИТЬ». Прежде всего,​ из выпадающего списка​ без потери данных,​ с иконкой команды​

exceltable.com

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

​Перенести текст​​ увеличивая при этом​ повесить на кнопку​nk91003730​.Close SaveChanges:=False​ этой теме их​ на один лист​ Long​ такие случаи после​ же активной ячейки.​ соответствующими значениями (годами),​ – это весьма​Затем, перемещаемся в правую​ нужно добавить между​ кликаем по значению​

​ в программе Microsoft​​Объединить и поместить в​еще раз, чтобы​ ширину столбцов, и​

​ многое другое.​​: Спасибо. Это долго​ эксперты,​End Sub​ есть!​ по одному листу​ 1 To Selection.Count​ формула будет вставлена​ передал адрес в​

​ одну большую объединенную​​ времени и силам.​ данными, и, кликнув​
​ соединить, ещё одну​Как видим, после этого​
​Скачать последнюю версию​. Появится выпадающее меню,​При объединении двух и​Очень часто содержимое не​ для файла с​К примеру имеется​Serge​

​Микки​​ очень долго. объем​adres = Selection(i).MergeArea.Address​ во все ячейки​ переменную из метода​ ячейку B2 и​ Здесь рационально воспользоваться​
​ по ней, выбираем​ ячейку. Для этого,​ ячейки объединились не​ Excel​ со следующими командами:​ более ячеек результирующая​ может полностью отобразиться​ больше тысячи значений.​ такой файл (приведен​: Естественно, я бы​: Не ну идея​ большой, есть ли​If adres <>​ созданных в результате​

​ объекта ActiveCell.MergeArea.Addres и​​ запустите макрос: «РАЗРАБОТЧИК»-«Код»-«Макросы»-«RazdelitVstavit»-«Выполнить».​ макросом.​ в параметрах вставки​

​ кликаем правой кнопкой​​ в одну общую​Хотя, мы будем показывать​Объединить и поместить в​ ячейка занимает место​ в ячейке, т.к.​Макрорекордер возвращает/перезаписывает в​

​Nic70y​​ Необходимо отменить объединение​ напихали, да ещё​ же я полный​: Пометить лист -​

planetaexcel.ru

Отмена объединения ячеек (Формулы/Formulas)

​ActiveSheet.Paste ActiveSheet.Range(adres)​​ в переменной не​ получен обычным способом​
​ хранит в себе​ в которой имеются​ данные, которые перед​ контекстном меню выбираем​ через контекстное меню.​ метод подойдет и​ содержимое помещает в​ объединить любой смежный​ выбрать один из​: вариант формулой​ ячейки, причем цифры​ с объединёнными ячейками?!​ лох..​ снять объединение ячеек​Application.CutCopyMode = False​
​ будет символа $​
​ не совпадает, значит​
​ адрес диапазона ячеек​
​ объединенные ячейки в​
​ этим были в​
​ пункт «Вставить…».​
​ Для этого, выделяем​
​ для других версий​
​ центре.​
​ диапазон, и даже​
​ двух вариантов: перенести​
​200?’200px’:»+(this.scrollHeight+5)+’px’);»>=—ПРАВБ(ПОДСТАВИТЬ(ЛЕВБ(ВПР(«яя»;A$1:A1;1;1);ПОИСК(«»;ПОДСТАВИТЬ(ВПР(«яя»;A$1:A1;1;1);СИМВОЛ(10);»»;СТРОКА(A1)-ПОИСКПОЗ(«яя»;A$1:A1;1)+1))-1);СИМВОЛ(10);»»);15)​
​ разделенные Enter должны​
​А по листам​

​есть две-три разработки​​ не помогает?​
​End If​ необходимого для абсолютного​ она является объединенной​ B2:B15 которые охватывает​ столбце «Год». Пример,​ ячейке с формулой.​Открывается окошко, в котором​ курсором ячейки, которые​ данного приложения.​
​Объединить по строкам:​ все ячейки на​ текст по строкам​

​так надежнее:Код200?’200px’:»+(this.scrollHeight+5)+’px’);»>=—ПРАВБ(ПОДСТАВИТЬ(ЛЕВБ(ВПР(«яя»;A$1:A1;1;1);ПОИСК(«»;ПОДСТАВИТЬ(ВПР(«яя»;A$1:A1;1;1)&СИМВОЛ(10);СИМВОЛ(10);»»;СТРОКА(A1)-ПОИСКПОЗ(«яя»;A$1:A1;1)+1))-1);СИМВОЛ(10);»»);15)​​ встать в соответствующую​ как передвигаетесь? Про​ которые мне нравятся​
​Serge​Next​ или смешанного адреса.​

​ и код выполняется​​ одна активная объединенная​​ такой таблицы изображен​
​Теперь, удаляем крайний левый​

excelworld.ru

​ нужно переставить переключатель​

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

Особенности разъединения ячеек

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

Метод 1: параметры в окне форматирования

Многие пользователи предпочитают выполнять объединение ячеек в окне “Формат ячеек”. Здесь же можно выполнить разъединение.

1. Для начала нужно выделить объединенную ячейку. Затем щелчком правой кнопки мыши по ней раскрываем контекстное меню, в котором нам нужна строка “Формат ячеек”. Также можно просто нажать сочетание клавиш Ctrl+1, предварительно выбрав нужную ячейку.
2. Во вкладке “Выравнивание” обращаем внимание на группу параметров “Отображение”. Здесь должна стоять галочка напротив пункта “объединение ячеек”. Убираем ее и жмем кнопку OK.
3. В результате, объединение элементов будет отменено. Если ранее объединенная ячейка содержала какие-либо данные, они будут размещены в самой верхней левой ячейке разъединенного диапазона.

Метод 2: инструменты на ленте

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

1. Выбираем объединенную ячейку, после чего в главной вкладке нажимаем кнопку “Объединить и поместить в центре” (блок инструментов “Выравнивание”), которая в данном случае выполнит обратное действие, т.е. разъединение.
2. В итоге мы добились требуемого результата в считанные секунды.

Примечание: в результатах, полученных с помощью данных методов, есть небольшая разница. При реализации первого метода (через формат ячеек) значение объединенной ячейки, которое теперь будет располагаться в верхней левой ячейке разъединенного диапазона, сохранит выравнивание по горизонтали и вертикали первоначальной (объединенной) ячейки. При использовании кнопки на ленте программы выравнивание сохранится только по вертикали.

Заключение

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

Alex Пользователь Сообщений: 115 Регистрация: 16.01.2013	Добрый день!     Помогите, пожалуйста. Требуется снять объединение ячеек с заполнением всех разъединенных ячеек значением, которое было в объединенной ячейке. Таблицы большие, ручная работа утомляет. Как ускорить процесс?   Спасибо.

	Макросом выделить нужный диапазон и   Selection.UnMerge

	Воть     Sub Macro1()   i = ActiveCell.Row   b = ActiveCell.Column   Cells(i, b).UnMerge   Selection.FillDown   End Sub     Перед запуском макроса, необходимо активировать (тыкнуть мышкой) на нужной ячейке

	Тыкаем в объединенную ячейку и запускаем макрос:   Sub Макрос1()   a = Selection.Value   Selection.UnMerge   For Each rr In Selection   rr.Value = a   Next   End Sub       СердЖиГ, у Вас только один столбец заполняеется

	Лузер, я — ламер :-))) Начинающий вобщем

	СердЖиГ, просто проверить ведь этот код

Alex Пользователь Сообщений: 115 Регистрация: 16.01.2013	Спасибо всем. Я правда надеялся обойтись без макросов, но видно нет такого варианта. ((( Придется с макросами.

Alex_ST Пользователь Сообщений: 2746 Регистрация: 22.12.2012 На лицо ужасный, добрый внутри

А ведь тема-то интересная, часто нужная и так и не доведенная до ума…   Вот есть, например, таблица — штатное расписание организации (ну, или табличное описание чего угодно, имеющего иерархическую структуру) составленное с использованием объединенных ячеек. Естественно, что из-за наличия объединенных ячеек такую таблицу нормально фильтровать будет невозможно, а уж о том, чтобы перенести информацию в базу данных даже и подумать страшно…   Макрос типа:     Sub UnMerge_And_Fill_All()     Dim MainValue     Dim iCell As Range     MainValue = Selection.Value     Selection.UnMerge     For Each iCell In Selection        iCell.Value = MainValue     Next   End Sub     при выделении по очереди каждой из объединенных ячеек всё делает правильно.   Но если выделить диапазон, содержащий несколько групп объединенных ячеек, то после разъединения все ячейки выделенного диапазона окажутся заполнены значением MainValue.   А надо сделать чтобы в выделенном диапазоне перебирались в цикле все группы объединенных ячеек, каждая группа разгруппировывалась и её ячейкам присваивалось своё значение MainValue   Алгоритм-то мне ясен, но как сделать, что-то не пойму…   В приведенном примере на Лист1 в ячейках A1:E40 (в общем случае A:E) показана исходная таблица, а на Лист2 — таблица, как она должна выглядеть после разгруппировки макросом Smart_UnMerge С уважением, Алексей (ИМХО: Excel-2003 — THE BEST!!!) <#0>

VovaK Пользователь Сообщений: 1716 Регистрация: 01.01.1970	Делаете еще один цикл и проверяете каждую Cell in Selection, если  Cell.MergeCells = True то Call UnMerge_And_Fill_All затем Next     Собственно все. Отлаживайте и готово.

Alex_ST Пользователь Сообщений: 2746 Регистрация: 22.12.2012 На лицо ужасный, добрый внутри

Что-то у меня не работает…   Ругается «Недопустимое число аргументов или присвоение значения свойства.     Т.к. после iCell.UnMerge изначальное Selection сбрасывается и выбранными оказываются разгруппированные ячейки, то пришлось его запоминать в дополнительной переменной Sel_0     Сделал так:   Sub Smart_UnMerge()     Dim MainValue     Dim iCell As Range     Dim iiCell As Range     Dim Sel_0     Sel_0 = Selection.Range     For Each iCell In Sel_0        If iCell.MergeCells = True Then           MainValue = iCell.Value           iCell.UnMerge           For Each iiCell In Selection              iiCell.Value = MainValue           Next        End If     Next   End Sub С уважением, Алексей (ИМХО: Excel-2003 — THE BEST!!!) <#0>

Alex_ST Пользователь Сообщений: 2746 Регистрация: 22.12.2012 На лицо ужасный, добрый внутри	The_Prist как всегда СУПЕР!   Спасибо. Тестирую. Пока всё отлично работает. С уважением, Алексей (ИМХО: Excel-2003 — THE BEST!!!) <#0>

КАДР Пользователь Сообщений: 148 Регистрация: 26.11.2008	http://www.planetaexcel.ru/tip.php?aid=86   для Excel 2007: на ленте выбрать Главная — Найти и выделить — Выделение группы ячеек — пустые ячейки

КАДР Пользователь Сообщений: 148 Регистрация: 26.11.2008	Это делать после того, как снято объединение ячеек и выделен диапазон для заполнения

Alex_ST Пользователь Сообщений: 2746 Регистрация: 22.12.2012 На лицо ужасный, добрый внутри	The_Prist ,   если выделить целиком несколько столбцов, то разгруппировывает очень долго…   Надо бы, наверное, как-то ограничить обрабатываемый диапазон «до последней используемой строки».   А как это сделать? С уважением, Алексей (ИМХО: Excel-2003 — THE BEST!!!) <#0>

Alex_ST Пользователь Сообщений: 2746 Регистрация: 22.12.2012 На лицо ужасный, добрый внутри

СПАСИБО, The_Prist !!!   Вы пишете макросы быстрее чем я их тестирую…   Всё теперь отлично и быстро работает.   А что надо изменить чтобы в разгруппированные ячейки вставлялось не значение первой («главной») ячейки, а формула =главной_ячейке?   Тогда, изменив «ключевую» ячейку, мы сразу же изменим и те, с которыми она была сгруппирована.     Ну, а уж после всех исправлений можно будет и специальной вставкой формулы на значения заменить. С уважением, Алексей (ИМХО: Excel-2003 — THE BEST!!!) <#0>

Alex_ST Пользователь Сообщений: 2746 Регистрация: 22.12.2012 На лицо ужасный, добрый внутри

вот тут «в лёт» не получилось…   1. Разгруппировываются все ячейки в столбце даже если выбран ограниченный диапазон, а не столбец.   2. Формула по строкам (сверху вниз) размножается правильно, а по столбцам (слева-направо) — нет. Берет значения из ячейки выше, а не слева…   Пункт 2 попробую, конечно, сам исправить, но это мне ещё придётся побиться… С уважением, Алексей (ИМХО: Excel-2003 — THE BEST!!!) <#0>

Alex_ST Пользователь Сообщений: 2746 Регистрация: 22.12.2012 На лицо ужасный, добрый внутри	Да!   Отлично!   Всё работает!   СПАСИБО!   Ща запихну эти два кода к себе в Personal.xls и сделаю для них кнопочки на панели управления (не забыть бы потом Excel11.xlb в XLSTART переложить чтобы настройки не пропали) С уважением, Алексей (ИМХО: Excel-2003 — THE BEST!!!) <#0>

Alex_ST Пользователь Сообщений: 2746 Регистрация: 22.12.2012 На лицо ужасный, добрый внутри

на всякий случай если кому-нибудь надо:   Sub UnMerge_and_Fill_by_Value()     ‘—————————————————————————————     ‘ Procedure : UnMerge_and_Fill_by_Value     ‘ Author    : The_Prist ( http://www.planetaexcel.ru/forum.php?thread_id=3760&thread_id=3760&page_forum=lastpage&allnum_forum=14#post86381 )     ‘ Date      : 23.12.2009     ‘ Purpose   : Снимает объединение со всех ячеек выделенного диапазона _       и заполняет все разгруппированные ячейки каждой бывшей группы значениями верхней левой     ‘—————————————————————————————     Dim sValue As String, sAddress As String     Dim rRange As Range, rCell As Range     Application.ScreenUpdating = False     Set rRange = Range(Cells(Selection.Row, Selection.Column), _                        Cells(Cells.SpecialCells(xlLastCell).Row, _                              Selection.Column + Selection.Columns.Count — 1))     For Each rCell In rRange        If rCell.MergeCells = True Then           sValue = rCell.Value: sAddress = rCell.MergeArea.Address           rCell.UnMerge: Range(sAddress).Value = rCell.Value        End If     Next     Application.ScreenUpdating = True   End Sub     Sub UnMerge_and_Fill_by_HyperLink()     ‘—————————————————————————————     ‘ Procedure : UnMerge_and_Fill_by_HyperLink     ‘ Author    : The_Prist ( http://www.planetaexcel.ru/forum.php?thread_id=3760&thread_id=3760&page_forum=lastpage&allnum_forum=14#post86381 )     ‘ Date      : 23.12.2009     ‘ Purpose   : Снимает объединение со всех ячеек выделенного диапазона _       и заполняет все разгруппированные ячейки каждой бывшей группы ссылками на значения верхней левой     ‘—————————————————————————————     Dim sAddress As String     Dim rRange As Range, rCell As Range, rEmptyRange As Range     Dim lLastRow As Long, lLastCol As Long     lLastRow = Cells.SpecialCells(xlLastCell).Row     lLastCol = Selection.Column + Selection.Columns.Count — 1     If lLastRow > Selection.Row + Selection.Rows.Count — 1 Then lLastRow = Selection.Row + Selection.Rows.Count — 1     Application.ScreenUpdating = False     Set rRange = Range(Cells(Selection.Row, Selection.Column), Cells(lLastRow, lLastCol))     For Each rCell In rRange        If rCell.MergeCells = True Then           sAddress = rCell.MergeArea.Address: rCell.UnMerge           On Error Resume Next: Set rEmptyRange = Range(sAddress).SpecialCells(xlCellTypeBlanks)           If Not rEmptyRange Is Nothing Then rEmptyRange.Formula = «=» & rCell.Cells(1).Address        End If     Next     Set rRange = Nothing: Set rCell = Nothing: Set rEmptyRange = Nothing     Application.ScreenUpdating = True   End Sub С уважением, Алексей (ИМХО: Excel-2003 — THE BEST!!!) <#0>

Alex_ST Пользователь Сообщений: 2746 Регистрация: 22.12.2012 На лицо ужасный, добрый внутри

Пардон, не углядел небольшую неточность…   Диапазон выделения не ограничивается Selection   Естественно, должно быть так:     Sub UnMerge_and_Fill_by_Value()   ‘—————————————————————————————   ‘ Procedure : UnMerge_and_Fill_by_Value   ‘ Author : The_Prist ( http://www.planetaexcel.ru/forum.php?thread_id=3760&thread_id=3760&page_forum=lastpage&allnum_forum=14#post86381 )   ‘ Date : 23.12.2009   ‘ Purpose : Снимает объединение со всех ячеек выделенного диапазона _   и заполняет все разгруппированные ячейки каждой бывшей группы значениями верхней левой   ‘—————————————————————————————   Dim sValue As String, sAddress As String   Dim rRange As Range, rCell As Range   Application.ScreenUpdating = False   Set rRange = Intersect(Selection, Range(Cells(Selection.Row, Selection.Column), _   Cells(Cells.SpecialCells(xlLastCell).Row, _   Selection.Column + Selection.Columns.Count — 1)))   For Each rCell In rRange   If rCell.MergeCells = True Then   sValue = rCell.Value: sAddress = rCell.MergeArea.Address   rCell.UnMerge: Range(sAddress).Value = rCell.Value   End If   Next   Application.ScreenUpdating = True   End Sub     Sub UnMerge_and_Fill_by_HyperLink()   ‘—————————————————————————————   ‘ Procedure : UnMerge_and_Fill_by_HyperLink   ‘ Author : The_Prist ( http://www.planetaexcel.ru/forum.php?thread_id=3760&thread_id=3760&page_forum=lastpage&allnum_forum=14#post86381 )   ‘ Date : 23.12.2009   ‘ Purpose : Снимает объединение со всех ячеек выделенного диапазона _   и заполняет все разгруппированные ячейки каждой бывшей группы ссылками на значения верхней левой   ‘—————————————————————————————   Dim sAddress As String   Dim rRange As Range, rCell As Range, rEmptyRange As Range   Dim lLastRow As Long, lLastCol As Long   lLastRow = Cells.SpecialCells(xlLastCell).Row   lLastCol = Selection.Column + Selection.Columns.Count — 1   If lLastRow > Selection.Row + Selection.Rows.Count — 1 Then lLastRow = Selection.Row + Selection.Rows.Count — 1   Application.ScreenUpdating = False   Set rRange = Intersect(Selection, Range(Cells(Selection.Row, Selection.Column), Cells(lLastRow, lLastCol)))   For Each rCell In rRange   If rCell.MergeCells = True Then   sAddress = rCell.MergeArea.Address: rCell.UnMerge   On Error Resume Next: Set rEmptyRange = Range(sAddress).SpecialCells(xlCellTypeBlanks)   If Not rEmptyRange Is Nothing Then rEmptyRange.Formula = «=» & rCell.Cells(1).Address   End If   Next   Set rRange = Nothing: Set rCell = Nothing: Set rEmptyRange = Nothing   Application.ScreenUpdating = True   End Sub С уважением, Алексей (ИМХО: Excel-2003 — THE BEST!!!) <#0>

Alex_ST Пользователь Сообщений: 2746 Регистрация: 22.12.2012 На лицо ужасный, добрый внутри

Разбирался с кучей макросов в своём Personal.xls, немного «причесал» и слепил в один два предыдущих макроса заполнения разгруппированных ячеек:   Sub UnMerge_and_Fill()     ‘—————————————————————————————     ‘ Procedure    : UnMerge_and_Fill     ‘ Topic_HEADER : Снятие объединения ячеек с заполнением     ‘ Topic_URL    : http://www.planetaexcel.ru/forum.php?thread_id=3760     ‘ Purpose      : Снимает объединение со всех ячеек выделенного диапазона     ‘                и заполняет все разгруппированные ячейки КАЖДОЙ бывшей группы     ‘                либо ссылками на значения верхней левой, либо её значениями     ‘—————————————————————————————     If Selection.Cells.Count <= 1 Then Exit Sub     Dim rRange As Range, rCell As Range, sValue$, sAddress$, i&     Application.ScreenUpdating = False     Set rRange = Intersect(Selection, ActiveSheet.UsedRange)     Select Case MsgBox(«»»ДА»» — заполнить ячейки формулами-ссылками на первую ячейку» & vbCrLf & _                        «»»НЕТ»» — заполнить ячейки значениями из первой ячейки» & vbCrLf & _                        «»»ОТМЕНА»» не разгруппировывать» _                        , vbYesNoCancel + vbQuestion, «Как заполнять ячейки после разгруппировки?»)        Case vbYes   ‘ разгруппировать все ячейки в Selection и ячейки каждой бывшей группы заполнить формулами-ссылками на их первые ячейки           For Each rCell In rRange              If rCell.MergeCells Then                 sAddress = rCell.MergeArea.Address: rCell.UnMerge                 For i = 2 To Range(sAddress).Cells.Count                    With Range(sAddress)                       .Cells(i).Formula = «=» & .Cells(1).Address                       .Cells(i).Replace What:=»$», Replacement:=»», LookAt:=xlPart  ‘ сделать ссылки перемещаемыми                       .Cells(i).Font.ColorIndex = 5   ‘ сделать шрифт формул синим (это на любителя, конечно)                    End With                 Next i              End If           Next rCell        Case vbNo    ‘ разгруппировать все ячейки в Selection и ячейки каждой бывшей группы заполнить значениями из их первых ячеек           For Each rCell In rRange              If rCell.MergeCells Then                 sAddress = rCell.MergeArea.Address: sValue = rCell.Value: rCell.UnMerge                 Range(sAddress).Value = rCell.Value              End If           Next        Case vbCancel           If MsgBox(«Разгруппировать стандартным способом?», vbYesNo + vbQuestion) = vbYes Then Selection.UnMerge     End Select     rRange.Select     Application.ScreenUpdating = True   End Sub С уважением, Алексей (ИМХО: Excel-2003 — THE BEST!!!) <#0>

	AlexST спасибо за то что причесал макрос, сохранил себе. Пригодится

student Пользователь Сообщений: 24 Регистрация: 01.01.1970	#22 02.05.2012 13:35:45 Пишу дисер, столкнулся с такой проблемой — по первой же ссылке нашел ваш форум. Спасибо ребята за Ваши труды! Очень помогли! Добро всегда возвращается! Спасибо! lev

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

В этом курсе:

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

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

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

Выберите пункт Слияние в центре &.

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

Выберите параметр С разделителями и нажмите кнопку Далее.

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

Щелкните объединенную ячейку и выберите главная > Слияние & центре.

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

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

Перетащите маркер выделения , чтобы выбрать ячейки, которые вы хотите объединить. Например, перетащите его с ячейки A1 на ячейку C1.

На iPad нажмите Объединить.

На iPhone коснитесь значка «Правка» , выберите меню Главная, если оно еще не выбрано, а затем нажмите Объединить и поместить в центре.

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

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

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

Выберите объединенную ячейку.

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

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

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

Вы всегда можете задать вопрос специалисту Excel Tech Community, попросить помощи в сообществе Answers community, а также предложить новую функцию или улучшение на веб-сайте Excel User Voice.

Примечание: Эта страница переведена автоматически, поэтому ее текст может содержать неточности и грамматические ошибки. Для нас важно, чтобы эта статья была вам полезна. Была ли информация полезной? Для удобства также приводим ссылку на оригинал (на английском языке).

Разъединение ячеек в таблице Excel

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

Особенности разъединения ячеек

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

Метод 1: параметры в окне форматирования

Многие пользователи предпочитают выполнять объединение ячеек в окне “Формат ячеек”. Здесь же можно выполнить разъединение.

1. Для начала нужно выделить объединенную ячейку. Затем щелчком правой кнопки мыши по ней раскрываем контекстное меню, в котором нам нужна строка “Формат ячеек”. Также можно просто нажать сочетание клавиш Ctrl+1, предварительно выбрав нужную ячейку.
2. Во вкладке “Выравнивание” обращаем внимание на группу параметров “Отображение”. Здесь должна стоять галочка напротив пункта “объединение ячеек”. Убираем ее и жмем кнопку OK.
3. В результате, объединение элементов будет отменено. Если ранее объединенная ячейка содержала какие-либо данные, они будут размещены в самой верхней левой ячейке разъединенного диапазона.

Метод 2: инструменты на ленте

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

1. Выбираем объединенную ячейку, после чего в главной вкладке нажимаем кнопку “Объединить и поместить в центре” (блок инструментов “Выравнивание”), которая в данном случае выполнит обратное действие, т.е. разъединение.
2. В итоге мы добились требуемого результата в считанные секунды.

Примечание: в результатах, полученных с помощью данных методов, есть небольшая разница. При реализации первого метода (через формат ячеек) значение объединенной ячейки, которое теперь будет располагаться в верхней левой ячейке разъединенного диапазона, сохранит выравнивание по горизонтали и вертикали первоначальной (объединенной) ячейки. При использовании кнопки на ленте программы выравнивание сохранится только по вертикали.

Заключение

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

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

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

Сначала расскажем что такое объединенные ячейки в Excel и как их сделать. Тут нет ничего сложно, достаточно выделить две или более ячеек и выбрать команду на ленте Главная -> Выравнивание -> Объединить и поместить в центре.

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

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

Способы объединения ячеек

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

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

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

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

• Если диапазон содержит объединенные ячейки, то пользоваться сортировкой и фильтрацией в этом диапазоне будет невозможно.
• Также невозможно будет преобразовать такой диапазон в таблицу (форматировать как таблицу).
• Также можно забыть об автоматическом выравнивании ширины или высоты ячейки. Например если имеется объединенная ячейка A1:B1, то выравнять ширину столбца A уже не получится.
• Если Вы пользуетесь горячими клавишами для навигации, например переходите в начало и конец таблицы путем сочетания клавиш Ctrl + стрелка вверх и вниз, то переход не удастся, и курсор будет «упираться» в объединенные ячейки.
• Если вы выделяете столбцы (или строки) с помощью горячих клавиш Ctrl (Shift) +Пробел, то при наличии объединенных ячеек, вы не сможете выделить 1 столбец (или строку).

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

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

1. Выделить все ячейки на листе. Это можно сделать путем нажатия сочетания клавиш Ctrl + A или кликнуть на черный треугольник между заголовками строк и столбцов на листе.
2. Нажать на команду Главная ->Выравнивание ->Объединить и поместить в центре если она выделена. Если же она не выделена, значит выбранный лист не содержит объединенных ячеек.

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

1. Откройте окно Найти и заменить. Сделать это можно сочетанием клавиш Ctrl + F.
2. Поле Найти оставьте пустым и нажмите на кнопку Параметры.
3. Должна отобразиться кнопка Формат. Нажмите левой кнопкой мыши по ней.
   
4. В диалоговом окне Найти формат на вкладке Выравнивание выберите опцию Объединение ячеек. Далее нажмите Ok.
   
5. В диалоговом окне Найти и заменить нажмите Найти далее или Найти все в зависимости от вашей дальнейшей задачи.

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

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

1. Выделите диапазон ячеек, который хотите отцентрировать. При этом сам текст должен содержаться в левой верхней ячейке.
2. Выберите команду формат ячеек или нажмите сочетание клавиш Ctrl + 1.
3. В диалоговом окне Формат ячеек перейдите на вкладку Выравнивание.
4. В выпадающем списке выравнивания по горизонтали выберите значение по центру выделения и нажмите OK.
   

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

Все способы можно скачать нажав кнопку вначале статьи.

Разбить ячейки, а вернее — отменить объединение ячеек в эксель с заполнением всех образовавшихся ячеек данными из объединенной

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

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

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

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

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

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

VBA Excel. Объединение ячеек и его отмена

Объединение диапазона ячеек в одну или построчно с помощью кода VBA Excel. Метод Range.Merge и свойство MergeCells. Отмена объединения ячеек. Примеры.

Метод Range.Merge

Метод Merge объекта Range объединяет ячейки заданного диапазона в одну или построчно из кода VBA Excel.

Синтаксис метода:

1. Expression — выражение, возвращающее объект Range.
2. Across — логическое значение, определяющее характер объединения ячеек:
   • True — ячейки объединяются построчно: каждая строка заданного диапазона преобразуется в одну ячейку.
   • False — весь диапазон преобразуется в одну ячейку. False является значением по умолчанию.

Преимущество метода Range.Merge перед свойством MergeCells заключается в возможности построчного объединения ячеек заданного диапазона без использования цикла.

Свойство MergeCells

Свойство MergeCells объекта Range применяется как для объединения ячеек, так и для его отмены.

Синтаксис свойства с присвоением значения:

1. Expression — выражение, возвращающее объект Range.
2. Boolean — логическое значение, определяющее необходимость объединения ячеек или его отмены:
   • True — объединение ячеек заданного диапазона.
   • False — отмена объединения ячеек.

С помощью свойства MergeCells можно из кода VBA Excel проверять диапазон (отдельную ячейку), входит ли он (она) в объединенную ячейку (True) или нет (False). Если проверяемый диапазон окажется комбинированным, то есть содержащим объединенные и необъединенные ячейки, компилятор сгенерирует ошибку.

Примеры объединения ячеек и его отмены

Пример 1
Наблюдаем, как происходит объединение ячеек при разных значениях параметра Across:

Не забываем, что логическое выражение True можно заменить единичкой, а False — нулем.

Пример 2
Отменяем объединение ячеек в диапазонах из первого примера:

Пример 3
Предполагается, что перед этим примером отменено объединение ячеек кодом из предыдущего примера.

*Если проверяемый диапазон окажется комбинированным, VBA Excel сгенерирует ошибку.

Предупреждение перед объединением

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

Пример 4
Наблюдаем появление предупреждающего окна:

Чтобы избежать появление предупреждающего окна, следует использовать свойство Application.DisplayAlerts, с помощью которого можно отказаться от показа диалоговых окон при работе кода VBA Excel.

Пример 5

Теперь все прошло без появления диалогового окна. Главное, не забывать после объединения ячеек возвращать свойству Application.DisplayAlerts значение True.

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

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

Способ 1:

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

Способ 2:

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

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

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

 

Способ 1:

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

Способ 2:

Выделите объединенную ячейку, нажмите правой кнопкой и в контекстном диалоговом окне выберите команду «Формат ячеек». На вкладке «Выравнивание» снимите галочку с пункта «объединение ячеек». Готово.

Спасибо за внимание. Буду рад вашим комментариям.