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

В программе Excel существует много приемов для быстрого и эффективного заполнения ячеек данными. Всем известно, что лень – это двигатель прогресса. Знают об этом и разработчики.

На заполнение данных приходится тратить большую часть времени на скучную и рутинную работу. Например, заполнение табеля учета рабочего времени или расходной накладной и т.п.

Рассмотрим приемы автоматического и полуавтоматического заполнения в Excel. А так же, какими инструментами обладают электронные таблицы для облегчения труда пользователя. Научимся применять их в практике и узнаем насколько они эффективные.

Как в Excel заполнить ячейки одинаковыми значениями?

Сначала рассмотрим, как автоматически заполнять ячейки в Excel. Для примера заполним наполовину незаполненную исходную таблицу.

Это небольшая табличка только на примере и ее можно было заполнить вручную. Но в практике иногда приходится заполнять по 30 тысяч строк. Чтобы не заполнять эту исходную таблицу вручную следует создать формулу для заполнения в Excel данными – автоматически. Для этого следует выполнить ряд последовательных действий:

1. Перейдите на любую пустую ячейку исходной таблицы.
2. Выберите инструмент: «Главная»-«Найти и выделить»-«Перейти» (или нажмите горячие клавиши CTRL+G).
3. В появившемся окне щелкните на кнопку «Выделить».
4. В появившемся окне выберите опцию «пустые ячейки» и нажмите ОК. Все незаполненные ячейки выделены.
5. Теперь введите формулу «=A1» и нажмите комбинацию клавиш CTRL+Enter. Так выполняется заполнение пустых ячеек в Excel предыдущим значением – автоматически.



6. Выделите колонки A:B и скопируйте их содержимое.
7. Выберите инструмент: «Главная»-«Вставить»-«Специальная вставка» (или нажмите CTRL+ALT+V).
8. В появившемся окне выберите опцию «значения» и нажмите Ок. Теперь исходная таблица заполнена не просто формулами, а естественными значениями ячеек.

При заполнении 30-ти тысяч строк невозможно не допустить ошибки. Выше приведенный способ не только экономит силы и время, но и исключает возникновение ошибок вызванных человеческим фактором.

Внимание! В 5-том пункте таблица красиво заполнилась без ошибок, так как наша активная ячейка была по адресу A2, после выполнения 4-го пункта. При использовании данного метода будьте внимательны и следите за тем где находится активная ячейка после выделения. Важно откуда она будет брать свои значения.



Полуавтоматическое заполнение ячеек в Excel из выпадающего списка

Теперь в полуавтоматическом режиме можно заполнить пустые ячейки. У только несколько значений, которые повторяются в последовательном или случайном порядке.

В новой исходной таблице автоматически заполните колонки C и D соответствующие им данными.

1. Заполните заголовки колонок C1 – «Дата» и D1 – «Тип платежа».
2. В ячейку C2 введите дату 18.07.2015
3. В ячейках С2:С4 даты повторяются. Поэтому выделяем диапазон С2:С4 и нажимаем комбинацию клавиш CTRL+D, чтобы автоматически заполнить ячейки предыдущими значениями.
4. Введите текущею дату в ячейку C5. Для этого нажмите комбинацию клавиш CTRL+; (точка с запятой на английской раскладке клавиатуры). Заполните текущими датами колонку C до конца таблицы.
5. Диапазон ячеек D2:D4 заполните так как показано ниже на рисунке.
6. В ячейке D5 введите первую буку «п», а дальше слово заполнят не надо. Достаточно нажать клавишу Enter.
7. В ячейке D6 после ввода первой буквы «н» не отображается часть слова для авто-заполнения. Поэтому нажмите комбинацию ALT+(стрела вниз), чтобы появился выпадающий список. Выберите стрелками клавиатуры или указателем мышки значение «наличными в кассе» и нажмите Enter.

Такой полуавтоматический способ ввода данных позволяет в несколько раз ускорить и облегчить процесс работы с таблицами.

Внимание! Если значение состоит из нескольких строк, то при нажатии на комбинацию ALT+(стрела вниз) оно не будет отображаться в выпадающем списке значений.

Разбить значение на строки можно с помощью комбинации клавиш ALT+Enter. Таким образом, текст делится на строки в рамках одной ячейки.

Примечание. Обратите внимание, как мы вводили текущую дату в пункте 4 с помощью горячих клавиш (CTRL+;). Это очень удобно! А при нажатии CTRL+SHIFT+; мы получаем текущее время.

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

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

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

Объединить соседние строки с одинаковыми данными в 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, вы можете сделать следующее:

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

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

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

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

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

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

Иногда требуется ввести одинаковые значения в несвязный диапазон ячеек. Показываем, как это сделать быстро.

Пусть требуется ввести одинаковое значение (например, слово «

ОТДЕЛ

») в группу ячеек, раскиданных по всему листу.

• выделите все ячейки, в которые нужно внести значение (выделение нужно делать мышью с нажатой клавишей
  
  CTRL
  
  );
• в

  Строке формул

  введите требуемое значение;

• нажмите вместо
  
  ENTER
  
  комбинацию клавиш
  
  CTRL+ENTER
  

СОВЕТ

:

О быстром заполнении ячеек значениями из других ячеек можно прочитать в статьях

Заполнение значениями из соседних ячеек

и

Заполнение пустых ячеек

.