Note: The other languages of the website are Google-translated. Back to English

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

Kutools for Excel: с более чем 300 удобными надстройками Excel, которые можно попробовать бесплатно без ограничений в течение 30 дней. Загрузите и бесплатную пробную версию прямо сейчас!

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

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


Лучшие инструменты для работы в офисе

Kutools for Excel решает большинство ваших проблем и увеличивает вашу производительность на 80%

  • Снова использовать: Быстро вставить сложные формулы, диаграммы и все, что вы использовали раньше; Зашифровать ячейки с паролем; Создать список рассылки и отправлять электронные письма ...
  • Бар Супер Формулы (легко редактировать несколько строк текста и формул); Макет для чтения (легко читать и редактировать большое количество ячеек); Вставить в отфильтрованный диапазон...
  • Объединить ячейки / строки / столбцы без потери данных; Разделить содержимое ячеек; Объединить повторяющиеся строки / столбцы... Предотвращение дублирования ячеек; Сравнить диапазоны...
  • Выберите Дубликат или Уникальный Ряды; Выбрать пустые строки (все ячейки пустые); Супер находка и нечеткая находка во многих рабочих тетрадях; Случайный выбор ...
  • Точная копия Несколько ячеек без изменения ссылки на формулу; Автоматическое создание ссылок на несколько листов; Вставить пули, Флажки и многое другое ...
  • Извлечь текст, Добавить текст, Удалить по позиции, Удалить пробел; Создание и печать промежуточных итогов по страницам; Преобразование содержимого ячеек в комментарии...
  • Суперфильтр (сохранять и применять схемы фильтров к другим листам); Расширенная сортировка по месяцам / неделям / дням, периодичности и др .; Специальный фильтр жирным, курсивом ...
  • Комбинируйте книги и рабочие листы; Объединить таблицы на основе ключевых столбцов; Разделить данные на несколько листов; Пакетное преобразование xls, xlsx и PDF...
  • Более 300 мощных функций. Поддерживает Office/Excel 2007-2021 и 365. Поддерживает все языки. Простое развертывание на вашем предприятии или в организации. Полнофункциональная 30-дневная бесплатная пробная версия. 60-дневная гарантия возврата денег.
вкладка kte 201905

Вкладка Office: интерфейс с вкладками в Office и упрощение работы

  • Включение редактирования и чтения с вкладками в Word, Excel, PowerPoint, Издатель, доступ, Visio и проект.
  • Открывайте и создавайте несколько документов на новых вкладках одного окна, а не в новых окнах.
  • Повышает вашу продуктивность на 50% и сокращает количество щелчков мышью на сотни каждый день!
офисный дно
Сортировать комментарии по
Комментарии (47)
Оценок пока нет. Оцените первым!
Этот комментарий был сведен к минимуму модератором на сайте
Спасибо за разъединение и дублирование кода vba
Этот комментарий был сведен к минимуму модератором на сайте
Блестящий !! Код VBA работает отлично. исправил мою проблему с экспортом в CSV :)
Этот комментарий был сведен к минимуму модератором на сайте
VBA отлично работал, за исключением того, что я использовал его для 16-значного числа, а Excel превращает последнюю цифру в «0». Любые предложения по работе для этого?
Этот комментарий был сведен к минимуму модератором на сайте
Оба метода работают отлично. Спасибо :-)
Этот комментарий был сведен к минимуму модератором на сайте
ОМГ, ты только что сэкономил мне СТОЛЬКО ВРЕМЕНИ.
Этот комментарий был сведен к минимуму модератором на сайте
это круто. спасатель
Этот комментарий был сведен к минимуму модератором на сайте
Это сэкономило мне бесчисленное количество часов, большое спасибо за это. Я заметил одну вещь, с которой столкнулся в команде Go To Special, которая на секунду меня смутила. Мне нужно было искать внутри документа, а функция ctrl+enter копирует код, но не значение. Я рекомендую (если вы хотите искать, как я) скопировать строку, которая была объединена, вставить специальные значения. Это позволит избавиться от кода и сделать текст доступным для поиска. Еще раз спасибо за этот удивительный трюк.
Этот комментарий был сведен к минимуму модератором на сайте
Хорошая работа. Но метод Function работал сначала хорошо на первых 2288 строках, затем без ошибок и предупреждений, просто не делал строки дальше этого. У меня более 6000 строк (строк). Если я вручную выбираю любой диапазон за пределами строки 2288, метод Function не работает. К сожалению, поставщик данных объединяет строки в доставке данных Excel. Какие-либо предложения? Спасибо за отличную информацию.
Этот комментарий был сведен к минимуму модератором на сайте
Ваши инструкции настолько же просты, насколько и действенны!!! Я должен тебе обед.
Этот комментарий был сведен к минимуму модератором на сайте
Сэр, вы спасли мне жизнь, именно благодаря вам я добавил эту страницу в закладки :)!!
Этот комментарий был сведен к минимуму модератором на сайте
Чрезвычайно полезно! Спасибо!
Этот комментарий был сведен к минимуму модератором на сайте
Очень полезно..! Большое тебе спасибо.
Этот комментарий был сведен к минимуму модератором на сайте
Вы сделали мою неделю! 8)
Этот комментарий был сведен к минимуму модератором на сайте
Большое спасибо, это очень полезный пост. Это действительно сэкономило мне много времени
Этот комментарий был сведен к минимуму модератором на сайте
Большое спасибо за ваше решение...
Этот комментарий был сведен к минимуму модератором на сайте
Потрясающий! Продолжайте в том же духе!
Этот комментарий был сведен к минимуму модератором на сайте
Это действительно полезно, но у меня есть один вопрос. Есть ли способ изменить код VBA, чтобы пропустить пустые объединенные ячейки? Я хочу, чтобы ячейка была разделена и дублирована только в том случае, если есть значение, отличное от пустого. Я уверен, что это не займет больше, чем оператор if/else или два, я просто слишком глуп, чтобы сделать это.
Этот комментарий был сведен к минимуму модератором на сайте
Очень хорошее объяснение со снимком экрана.... большое спасибо...
Этот комментарий был сведен к минимуму модератором на сайте
Спас мою жизнь! Большое спасибо!
Этот комментарий был сведен к минимуму модератором на сайте
Хороший. сэкономил кучу времени спасибо
Здесь еще нет комментариев
Загрузить ещё
Оставляйте свои комментарии
Публикация как гость
×
Оценить этот пост:
0   Характеристики
Предлагаемые места

Подписывайтесь на Нас

Copyright © 2009 - www.extendoffice.ком. | Все права защищены. Питаться от ExtendOffice, | Карта сайта
Microsoft и логотип Office являются товарными знаками или зарегистрированными товарными знаками Microsoft Corporation в США и / или других странах.
Защищено Sectigo SSL