Как дублировать строки в excel автоматически

Генерация дубликатов строк

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

Допустим, что у нас есть вот такая таблица с именами людей, заказавших билет в кино и количеством билетов для каждого:

Каждому билету нужно присвоить уникальный 6-значный номер, который формируется здесь простой функцией СЛУЧМЕЖДУ (RANDBETWEEN), генерирующей целое случайное число в заданном диапазоне 100000-999999. Да, я знаю, что теоретически совпадения могут быть, но вероятность очень невелика и пока нас, допустим, устраивает (кого не устраивает — см.эту статью). Проблема в другом: для тех, кто заказал больше одного билета, нужно вставить в таблицу новые строки-дубли (по количеству заказанных билетов), т.е. на выходе получить вот такое:

Руками такое делать — тоскливо, формулами — сложно. Так что остаются два наиболее удобных варианта — макросы и Power Query.

Способ 1. Создание дубликатов строк макросом

Откроем редактор макросов кнопкой Visual Basic на вкладке Разработчик (Developer) или сочетанием клавиш Alt+F11. Вставим новый модуль через меню Insert — Module и скопируем туда текст нашего макроса:

Sub Duplicate_Rows()
    Dim cell As Range

    Set cell = Range("B2")      'первая ячейка в столбце с кол-вом билетов
    Do While Not IsEmpty(cell)
        If cell > 1 Then
            cell.Offset(1, 0).Resize(cell.Value - 1, 1).EntireRow.Insert    'вставляем N пустых строк
            cell.Resize(cell.Value, 1).EntireRow.FillDown                   'заполняем вниз из первых ячеек
        End If
        Set cell = cell.Offset(cell.Value, 0)
    Loop
End Sub

Принцип тут не самый сложный: 

1. проходим сверху-вниз по столбцу начиная с B2 до первой пустой ячейки
2. если число в ячейке >1, то вставляем пустых строк под ячейкой на одну меньше, чем число билетов
3. заполняем пустые ячейки (метод FillDown — аналог «протягивания за черный крестик» в правом нижнем углу ячейки)
4. переходим к следующей ячейке и т.д.

Способ 2. Создание дубликатов строк в Power Query

Тем, кто хотя бы немного сталкивался с Power Query, рекламировать его мощь не нужно  Для тех, кто не знаком (если коротко), то Power Query — это бесплатная надстройка для Excel от Microsoft, умеющая делать с данными практически все, что только можно себе представить: загрузку из любых источников, очистку, трансформацию, анализ данных и т.д. Для Excel 2010-2013 ее можно скачать с сайта Microsoft (появится отдельная вкладка Power Query после установки), а в Excel 2016 она уже встроена по-умолчанию (группа Получить внешние данные на вкладке Данные).

Power Query может легко и красиво решить нашу проблему с генерацией дубликатов.

Для начала, выделим нашу таблицу и загрузим ее в Power Query кнопкой Из таблицы/диапазона (From Table/Range) на вкладке Данные (Data) или Power Query:

После окна подтверждения увидим редактор запросов и нашу таблицу. Добавим пользовательский столбец на вкладке Добавить столбец (Add Column — Custom Column):

В появившемся окне введем имя столбца и формулу, которая создает список чисел от 1 до количества билетов в каждой строке:

После нажатия на ОК появится новый столбец со списками, элементы которых можно развернуть в строки, используя кнопку в шапке таблицы:

В итоге, получаем практически то, что хотелось:

Осталось удалить ненужный больше столбец Список (правой кнопкой мыши по заголовку — Удалить столбец) и выгрузить данные обратно на лист на вкладке Главная (Home) с помощью кнопки Закрыть и загрузить — Закрыть и загрузить в… (Close&Load — Close&Load to…) и указать подходящее место для результирующей таблицы:

И останется совсем простая часть — добавить к таблице столбец с формулой СЛУЧМЕЖДУ (RANDBETWEEN) для генерации случайных номеров билетов:

Особенно приятно, что при любых изменениях в исходной (левой) таблице (добавлении новых людей или изменении количества билетов), достаточно будет просто обновить правой кнопкой мыши нашу результирующую таблицу с номерами билетов.

P.S.

Если нужно, чтобы случайные числа не генерировались каждый раз заново при пересчете листа, а формировались один раз, сохраняя потом свои значения, то придется использовать макро-функцию StaticRandBetween из надстройки PLEX или что-то аналогичное.

Также можно, для наглядности, склеивать через дефис номер билета и порядковый номер из столбца Список прямо в Power Query, используя команду Объединить столбцы на вкладке Преобразование (Transform).

Ссылки по теме

• Слияние двух списков без дубликатов
• Извлечение уникальных элементов из диапазона
• Что такое макросы, как их использовать, куда вставлять код макросов на Visual Basic

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

• Скопируйте и вставьте определенную строку несколько раз с кодом VBA
• Скопируйте и вставьте каждую строку несколько раз с кодом VBA
• Скопируйте и вставьте каждую строку несколько раз на основе определенного числа с потрясающей функцией

Скопируйте и вставьте определенную строку несколько раз с кодом VBA

Если вы хотите дублировать только одну конкретную строку x раз, следующий код VBA может вам помочь, сделайте следующее:

1. Укажите строку, которую вы хотите скопировать и вставить несколько раз, а затем удерживайте ALT + F11 ключи, затем он открывает Microsoft Visual Basic для приложений окно.

2. Нажмите Вставить > Модулии вставьте следующий код в Модули Окно.

Код VBA: несколько раз продублируйте одну конкретную строку:

Sub test()
'Updateby Extendoffice
    Dim xCount As Integer
LableNumber:
    xCount = Application.InputBox("Number of Rows", "Kutools for Excel", , , , , , 1)
    If xCount < 1 Then
        MsgBox "the entered number of rows is error, please enter again", vbInformation, "Kutools for Excel"
        GoTo LableNumber
    End If
    ActiveCell.EntireRow.Copy
    Range(ActiveCell.Offset(1, 0), ActiveCell.Offset(xCount, 0)).EntireRow.Insert Shift:=xlDown
    Application.CutCopyMode = False
End Sub

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

4. Затем нажмите OK кнопку, и три новые скопированные строки были вставлены под выбранной строкой, см. снимок экрана:

Скопируйте и вставьте каждую строку несколько раз с кодом VBA

Чтобы дублировать каждую строку несколько раз в диапазоне, вы можете применить следующий код VBA, сделайте следующее:

1. Удерживайте ALT + F11 ключи, затем он открывает Microsoft Visual Basic для приложений окно.

2. Нажмите Вставить > Модулии вставьте следующий код в Модули Окно.

Код VBA: продублируйте каждую строку несколько раз:

Sub insertrows()
'Updateby Extendoffice
Dim I As Long
Dim xCount As Integer
LableNumber:
xCount = Application.InputBox("Number of Rows", "Kutools for Excel", , , , , , 1)
If xCount < 1 Then
MsgBox "the entered number of rows is error ,please enter again", vbInformation, "Kutools for Excel"
GoTo LableNumber
End If
For I = Range("A" & Rows.CountLarge).End(xlUp).Row To 2 Step -1
Rows(I).Copy
Rows(I).Resize(xCount).Insert
Next
Application.CutCopyMode = False
End Sub

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

4. Затем нажмите OK, и каждая строка была скопирована и вставлена ​​в 3 раза ниже активных, см. снимок экрана:

Внимание: В приведенном выше коде A указывает, что диапазон данных начинается в столбце A, если ваши данные начинаются в столбце K, пожалуйста измените A в K как вам нужно.

Скопируйте и вставьте каждую строку несколько раз на основе определенного числа с потрясающей функцией

Возможно, вы не знакомы с кодом VBA или беспокоитесь о том, что код приведет к сбою ваших данных. Здесь я расскажу о полезной функции, Kutools for Excel‘s Повторяющиеся строки / столбцы на основе значения ячейки, с помощью этой утилиты вы можете быстро копировать и вставлять строки в зависимости от указанного вами числа.

Советы:Чтобы применить это Повторяющиеся строки / столбцы на основе значения ячейки функция, во-первых, вы должны скачать Kutools for Excel, а затем быстро и легко примените эту функцию.

После установки Kutools for Excel, пожалуйста, сделайте так:

1. Введите повторяющиеся числа, которые вы хотите дублировать строки в списке ячеек рядом с вашими данными, см. Снимок экрана:

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

3. В Копировать и вставлять строки и столбцы диалоговое окно, выберите Копировать и вставлять строки вариант в Тип раздел, затем выберите диапазон данных, который вы хотите дублировать, а затем укажите время повтора для дублирования строк, см. снимок экрана:

4, Затем нажмите Ok or Применить кнопку, вы получите такой результат, как вам нужно:

Нажмите, чтобы скачать Kutools for Excel и бесплатная пробная версия прямо сейчас!

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

Как вставить новую строку

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

1. Для начала открываем/создаем таблицу, выбираем любую ячейку в строке, над которой мы хотим вставить новую строку. Щелкаем правой кнопкой мыши по этой ячейке и в выпадающем меню кликаем по команде “Вставить…”.Также, для данной функции можно пользоваться горячими клавишами Ctrl и “+” (одновременное нажатие).
2. После откроется диалоговое окно, в котором можно выбрать вставку ячейки, строки или столбца. Выбираем вставить строку и нажимаем «OK».
3. Все готово, новая строка добавлена. Причем, обратите внимание, при добавлении новая строка перенимает от верхней строки все параметры форматирования.

Примечание: Есть еще один способ добавления новой строки. Кликаем правой кнопкой мыши на номер строки, над которой хотим вставить новую строку и выбираем в появившемся меню пункт “Вставка”.

Как вставить новую строку в конце таблицы

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

1. Для начала мы выделяем всю последнюю строку таблицы, щелкнув левой кнопкой мыши по ее номеру. Затем наводим курсор на нижний правый угол строки, пока он не изменит свою форму на “крестик”.
2. Зажав “крестик” левой кнопкой мыши тянем его вниз на то количество строк, которое хотим добавить, и отпускаем кнопку.
3. Как мы видим, все новые строки автоматически заполнились данным из дублируемой ячейки с сохранением форматирования.Чтобы очистить автозаполненные данные, выделяем новые строки, далее нажимаем клавишу “Delete”. Также можно щелкнуть по выделенным ячейкам правой кнопкой мыши и в открывшемся меню выбрать “Очистить содержимое”.
4. Теперь все ячейки из новых строк пусты, и мы можем добавлять в них новые данные.

Примечание: Этот способ подойдет, только когда нижняя строка не используется как строка “Итого” и не суммирует все предыдущие.

Как создать “умную” таблицу

Для удобства работы в программе Эксель можно сразу использовать “умные” таблицы. Данная таблицы легко растягиваются, поэтому можно не переживать, если вы вдруг сразу не добавили нужное количество строк. Также, при растягивании из таблицы не “выпадают” уже введенные формулы.

1. Выделяем область ячеек, которые должны войти в “умную” таблицу. Далее переходим во вкладку «Главная» и нажимаем «Форматировать как таблицу». Нам будет предложено много вариантов дизайна. Можно выбрать любой понравившийся, так как в практическом функционале они все одинаковы.
2. После того, как мы выбрали стиль, перед нами откроется окно с координатами выбранного ранее диапазона. Если он нас устраивает, и мы не хотим внести в него какие-либо изменения, нажимаем кнопку «OK». Также, стоит оставить галочку “Таблица с заголовками”, если в действительности так и есть.
3. Наша «умная” таблица готова для дальнейшей работы с ней.

Как вставить новую строку в “умной” таблице

Чтобы создать новую строку, можно использовать уже описанные выше методы.

1. Достаточно нажать на любую ячейку правой кнопкой мыши, выбрать “Вставить” и далее – пункт “Строки таблицы выше”.
2. Также строку можно добавить горячими клавишами Ctrl и “+”, чтобы не тратить время на дополнительные пункты в меню.

Как вставить новую строку в конце “умной” таблицы

Есть три способа, как добавить новую строку в конце «умной” таблицы.

1. Тянем нижний правый угол таблицы, и она растянется автоматически (на столько строк, сколько нам нужно).В этот раз новые ячейки не станут автозаполняться исходными данными (за исключением формул). Следовательно, нам не нужно удалять их содержимое, что очень удобно.

   

2. Можно просто начать вводить данные в строке сразу под таблицей, и она автоматически станет частью нашей “умной” таблицы.
3. Находясь в самой нижней правой ячейке таблицы просто нажмите клавишу “Tab” на клавиатуре.Новая строка добавится автоматически с учетом всех параметров форматирования таблицы.

   

Заключение

Таким образом, есть несколько способов, как добавить новые строки в программе Microsoft Excel. Но чтобы уже с самого начала работы избавиться от многих возможных трудностей, лучше сразу использовать формат “умной” таблицы, которая позволяет работать с данными с большим комфортом.