Как дублировать строки на основе значения ячейки в столбце?
Например, у меня есть диапазон данных, который содержит список чисел в столбце D, и теперь я хочу несколько раз продублировать все строки на основе числовых значений в столбце D, чтобы получить следующий результат. Как я мог скопировать строки несколько раз на основе значений ячеек в Excel?
Повторяющиеся строки несколько раз на основе значений ячеек с кодом VBA
Повторяющиеся строки несколько раз на основе значений ячеек с кодом VBA
Чтобы скопировать и дублировать целые строки несколько раз на основе значений ячеек, вам может помочь следующий код VBA, сделайте следующее:
1. Удерживайте ALT + F11 , чтобы открыть Microsoft Visual Basic для приложений окно.
2. Нажмите Вставить > Модулии вставьте следующий код в Модули Окно.
Код VBA: повторяющиеся строки несколько раз в зависимости от значения ячейки:
Sub CopyData()
'Updateby Extendoffice
Dim xRow As Long
Dim VInSertNum As Variant
xRow = 1
Application.ScreenUpdating = False
Do While (Cells(xRow, "A") <> "")
VInSertNum = Cells(xRow, "D")
If ((VInSertNum > 1) And IsNumeric(VInSertNum)) Then
Range(Cells(xRow, "A"), Cells(xRow, "D")).Copy
Range(Cells(xRow + 1, "A"), Cells(xRow + VInSertNum - 1, "D")).Select
Selection.Insert Shift:=xlDown
xRow = xRow + VInSertNum - 1
End If
xRow = xRow + 1
Loop
Application.ScreenUpdating = False
End Sub
3, Затем нажмите F5 ключ для запуска этого кода, целые строки были дублированы несколько раз на основе значения ячейки в столбце D по мере необходимости.
Копируйте и вставляйте строки указанное количество раз с помощью удобного инструмента - Kutools for Excel
Если вы не знакомы с кодом VBA и не можете самостоятельно правильно изменить параметры в коде. В этом случае Kutools for Excel's Дублирование строк/столбцов на основе значения ячейки Функция может помочь вам копировать и вставлять строки несколько раз на основе значений ячеек всего тремя щелчками мыши.
- Нажмите Кутулс > Вставить > Повторяющиеся строки / столбцы на основе значения ячейки включить эту функцию;
- Выберите Копировать и вставлять строки и укажите ячейки Вставить диапазон и Время повтора отдельно в диалоговом окне.
Лучшие инструменты для офисной работы
Улучшите свои навыки работы с Excel с помощью Kutools for Excel и почувствуйте эффективность, как никогда раньше. Kutools for Excel предлагает более 300 расширенных функций для повышения производительности и экономии времени. Нажмите здесь, чтобы получить функцию, которая вам нужна больше всего...
Вкладка Office: интерфейс с вкладками в Office и упрощение работы
- Включение редактирования и чтения с вкладками в Word, Excel, PowerPoint, Издатель, доступ, Visio и проект.
- Открывайте и создавайте несколько документов на новых вкладках одного окна, а не в новых окнах.
- Повышает вашу продуктивность на 50% и сокращает количество щелчков мышью на сотни каждый день!