Як продублювати рядки на основі значення комірки в стовпці?
Наприклад, у мене є діапазон даних, який містить перелік чисел у стовпці D, і тепер я хочу кілька разів продублювати цілі рядки на основі числових значень у стовпці D, щоб отримати такий результат. Як я можу скопіювати рядки кілька разів на основі значень комірок у Excel?
Дублюйте рядки кілька разів на основі значень комірок за допомогою коду VBA
Дублюйте рядки кілька разів на основі значень комірок за допомогою коду VBA
Щоб скопіювати та продублювати цілі рядки кілька разів на основі значень комірок, вам може допомогти наступний код VBA, зробіть так:
1. Утримуйте клавішу ALT + F11 ключі, щоб відкрити Microsoft Visual Basic для додатків вікна.
2. Клацання Insert > Модуліта вставте наступний код у Модулі Вікно
Код 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 для Excel
Якщо ви не знайомі з кодом VBA і не можете правильно змінити параметри в коді самостійно. У цьому випадку Kutools для Excel's Повторювані рядки/стовпці на основі значення клітинки Функція може допомогти вам копіювати та вставляти рядки кілька разів на основі значень клітинок лише трьома клацаннями.
- Натисніть Кутулс > Insert > Повторювані рядки/стовпці на основі значення комірки щоб увімкнути цю функцію;
- Потім виберіть Скопіюйте та вставте рядки і вкажіть клітинки Вставити діапазон та Час повторення окремо в діалоговому вікні.
Найкращі інструменти продуктивності офісу
Покращуйте свої навички Excel за допомогою Kutools для Excel і відчуйте ефективність, як ніколи раніше. Kutools для Excel пропонує понад 300 додаткових функцій для підвищення продуктивності та економії часу. Натисніть тут, щоб отримати функцію, яка вам найбільше потрібна...
Вкладка Office Передає інтерфейс із вкладками в Office і значно полегшує вашу роботу
- Увімкніть редагування та читання на вкладках у Word, Excel, PowerPoint, Publisher, Access, Visio та Project.
- Відкривайте та створюйте кілька документів на нових вкладках того самого вікна, а не в нових вікнах.
- Збільшує вашу продуктивність на 50% та зменшує сотні клацань миші для вас щодня!