Как скопировать и вставить строку несколько раз или продублировать её X раз в Excel?
В повседневной работе вам приходилось копировать отдельные строки или каждую строку, а затем вставлять их несколько раз сразу после текущей строки на листе? Например, у вас есть диапазон ячеек, и вы хотите скопировать каждую строку и вставить её трижды подряд сразу после исходной строки, как показано на снимке экрана ниже. Как выполнить такую задачу в Excel?
 |  |  |
- Копирование и вставка определённой строки несколько раз с помощью кода VBA
- Копирование и вставка каждой строки несколько раз с помощью кода VBA
- Копирование и вставка каждой строки несколько раз на основе заданного числа с помощью потрясающей функции
Копирование и вставка определённой строки несколько раз с помощью кода VBA
Если вам нужно продублировать только одну конкретную строку x раз, воспользуйтесь приведённым ниже кодом VBA. Выполните следующие действия:
1. Выделите строку, которую нужно скопировать и вставить несколько раз, затем нажмите сочетание клавиш ALT + F11, чтобы открыть окно Microsoft Visual Basic for Applications.
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. Затем нажмите кнопку ОК, и под выбранной строкой появятся три новых скопированных строки (см. снимок экрана):
Легко копируйте и вставляйте каждую строку несколько раз на основе заданного числа
Обычно нет удобного способа копировать и вставлять строки несколько раз, кроме ручного копирования и вставки. Однако с функцией Kutools для Excel — Копировать или вставить строки/столбцы в соответствии с указанными данными — вы легко справитесь с этой задачей.Нажмите для загрузки Kutools для Excel!
Kutools для Excel: более чем 300 удобных надстроек Excel, бесплатная пробная версия без ограничений на 60 дней.Скачайте и начните бесплатный пробный период прямо сейчас!
Копирование и вставка каждой строки несколько раз с помощью кода VBA
Чтобы продублировать каждую строку указанное количество раз в заданном диапазоне, воспользуйтесь приведённым ниже кодом VBA. Выполните следующие действия:
1. Нажмите сочетание клавиш ALT + F11, чтобы открыть окно Microsoft Visual Basic for Applications.
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 Sub3. Затем нажмите клавишу F5, чтобы запустить код. Появится диалоговое окно с запросом ввести количество повторов для дублирования каждой записи (см. снимок экрана):
4. Затем нажмите кнопку ОК, и каждая строка будет скопирована и вставлена три раза под исходными строками (см. снимок экрана):
| | |
Примечание: в приведённом выше коде A указывает, что диапазон данных начинается со столбца A. Если ваши данные начинаются со столбца K, замените A на K в соответствии с вашими потребностями.
Копирование и вставка каждой строки несколько раз на основе заданного числа с помощью потрясающей функции
Возможно, вы не знакомы с кодом VBA или боитесь повредить свои данные. В таком случае рекомендуем удобную функцию из Kutools для Excel — Копировать или вставить строки/столбцы в соответствии с указанными данными: с её помощью вы быстро скопируете и вставите строки нужное количество раз.
Совет:Чтобы применить функцию Копировать или вставить строки/столбцы в соответствии с указанными данными, сначала загрузите Kutools для Excel, а затем быстро и легко воспользуйтесь этой функцией.
После установки Kutools для Excelвыполните следующие действия:
1. Введите количество повторов, необходимое для Дублирующая строка, в список ячеек рядом с вашими данными (см. снимок экрана):
2. Нажмите Kutools > Вставка > Копировать или вставить строки/столбцы в соответствии с указанными данными (см. снимок экрана):
3. В диалоговом окне Копировать и вставить строки/столбцы выберите параметр Копировать и вставить строки в разделе Тип, затем укажите диапазон данных для дублирования и задайте количество повторов (см. снимок экрана):
4. Затем нажмите кнопку Ок или Применить, и вы получите требуемый результат:
| |  |
Нажмите, чтобы скачать Kutools для Excel и начать бесплатный пробный период прямо сейчас!
Лучшие инструменты повышения продуктивности в Office
Раскройте весь потенциал Excel с помощью Kutools для Excel и ощутите эффективность как никогда раньше.Kutools для Excel предлагает более 300 расширенных функций для повышения продуктивности и Экономия времени.Нажмите здесь, чтобы получить нужную Вам функцию…
Office Tab добавляет в Office вкладки и значительно упрощает Вашу работу
- Включите редактирование и чтение во вкладках в Word, Excel, PowerPoint, Publisher, Access, Visio и Project.
- Открывайте и создавайте несколько документов во вкладках одного окна — вместо того чтобы использовать отдельные окна.
- Повышает вашу продуктивность на 50 % и экономит сотни кликов мышью каждый день!
Все надстройки Kutools — один установщик
Kutools for Office — набор надстроек для Excel, Word, Outlook и PowerPoint, а также Office Tab Pro, идеально подходящий командам, работающим с разными приложениями Office.
- Единый комплект— надстройки для Excel, Word, Outlook и PowerPoint + Office Tab Pro
- Один установщик, одна лицензия— настройка занимает считанные минуты (готово для MSI)
- Лучше работать вместе— оптимизированная продуктивность во всех приложениях Office
- 30-дневная полнофункциональная пробная версия— без регистрации и кредитной карты
- Лучшее соотношение цены и качества— экономия по сравнению с покупкой отдельных надстроек