Как разъединить ячейки и заполнить повторяющимися значениями в Excel?

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

Разъединить ячейки и заполнить повторяющимися данными с помощью кода VBA

Разъединить ячейки и заполните повторяющиеся данные одним щелчком мыши

Разъединить ячейки и заполнить повторяющимися данными с помощью команды” Перейти к специальному “

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

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 вы можете сделать следующее:

1 . Выберите столбцы, которые вы хотите разделить, и заполните данные.

2 . Нажмите Kutools > Слияние и разделение > Разъединить ячейки и значение заполнения , см. Снимок экрана:

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

Разъединить ячейки и заполнить повторяющимися данными с помощью Kutools for Excel

Объединить соседние строки с одинаковыми данными в Excel