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

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

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

Разъединить ячейки и заполнить повторяющимися данными с помощью кода 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"
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

3, Затем нажмите F5 для запуска этого кода отображается диалоговое окно для выбора диапазона для работы, см. снимок экрана:

4. Нажмите OK, то объединенные ячейки не объединяются и автоматически заполняются исходными объединенными значениями.

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

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

После установки Kutools for Excel, вы можете сделать следующее:

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

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

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

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

Связанная статья:

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