Если у вас есть рабочий лист, который содержит множество объединенных ячеек, и теперь вам нужно разъединить их и автоматически заполнить исходные значения из объединенных ячеек, как показано на следующих снимках экрана. Как быстро справиться с этой задачей?
Разъедините ячейки и заполните повторяющимися данными с помощью команды «Перейти к специальной»
Разъединить ячейки и заполнить повторяющимися данными с помощью кода VBA
Разъединяйте ячейки и заполняйте повторяющиеся данные одним щелчком мыши
Разъедините ячейки и заполните повторяющимися данными с помощью команды «Перейти к специальной»
Для Перейти к специальному вы можете разделить ячейки и заполнить значения. Но этот метод несколько хлопотный, выполните следующие действия:
1. Выберите столбцы, в которых есть объединенные ячейки.
2. Нажмите Главная > Слияние и центр > Разъединить ячейки. Смотрите скриншот:
3. Объединенные ячейки не были объединены, и только первая ячейка будет заполнена исходными значениями. А затем снова выберите диапазон.
4. Затем нажмите Главная > Найти и выбрать > Перейти к специальному. В Перейти к специальному диалоговое окно, выберите Пробелы вариант. Смотрите скриншот:
5, Затем нажмите OK, все пустые ячейки в диапазоне выбраны. Затем введите = и нажмите Up клавишу со стрелкой на клавиатуре. Смотрите скриншот:
6, Затем нажмите Ctrl + Enter ключей, все пустые ячейки были заполнены исходными объединенными данными. Смотрите скриншот:
Разъединить ячейки и заполнить повторяющимися данными с помощью кода VBA
С помощью следующего кода VBA вы можете быстро разделить ячейки и заполнить значения.
1. Удерживайте ALT + F11 ключи, и он открывает Microsoft Visual Basic для приложений окно.
2. Нажмите Вставить > Модули, и вставьте следующий макрос в Модулиокно.
Sub UnMergeSameCell () 'Upadateby Extendoffice Dim Rng As Range, xCell As Range xTitleId = "KutoolsforExcel" Установить WorkRng = Application.Selection Установить WorkRng = Application.InputBox ("Диапазон", xTitleId, WorkRng.Address, Type: = 8) Application.ScreenUpdating = False Application.DisplayAlerts = False для каждого Rng в WorkRng, если Rng.MergeCells Then With Rng.MergeArea .UnMerge .Formula = Rng.Formula End With End If Next Application.DisplayAlerts = True Application.ScreenUpdating = True End Sub
3, Затем нажмите F5 для запуска этого кода отображается диалоговое окно для выбора диапазона для работы, см. снимок экрана:
4. Нажмите OK, то объединенные ячейки не объединяются и автоматически заполняются исходными объединенными значениями.
Разъединяйте ячейки и заполняйте повторяющиеся данные одним щелчком мыши
Для Разъединить ячейку полезности Kutools for Excel, вы можете объединить ячейки и заполнить повторяющиеся данные одним щелчком мыши, этот метод очень простой и удобный.
После установки Kutools for Excel, вы можете сделать следующее:
1. Выберите столбцы, которые вы хотите разделить, и заполните данные.
2. Нажмите Кутулс > Слияние и разделение > Разъединить ячейки и заполнить значение, см. снимок экрана:
3. И объединенные ячейки были разделены и сразу заполнены повторяющимися значениями. Смотрите скриншоты:
Разъедините ячейки и заполните повторяющимися данными с помощью Kutools for Excel
Связанная статья:
Объединить соседние строки с одинаковыми данными в Excel
Лучшие инструменты для работы в офисе
Kutools for Excel Решит большинство ваших проблем и повысит вашу производительность на 80%
- Снова использовать: Быстро вставить сложные формулы, диаграммы и все, что вы использовали раньше; Зашифровать ячейки с паролем; Создать список рассылки и отправлять электронные письма …
- Бар Супер Формулы (легко редактировать несколько строк текста и формул); Макет для чтения (легко читать и редактировать большое количество ячеек); Вставить в отфильтрованный диапазон…
- Объединить ячейки / строки / столбцы без потери данных; Разделить содержимое ячеек; Объединить повторяющиеся строки / столбцы… Предотвращение дублирования ячеек; Сравнить диапазоны…
- Выберите Дубликат или Уникальный Ряды; Выбрать пустые строки (все ячейки пустые); Супер находка и нечеткая находка во многих рабочих тетрадях; Случайный выбор …
- Точная копия Несколько ячеек без изменения ссылки на формулу; Автоматическое создание ссылок на несколько листов; Вставить пули, Флажки и многое другое …
- Извлечь текст, Добавить текст, Удалить по позиции, Удалить пробел; Создание и печать промежуточных итогов по страницам; Преобразование содержимого ячеек в комментарии…
- Суперфильтр (сохранять и применять схемы фильтров к другим листам); Расширенная сортировка по месяцам / неделям / дням, периодичности и др .; Специальный фильтр жирным, курсивом …
- Комбинируйте книги и рабочие листы; Объединить таблицы на основе ключевых столбцов; Разделить данные на несколько листов; Пакетное преобразование xls, xlsx и PDF…
- Более 300 мощных функций. Поддерживает Office/Excel 2007-2021 и 365. Поддерживает все языки. Простое развертывание на вашем предприятии или в организации. Полнофункциональная 30-дневная бесплатная пробная версия. 60-дневная гарантия возврата денег.
Вкладка Office: интерфейс с вкладками в Office и упрощение работы
- Включение редактирования и чтения с вкладками в Word, Excel, PowerPoint, Издатель, доступ, Visio и проект.
- Открывайте и создавайте несколько документов на новых вкладках одного окна, а не в новых окнах.
- Повышает вашу продуктивность на 50% и сокращает количество щелчков мышью на сотни каждый день!
Во время работы в Эксель пользователю время от времени требуется изменить структуру таблицы, в т.ч. объединить или, наоборот, разъединить определенные ячейки. В данной статье мы разберем методы, пользуясь которыми можно выполнить данную задачу.
Содержание
- Особенности разъединения ячеек
- Метод 1: параметры в окне форматирования
- Метод 2: инструменты на ленте
- Заключение
Особенности разъединения ячеек
Чтобы разъединить ячейку, требуется отменить действия, выполненные при ее объединении. Другими словами, возможность разъединения существует исключительно для ранее объединенной ячейки, которая собрана из нескольких элементов.
Метод 1: параметры в окне форматирования
Многие пользователи предпочитают выполнять объединение ячеек в окне “Формат ячеек”. Здесь же можно выполнить разъединение.
- Для начала нужно выделить объединенную ячейку. Затем щелчком правой кнопки мыши по ней раскрываем контекстное меню, в котором нам нужна строка “Формат ячеек”. Также можно просто нажать сочетание клавиш Ctrl+1, предварительно выбрав нужную ячейку.
- Во вкладке “Выравнивание” обращаем внимание на группу параметров “Отображение”. Здесь должна стоять галочка напротив пункта “объединение ячеек”. Убираем ее и жмем кнопку OK.
- В результате, объединение элементов будет отменено. Если ранее объединенная ячейка содержала какие-либо данные, они будут размещены в самой верхней левой ячейке разъединенного диапазона.
Метод 2: инструменты на ленте
Есть и другой метод, которым можно пользоваться для разъединения ячейки, причем он даже быстрее, чем рассмотренный выше.
- Выбираем объединенную ячейку, после чего в главной вкладке нажимаем кнопку “Объединить и поместить в центре” (блок инструментов “Выравнивание”), которая в данном случае выполнит обратное действие, т.е. разъединение.
- В итоге мы добились требуемого результата в считанные секунды.
Примечание: в результатах, полученных с помощью данных методов, есть небольшая разница. При реализации первого метода (через формат ячеек) значение объединенной ячейки, которое теперь будет располагаться в верхней левой ячейке разъединенного диапазона, сохранит выравнивание по горизонтали и вертикали первоначальной (объединенной) ячейки. При использовании кнопки на ленте программы выравнивание сохранится только по вертикали.
Заключение
Таким образом, выполнить разъединение ячеек в Эксель можно двумя способами, каждый из которых предельно прост в реализации и не займет много времени. Главное помнить – разъединить можно только ранее объединенные ячейки.
Разделить объединенную ячейку и заполнить каждую ячейку |
||||||||
Ответить |
||||||||
Ответить |
||||||||
Ответить |
||||||||
Ответить |
Объединение и отмена объединения ячеек
Смотрите также в центр» предлагает столбца. Ячейки во направлении. столбец – изЕсли хоть одна ячейкаДля объединения ячеек используется удобный инструмент дляВыделите ячейку, диапазон или столбцам см. в нас важно, чтобы.внизу окна. контекстное меню. Следовательно, перестают корректно работать, распределить данные изОбъединить и поместить вПримечание: только все объединить. всем листе станутПреобразовать ячейки в один
двух. в выбранном диапазоне инструмент «Выравнивание» на наглядного представления информации. весь столбец, где статье Разделение текста
Объединение ячеек
-
эта статья была
-
В данном случае, несмотряПосле этих несложных действий и разъединять они
например сортировка. Также ячейки по нескольким центре. Мы стараемся как можно Как еще можно одинаковыми. размер можно следующимТаким образом, чтобы разбить еще редактируется, кнопка главной странице программы. Такие возможности программы содержатся текстовые значения, по столбцам с
Отмена объединения ячеек
-
вам полезна. Просим на название, после ячейка, над которой будут так же. существует и много
-
ячейкам, см. статьюВажно:
оперативнее обеспечивать вас разделить ячейки?
-
В Excel можно сделать образом: нужную ячейку на для объединения можетВыделяем ячейки, которые нужно для работы бесценны. которые требуется разделить. помощью функций. вас уделить пару нажатия кнопки произойдет
-
проводили операцию, будетВыделяем объединенную ячейку. Щелкаем других причин, из-за Распределение содержимого ячейки В объединенной ячейке актуальными справочными материаламиАлексей. несколько строк изВыделить нужный диапазон, вмещающий
support.office.com
Разъединение ячеек в Microsoft Excel
две части, необходимо быть недоступна. Необходимо объединить. Нажимаем «ОбъединитьЗначимость оптимальной демонстрации данныхНа вкладкеМожно объединить ячейки, содержащие секунд и сообщить, как раз обратное разделена на составляющие правой кнопкой мышки которых пользователь решит на соседние столбцы. отображается содержимое только на вашем языке.: а вы ее одной ячейки. Перечислены определенное количество ячеек. объединить соседние ячейки. заверить редактирование и и поместить в объяснять никому неДанные функцию СЦЕП или помогла ли она действие: элементы будут
её элементы. При для вызова контекстного
Разъединение ячеек
разъединить ячейки, чтобыЯчейку, полученную путем объединения, одной ячейки (верхней Эта страница переведена сначала нажмите раз улицы в одну Щелкаем правой кнопкой В нашем примере нажать «Ввод» для центре». нужно. Давайте посмотрим,в группе функцию СЦЕПИТЬ.
Способ 1: окно форматирования
вам, с помощью разъединены. этом, если в меню. В списке, построить структуру таблицы можно снова разделить левой ячейки для
- автоматически, поэтому ее — они объединяться, строку. мыши по любой – сверху и выхода из режима.При объединении сохраняются только что можно сделатьРабота с даннымиВыполните следующие действия. кнопок внизу страницы.Собственно на этом все ней хранились данные, который откроется, выбираем
- по-иному. Установим, какими на отдельные ячейки. языков с направлением текст может содержать а потом ещеНам нужно сделать несколько латинской букве вверху снизу. Ту ячейку, те данные, которые с ячейками внажмите кнопкуПримечание:
Для удобства также варианты разъединения ячеек то все они пункт методами можно это Если вы не письма слева направо неточности и грамматические раз — они строк, чтобы каждая
столбцов. которую нужно разделить,
Способ 2: кнопка на ленте
Разбить на две ячейки содержатся в верхней Microsoft Excel. ИзТекст по столбцам Диапазон, содержащий столбец, который приводим ссылку на
- и заканчиваются. Как окажутся в верхнем«Формат ячеек…» сделать. помните, где находятся или правой верхней ошибки. Для нас разъединяться улица была написанаОткрываем меню «Ширина столбца». не объединяем.
- можно только объединенную левой ячейке. Если данного урока вы. вы хотите разделить оригинал (на английском
видим, их всего левом элементе.. Вместо этих действийСкачать последнюю версию объединенные ячейки, используйте ячейки для языков важно, чтобы этаЛибо просто ручками в одной строке.Вводим тот показатель ширины,Для решения данной задачи
ячейку. А самостоятельную,
lumpics.ru
Распределение содержимого ячейки на соседние столбцы
нужно сохранить все узнаете о новыхСледуйте инструкциям в может включать любое языке) . два: окно форматированияУрок: после выделения элемента Excel команду с направлением письма статья была вам — Правой кнопокойВыделяем ячейку. На вкладке который нам нужен. следует выполнить следующий которая не была данные, то переносим возможностях заполнения иСтолбцах мастера количество строк, ноМожно разделить содержимого ячейки
и кнопка наФорматирование таблиц в Экселе можно просто набратьПроцедура разъединения ячеек являетсяНайти справа налево). Данные полезна. Просим вас — Формат ячеек «Выравнивание» нажимаем кнопку Жмем ОК. порядок действий: объединена – нельзя. их туда, нам
форматирования данных в, чтобы указать способ
-
он может содержать и распространение составные ленте. Но иНо намного быстрее и комбинацию кнопок на обратной их объединению.
-
для их поиска. в других объединенных уделить пару секунд
— выравниваение -
«Перенос текста».Можно изменить ширину ячеекЩелкаем правой кнопкой по НО как получить не нужно: рабочих листах. разбиения текста на не более одного части нескольких смежных этих способов вполне проще, буквально в клавиатуре Поэтому, говоря простымиОдной из интересных и ячейках удаляются. и сообщить, помогла там галочка «объединять»Данные в ячейке автоматически во всем листе. ячейке и выбираем такую таблицу:
-
Точно таким же образомСмежные ячейки можно объединить разных столбцах. столбца. Это важные
-
ячеек. Например, если хватает для быстрого один клик, можноCtrl+1 словами, чтобы её полезных функций вНажмите стрелку вниз рядом
-
ли она вам, прячется распределятся по нескольким Для этого нужно инструмент «Формат» (или
Давайте посмотрим на нее можно объединить несколько по горизонтали илиПримечание: из них достаточно лист содержит и удобного совершения произвести разъединение элементов.
совершить, нужно произвести Экселе является возможность
support.office.com
Объединение и разбиение данных в ячейках в Excel с форматированием
с кнопкой с помощью кнопокТанюшечка строкам. выделить весь лист. комбинация горячих клавиш
внимательнее, на листе вертикальных ячеек (столбец по вертикали. В Для получения справки по пустыми столбцами справаПолное имя вышеуказанной процедуры. через кнопку наПосле этого запускается окно отмену тех действий, объединить две и
Как объединить ячейки без потери данных Excel?
Объединить и поместить в внизу страницы. Для: щелкаешь на объединенныеПробуйте, экспериментируйте. Устанавливайте наиболее Нажмем левой кнопкой CTRL+1). Excel. данных). результате получается одна
заполнению все действия от выбранных столбец,
- столбца, можно разделить столбецАвтор: Максим Тютюшев ленте.
- форматирования данных. Перемещаемся которые были выполнены более ячейки в
- центре удобства также приводим ячейки (выделяешь их) удобные для своих
- мыши на пересечениеНа закладке «Граница» выбираемЧерта разделяет не однуМожно объединить сразу группу ячейка, занимающая сразу мастера читайте статью который будет предотвратить на двух столбцов
- Примечание:Как и в предыдущем во вкладку при объединении. Главное
- одну. Эта возможность. ссылку на оригинал и правой кнопкой
- читателей форматы. названий строк и диагональ. Ее направление, ячейку, а показывает смежных ячеек по
пару столбцов либо
Разделение текста по перезапись по данные, —Мы стараемся как способе, прежде всего,«Выравнивание» понять, что разъединить особенно востребована при
Выберите
Как разбить ячейку в Excel на две?
(на английском языке). мыши появится иБыло 4 ячейки в столбцов (или комбинация тип линии, толщину, границы двух ячеек. горизонтали и по
строк. Информация появляется различным столбцам с которые распространяться данные
имени можно оперативнее обеспечивать нужно выделить объединенную. В блоке настроек можно только ту создании заголовков иОтменить объединение ячеек.Не удается разбить отдельные там выберишь снять 2 строки, я горячих клавиш CTRL+A). цвет.
Ячейки выше «разделенной» вертикали. в центре объединенной преобразовать мастера текстов, в любой смежныхи вас актуальными справочными ячейку. Затем в«Отображение»
Как разделить ячейку в Excel по диагонали?
ячейку, которая состоит шапок таблицы. Хотя,Важно:
- ячейки, но можно объединение их объединила вПодведите курсор к названиямЖмем ОК.
- и ниже объединеныЕсли нужно объединить только ячейки. или нажмите кнопку
- столбцах. При необходимости
Фамилии материалами на вашем группе инструментов
снимаем галочку с из нескольких ранее
иногда она используется
Как сделать ячейки одинакового размера?
отобразить его какJuli 2 ячейки в
- столбцов и добейтесьЕсли нужно провести диагональ по строкам. Первый строки в выделенномПорядок объединения ячеек вСправка
- вставьте количество пустые
- столбцом. языке. Эта страница«Выравнивание»
параметра объединенных элементов. даже внутри таблицы.Ячейку, которая не была если бы ячейки: ну все правильно, 2 строках. Теперь того, чтобы он в большой ячейке,
столбец, третий и диапазоне, нажимаем на Excel:в мастере разделения столбцы, будет достаточноСоветы: переведена автоматически, поэтомуна ленте жмем«Объединение ячеек»Большинство пользователей привыкли производить
Как разбить ячейку на строки?
В то же создана путем объединения, была разделена, объединение сначала нужно их мне надо сделать
принял вид крестика. воспользуйтесь инструментом «Вставка». четвертый в этой запись «Объединить по
Возьмем небольшую табличку, где текста столбцов. для хранения каждого
ее текст может на кнопку
. Чтобы применить действие, процесс объединения в время, нужно учесть,
exceltable.com
Не могу в Excel разделить объединенные ячейки…
невозможно разделить. Если ячеек над ней. объединить, а уже из 2 имеющихся Нажмите левую кнопкуНа вкладке «Иллюстрации» выбираем таблице состоят из строкам». несколько строк иФорматирование и редактирование ячеек составные части распределенныхСведения об альтернативном способе содержать неточности и
«Объединить и поместить в щелкаем по кнопке окне форматирования с что при объединении вы ищете сведенияВыделите ячейки для объединения. потом делить на
ячеек 3. Кнопка мыши и протяните «Фигуры». Раздел «Линии». одного столбца. ВторойВ результате получится: столбцов.
в Excel – данных. распределения текста по грамматические ошибки. Для центре»«OK» переходом туда через
элементов некоторые функции о том, какВыберите 3 «Объединить и поместить границу, устанавливая размер
Проводим диагональ в нужном
MulTEx »
8 Июль 2015 12730 просмотров
Разъединить с заполнением
Данная функция является частью надстройки MulTEx
Вызов команды:
MulTEx -группа Ячейки/Диапазоны —Ячейки —Разъединить с заполнением
Часто из 1С или других программ отчеты выгружаются с объединенными ячейками. Но если с этим отчетом необходимо в дальнейшем работать (например создать сводную таблицу, провести анализ, просуммировать и т.п.), то объединенные ячейки могут значительно усложнить этот процесс. Поэтому зачастую приходится снимать объединение и затем различными манипуляциями заполнять пустые ячейки значениям левой верхней, т.к. при объединении ячеек стандартными средствами Excel сохраняется только одно значение для всех ячеек — значение левой верхней ячейки.
Именно это и делает команда Разъединить с заполнением. Достаточно выделить диапазон ячеек для разъединения и выбрать команду: MulTEx -группа Ячейки и Диапазоны —Ячейки —Разъединить с заполнением. Заполнение происходит по принципу: все ячейки, входящие в одну объединенную будут заполнены тем значением, которое было в этой объединенной ячейке.
Данное действие невозможно отменить, поэтому следует осторожно его применять. Однако можно произвести обратную операцию командой Объединить по значению.
Если у вас есть рабочий лист, который содержит множество объединенных ячеек, и теперь вам нужно разъединить их и автоматически заполнить исходные значения из объединенных ячеек, как показано на следующих снимках экрана. Как быстро справиться с этой задачей?
Разъединить ячейки и заполнить повторяющимися данными с помощью кода VBA
Разъединить ячейки и заполните повторяющиеся данные одним щелчком мыши
Содержание
- Разъединить ячейки и заполнить повторяющимися данными с помощью команды” Перейти к специальному “
- Разъединить ячейки и заполнить повторяющимися данными с помощью кода VBA.
- Разъедините ячейки и заполните повторяющиеся данные одним щелчком мыши
- Разъединить ячейки и заполнить повторяющимися данными с помощью Kutools for Excel
Разъединить ячейки и заполнить повторяющимися данными с помощью команды” Перейти к специальному “
с помощью команды Перейти к специальному запросу вы можете разделить ячейки и заполнить значения. Но этот метод несколько проблематичен, выполните следующие действия:
1 . Выберите столбцы, в которых есть объединенные ячейки.
2 . Нажмите Главная > Объединить и центрировать > Разъединить ячейки . См. Снимок экрана:
3 . Объединенные ячейки не были объединены, и только первая ячейка будет заполнена исходными значениями. Затем снова выберите диапазон.
4 . Затем нажмите Главная > Найти и выбрать > Перейти к специальному . В диалоговом окне Перейти к специальному выберите параметр Пробелы . См. Снимок экрана:
5 . Затем нажмите ОК , все пустые ячейки в диапазоне были выбраны. Затем введите = и нажмите клавишу со стрелкой вверх на клавиатуре. См. Снимок экрана:
6 . Затем нажмите клавиши Ctrl + Enter , все пустые ячейки будут заполнены исходными объединенными данными. См. Снимок экрана:
Разъединить ячейки и заполнить повторяющимися данными с помощью кода VBA.
С помощью следующего кода VBA кода, вы можете быстро разделить ячейки и заполнить значения.
1 . Удерживая нажатыми клавиши ALT + F11 , откроется окно Microsoft Visual Basic для приложений .
2 . Нажмите Вставить > Module и вставьте следующий макрос в окно Module ..
Sub UnMergeSameCell () 'Upadateby ExtendofficeDim Rng As Range, xCell As RangexTitleId = "KutoolsforExcel" Установить WorkRng = Application.SelectionSet WorkRng = Application.InputBox ("Range", xTitleId, WorkRng.Address, Type : = 8) Application.ScreenUpdating = FalseApplication.DisplayAlerts = FalseFor Every Rng In WorkRng If Rng.MergeCells Then With Rng.MergeArea .UnMerge .Formula = Rng.Formula End with End IfNextApplication.DisplayAlerts = TrueUplication.DisplayAlerts = TrueUplication.DisplayAlerts = TrueUplication.DisplayAlerts = TrueUplication.DisplayAlerts = TrueApplication.DisplayAlerts = TrueUplication.DisplayAlerts = TrueUplication. >3 . Затем нажмите клавишу F5 , чтобы запустить этот код, отобразится диалоговое окно для выбора диапазона для работы, см. Снимок экрана:
![]()
4. Нажмите ОК , затем объединенные ячейки были не объединены и автоматически заполнены исходными объединенными значениями.
Разъедините ячейки и заполните повторяющиеся данные одним щелчком мыши
С помощью утилиты Unmerge Cell из Kutools for Excel , вы можете объединить ячейки и заполнить повторяющиеся данные одним щелчком мыши, этот метод очень простой и удобный.
Kutools for Excel : с более чем 300 удобными надстройками Excel, можно попробовать бесплатно без ограничений в течение 30 дней . |
Перейти к загрузке |
После установки Kutools for Excel вы можете сделать следующее:
1 . Выберите столбцы, которые вы хотите разделить, и заполните данные.
2 . Нажмите Kutools > Слияние и разделение > Разъединить ячейки и значение заполнения , см. Снимок экрана:
3 . И объединенные ячейки были разделены и сразу заполнены повторяющимися значениями. См. Скриншоты:
Разъединить ячейки и заполнить повторяющимися данными с помощью Kutools for Excel
Kutools для Excel : с более чем 300 удобными надстройками Excel, попробуйте бесплатно без ограничений в течение 30 дней. Скачать и бесплатную пробную версию прямо сейчас!
Объединить соседние строки с одинаковыми данными в Excel
Иногда эксель удивляет своими требованиями делать что-то через э… макросы. Вот недавно, встала задача разбить несколько объединенных ячеек по одной, чтобы можно было нормально отсортировать весь диапазон. Думаю, никому не надо объяснять, как просто убрать объединение ячеек, разбив их по одной (я имею ввиду формат-выравнивание-убрать галку с “объединение ячеек”). Но, к сожалению, эксель обладает очень интересным свойством при отмене объединения ячеек не спрашивать, как именно мы хотели бы их вернуть в нормальное, разъединенное состояние, а тупо пишет в верхнюю левую ячейку значение, которое было в объединенной, а все остальные ячейки оставляет незаполненными. Ну, естественно, ни о какой нормальной сортировке по прежде объединенным ячейкам говорить не приходится. И хорошо бы их было всего штук 200-300. А если их шестьдесят тысяч, разбитых на группы по 10 ячеек? Вручную шесть тысяч значений потом копировать в оставшиеся пустыми ячейки?
Типичная картина – хотим отсортировать список пофамильно, чтобы Кузнецов шел все-таки после Иванова. Пример, разумеется, очень упрощенный.
Просто так отсортировать таблицу эксель нам не даст – ячейки-то объеденены. Но и если мы отменим объединение, то каждая фамилия запишется только в верхнюю ячейку, и остальные придется дозаполнять. Получится вот так вот:
А нам то надо, чтобы в каждой ячейке было соответствующее значение, иначе при сортировке получится черти что!
К сожалению, выполнить это стандартными средствами экселя, как например, мы удаляли дубли или картинки – невозможно. Необходимо использовать макросы. Но, слава богу, есть добрые люди на свете, которые уже сделали это до нас. Причем – написали даже не один макрос, а целых несколько. При этом макросы позволяют не только разделять ячейки с сохранением содержащейся в них информации, но и многое другое:
- разбитие ячеек с автозаполнением
- более подробно о снятии объединения ячеек с заполнением
- разгруппировать ячейки выделенного диапазона с заполнением
Проверил все, работают отлично. Код самого простого, как показавшего отличнейшие результаты, хочу разместить и здесь. На всякий случай, если вдруг пропадет с исходной страницы, ссылку на которую я привел выше.
Итак, создаем макрос с кодом:
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 |
Sub UnMerge_And_Fill_By_Value() ‘ разгруппировать все ячейки в Selection и ячейки каждой бывшей группы заполнить значениями из их первых ячеек Dim Address As String Dim Cell As Range If TypeName(Selection) <> «Range» Then Exit Sub End If If Selection.Cells.Count = 1 Then Exit Sub End If Application.ScreenUpdating = False For Each Cell In Intersect(Selection, ActiveSheet.UsedRange).Cells If Cell.MergeCells Then Address = Cell.MergeArea.Address Cell.UnMerge Range(Address).Value = Cell.Value End If Next End Sub |
В результате выполнения макроса все выделенные объединенные ячейки разбиваются по одной, и заполняются именно тем значением, которое было в объединенной. Сортируй-не хочу.
Только не надо забывать, что после выполнения макроса, отменить эту операцию нельзя. Поэтому лучше работать с копией таблицы.
Ну и если, уже после того, как ячейки будут пересортированы, потребуется снова объединить ячейки с одинаковыми значениями (забудем на минуту, что объединенные ячейки – это зло, т.к. в случае, если требуется визуальная наглядность – то без них не обойтись), то нам опять придется использовать макрос. В интернете ссылок куча – но у меня заработал только один.
Тоже на всякий случай приведу код:
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 |
Sub MergeCls() Dim ri As Integer, r2 As Integer, Col As Integer r1 = ActiveCell.Row r2 = ActiveCell.Row Col = ActiveCell.Column Do If Cells(r1, Col) <> Cells(r2 + 1, Col) Then If r1 <> r2 Then Range(Cells(r1 + 1, Col), Cells(r2, Col)).ClearContents With Range(Cells(r1, Col), Cells(r2, Col)) .HorizontalAlignment = xlCenter .VerticalAlignment = xlCenter .WrapText = True .Orientation = 0 .AddIndent = False .IndentLevel = 0 .ShrinkToFit = False .ReadingOrder = xlContext .MergeCells = True End With End If r1 = r2 + 1 End If r2 = r2 + 1 Loop Until Cells(r2, Col) = «» End Sub |
Все ячейки с одинаковыми значениями при его выполнении объединятся в соответствующие группы. Единственное – возможно, что форматирование толщины линий придется слегка подправить.
1
You can follow any responses to this entry through the RSS 2.0 feed. You can leave a response, or trackback from your own site.
Содержание
- Разъединение ячеек
- Способ 1: окно форматирования
- Способ 2: кнопка на ленте
- Вопросы и ответы
Одной из интересных и полезных функций в Экселе является возможность объединить две и более ячейки в одну. Эта возможность особенно востребована при создании заголовков и шапок таблицы. Хотя, иногда она используется даже внутри таблицы. В то же время, нужно учесть, что при объединении элементов некоторые функции перестают корректно работать, например сортировка. Также существует и много других причин, из-за которых пользователь решит разъединить ячейки, чтобы построить структуру таблицы по-иному. Установим, какими методами можно это сделать.
Разъединение ячеек
Процедура разъединения ячеек является обратной их объединению. Поэтому, говоря простыми словами, чтобы её совершить, нужно произвести отмену тех действий, которые были выполнены при объединении. Главное понять, что разъединить можно только ту ячейку, которая состоит из нескольких ранее объединенных элементов.
Способ 1: окно форматирования
Большинство пользователей привыкли производить процесс объединения в окне форматирования с переходом туда через контекстное меню. Следовательно, и разъединять они будут так же.
- Выделяем объединенную ячейку. Щелкаем правой кнопкой мышки для вызова контекстного меню. В списке, который откроется, выбираем пункт «Формат ячеек…». Вместо этих действий после выделения элемента можно просто набрать комбинацию кнопок на клавиатуре Ctrl+1.
- После этого запускается окно форматирования данных. Перемещаемся во вкладку «Выравнивание». В блоке настроек «Отображение» снимаем галочку с параметра «Объединение ячеек». Чтобы применить действие, щелкаем по кнопке «OK» внизу окна.
После этих несложных действий ячейка, над которой проводили операцию, будет разделена на составляющие её элементы. При этом, если в ней хранились данные, то все они окажутся в верхнем левом элементе.
Урок: Форматирование таблиц в Экселе
Способ 2: кнопка на ленте
Но намного быстрее и проще, буквально в один клик, можно произвести разъединение элементов через кнопку на ленте.
- Как и в предыдущем способе, прежде всего, нужно выделить объединенную ячейку. Затем в группе инструментов «Выравнивание» на ленте жмем на кнопку «Объединить и поместить в центре».
- В данном случае, несмотря на название, после нажатия кнопки произойдет как раз обратное действие: элементы будут разъединены.
Собственно на этом все варианты разъединения ячеек и заканчиваются. Как видим, их всего два: окно форматирования и кнопка на ленте. Но и этих способов вполне хватает для быстрого и удобного совершения вышеуказанной процедуры.
Еще статьи по данной теме:
Помогла ли Вам статья?
Как разъединить объединенную ячейку и записать данные в каждую ячейку?
Пытаюсь спарсить расписание своего учебного заведения, возникла проблема что некоторые ячейки являются объединенными. Хочу их разъединить и в каждую ячейку из диапазона объединения записать данные.
Прикладываю пример того как нужно (левая часть)
Пользуюсь библиотекой openpyxl
На данный момент код выглядит так, решение витает в воздухе но я в тупике.
#
wb = openpyxl.open(f"excel/10_2023-01-08_excel_schedule.xlsx", data_only=False, read_only=False)
ws = wb.active
merged_cells = list(map(str, ws.merged_cells.ranges)) # Получаю список объединенных диапазонов
# Разъединяю объединенные ячейки
for item in merged_cells:
ws.unmerge_cells(item)
wb.save("test_unmerge.xlsx")
print(merged_cells)
-
Вопрос задан16 янв.
-
148 просмотров
Спасибо YK21
Сохранить значение из первой во временной переменной и подставить в цикле в каждую ячейку из дипазона
и Akina за советы
Подход простой.
В диапазоне проходите по ячейкам. Каждую проверяете на объединённость. Если очередная ячейка не объединена — сканируете дальше.
Если объединена, то:
Считываете и запоминаете значение как скалярную величину (не как массив! это важно).
Считываете и запоминаете адрес и размер.
Убираете объединение.
Выделяете отдельные ячейки, которые были раньше объединены (по адресу и размеру).
Вставляете значение в выделение — оно будет вставлено в каждую ячейку диапазона назначения.
Мое решение, возможно нелогичный велосипед, но работает
def prepare_sheet(sheet):
merged_cells = list(map(str, sheet.merged_cells.ranges)) # Получаю список объединенных диапазонов
# Разъединяю объединенные ячейки и дублирую запись
for item in merged_cells:
sheet.unmerge_cells(item)
merged_cells_range = item.split(":")
if merged_cells_range[0][0] == merged_cells_range[1][0]:
letter = item.split(":").pop(0)[0] # Символ столбца диапазона
start = int(item.split(":").pop(0)[1:]) # Начало диапазона
end = int(item.split(":").pop()[1:]) # Конец диапазона
copy_cell = sheet[(letter + str(start))].value
for n in range(start, end + 1):
cell = letter + str(n)
sheet[cell].value = copy_cell
Пригласить эксперта
-
Показать ещё
Загружается…
16 апр. 2023, в 02:45
1 руб./за проект
16 апр. 2023, в 02:43
1 руб./за проект
15 апр. 2023, в 23:37
1000 руб./в час