Как скопировать и вставить строку несколько раз или продублировать строку x раз в Excel?
Пробовали ли вы в своей повседневной работе скопировать строку или каждую строку, а затем несколько раз вставить ее под текущей строкой данных на листе? Например, у меня есть диапазон ячеек, теперь я хочу скопировать каждую строку и вставить их 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 кнопку, и три новые скопированные строки были вставлены под выбранной строкой, см. снимок экрана:
Легко копируйте и вставляйте каждую строку несколько раз на основе определенного числа
Обычно нет хорошего метода для многократного копирования и вставки строк, за исключением ручного копирования и вставки. Но с Kutools for Excel's Повторяющиеся строки / столбцы на основе значения ячейки функция, вы можете легко решить эту проблему. Нажмите, чтобы загрузить Kutools for Excel!
Kutools for Excel: с более чем 300 удобными надстройками Excel, которые можно попробовать бесплатно без ограничений в течение 60 дней. Загрузите и бесплатную пробную версию прямо сейчас!
Скопируйте и вставьте каждую строку несколько раз с кодом 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 Sub3, Затем нажмите 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 и бесплатную пробную версию сейчас!
Лучшие инструменты для работы в офисе
Kutools for Excel решает большинство ваших проблем и увеличивает вашу производительность на 80%
- Снова использовать: Быстро вставить сложные формулы, диаграммы и все, что вы использовали раньше; Зашифровать ячейки с паролем; Создать список рассылки и отправлять электронные письма ...
- Бар Супер Формулы (легко редактировать несколько строк текста и формул); Макет для чтения (легко читать и редактировать большое количество ячеек); Вставить в отфильтрованный диапазон...
- Объединить ячейки / строки / столбцы без потери данных; Разделить содержимое ячеек; Объединить повторяющиеся строки / столбцы... Предотвращение дублирования ячеек; Сравнить диапазоны...
- Выберите Дубликат или Уникальный Ряды; Выбрать пустые строки (все ячейки пустые); Супер находка и нечеткая находка во многих рабочих тетрадях; Случайный выбор ...
- Точная копия Несколько ячеек без изменения ссылки на формулу; Автоматическое создание ссылок на несколько листов; Вставить пули, Флажки и многое другое ...
- Извлечь текст, Добавить текст, Удалить по позиции, Удалить пробел; Создание и печать промежуточных итогов по страницам; Преобразование содержимого ячеек в комментарии...
- Суперфильтр (сохранять и применять схемы фильтров к другим листам); Расширенная сортировка по месяцам / неделям / дням, периодичности и др .; Специальный фильтр жирным, курсивом ...
- Комбинируйте книги и рабочие листы; Объединить таблицы на основе ключевых столбцов; Разделить данные на несколько листов; Пакетное преобразование xls, xlsx и PDF...
- Более 300 мощных функций. Поддерживает Office/Excel 2007-2021 и 365. Поддерживает все языки. Простое развертывание на вашем предприятии или в организации. Полнофункциональная 30-дневная бесплатная пробная версия. 60-дневная гарантия возврата денег.
Вкладка Office: интерфейс с вкладками в Office и упрощение работы
- Включение редактирования и чтения с вкладками в Word, Excel, PowerPoint, Издатель, доступ, Visio и проект.
- Открывайте и создавайте несколько документов на новых вкладках одного окна, а не в новых окнах.
- Повышает вашу продуктивность на 50% и сокращает количество щелчков мышью на сотни каждый день!
