Excel - Скопіюйте рядки з аркуша 1 на аркуш 2

Проблема

Мені потрібно мати макрос, який буде копіювати рядки з аркуша1 в аркуш 2. Уловлюється з аркуша 1 col A, наприклад, A3 може мати в ньому число 10. Мені потрібно скопіювати цей рядок і вставити його 10 разів на аркуш 2, а потім скопіювати наступний рядок з аркуша 1 А4, і якщо він має 2 в цій колонці, вставте його 2 рази на аркуші 2 і так далі.

Рішення

Я припускаю, що у вас є дані (номери) тільки з A3 вниз

див. наведені нижче дані (це на аркуші1)

А3 - 10

А4 - 2

тепер спробуйте цей макрос і див

 Sub test () Dim r Як діапазон, c As Range, dest Як діапазон Dim j Як довгий, r1 As Range Worksheets ("sheet1") Активувати Set r = Range (Діапазон ("A3"), Діапазон ("A3") .End (xlDown)) Для кожного c In rj = c.Value c.EntireRow.Copy з робочими аркушами ("sheet2") Встановіть dest = .Cells (Rows.Count, "A"). End (xlUp) .Offset (1), 0) Встановити r1 = Діапазон (dest, dest.Offset (j - 1, 0)) r1.PasteSpecial Завершити наступним c application.cutcopymode = false End Sub