Как разделить ячейки и заполнить повторяющиеся значения в 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" Установить 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 : с более чем 300 удобными надстройками Excel, бесплатно и без ограничений в течение 30 дней. |
После установки Kutools for Excel, вы можете сделать следующее:
1. Выберите столбцы, которые вы хотите разделить, и заполните данные.
2. Нажмите Кутулс > Слияние и разделение > Разъединить ячейки и заполнить значение, см. снимок экрана:
3. И объединенные ячейки были разделены и сразу заполнены повторяющимися значениями. Смотрите скриншоты:
|
|
|
Разъедините ячейки и заполните повторяющимися данными с помощью Kutools for Excel
Связанная статья:
Объединить соседние строки с одинаковыми данными в Excel
Лучшие инструменты для офисной работы
Усовершенствуйте свои навыки работы с Excel с помощью Kutools for Excelи испытайте эффективность, как никогда раньше. Kutools for Excel Предлагает более 300 расширенных функций для повышения производительности и экономии времени. Нажмите здесь, чтобы получить функцию, которая вам нужна больше всего...
Office Tab Добавляет в Office интерфейс с вкладками и значительно упрощает вашу работу
- Включение редактирования и чтения с вкладками в Word, Excel, PowerPoint, Издатель, доступ, Visio и проект.
- Открывайте и создавайте несколько документов на новых вкладках одного окна, а не в новых окнах.
- Повышает вашу продуктивность на 50% и сокращает количество щелчков мышью на сотни каждый день!
