Предстоит задача, когда в таблице имеются собранные воедино клетки в большом количестве, и требуется их разъединение, с дальнейшим заполнением начальных величин оттуда (два состояния ниже).
Дальше описывается процесс разделения ячеек с заполнением повторяющимися величинами, реализуемый тремя способами:
- «Переходом к специальной».
- Кодом VBA.
- С помощью Kutools for Excel.
Рассматриваются последовательно все три способа.
Разъединение со «специальной»
Это один из сложных способов. Для этого выполняются действия:
- Выделение столбцов с содержанием соединенных ячеек.
- Дальше на Главной вкладке перейти к Слиянию и центру, где выбрать Разъединение:
- Объединения не было. Но в первой ячейке было заполнение изначальных значений. Дальше нужно повторять выбор диапазона.
- После этого необходимо перейти снова к Главной вкладке, потом последовательно переходить к Найти и выбрать и Перейти к специальному. В последнем диалоговом окне выбирается позиция Пробелы. Это отображено на картинке ниже:
- После того, как нажать клавишу ОК, произойдет выбор всех незаполненных клеток в заданном интервале. Дальше нужно вводить =, после этого нажимается Up кнопка со стрелкой на клавиатуре:
- После этого необходимо нажать Ctrl + Enter для ключей. Дальше изначально собранная информация заполняется во всех незанятых клетках. Это видно на скриншоте:
На этом занесение повторяющейся информации этим способом завершено.
Разъединение и заполнение кодом VBA
Для разделения ячеек и заполнения значений используется внутренний редактор программирования прикладных задач MIcrosoft Visual Basic.
Чтобы работать с ним, необходимо выполнять следующие операции:
- Нужно нажать сочетание Alt + F11, после чего раскрывается кадр диалога в Microsoft Visual Basic для приложений.
Альтернативный способ – зайти в ленту, окно Разработчика, перейти через Файл и Параметры к Настройке ленты и Проверке флажка. После Окей, в Параметрах перейти на Visual Basic.
После этого последовательно Вставить и окно Модули.
Дальше сюда нужно выполнить вставку следующего макроса:
Sub UnMergeSameCell() ‘Upadateby Extendoffice Dim Rng As Range, xCell As Range xTitleId = «KutoolsforExcel» Set WorkRng = Application.Selection Set WorkRng = Application.InputBox(«Range», xTitleId, WorkRng.Address, Type:=8) Application.ScreenUpdating = False Application.DisplayAlerts = False For Each Rng In WorkRng If Rng.MergeCells Then With Rng.MergeArea .UnMerge .Formula = Rng.Formula End With End If Next Application.DisplayAlerts = True Application.ScreenUpdating = True End Sub
- Когда макрос введен, код запускается в работу функцией F5. Открытием диалогового окна предлагается выбрать диапазон выполнения операций:
- После нажатия ОК, сработает код. Вместе с объединением клеток происходит автоматическое заполнение первичных объединенных величин.
Как разъединяются ячейки с заполнением повторяющейся информации при помощи одним кликом
В этом случае разъединение выполняется опцией Kutools for Excel.
В этом приложении несколько сотен эффективных настроек Эксель. Они откроются по щелчку в бесплатном варианте программы на срок до одного месяца. По окончанию периода функция становится платной. После перехода https://ru.extendoffice.com/product/kutools-for-excel.html потребуется загрузить и установить пробную бесплатную версию:
Когда Kutools для Эксель установится, необходимо выполнение следующих действий:
- Выбор столбцов, для которых потребуется разъединение и заполнение информации.
- Дальше нажимается Kutools, по очереди клавиши Слияния и разделения, Разъединения и заполнения. Это отображено на скриншоте:
После выполненных действий соединенные ячейки разделятся. Туда заполняется повторяющаяся информация. Это видно на итоговых скриншотах:
Таким образом, по третьему способу щелчком мыши, разделение объединенных ячеек и заполнение повторяющимися значениями, завершено.