Excel скопировать и вставить строки с помощью цикла

Question

мой квест о попытке скопировать и вставить 4 строки (4-7) под каждой строкой для всего листа, возможно, используя цикл. Я вставил скопированные строки в строки 8 и 13 в качестве примера (я хотел бы иметь возможность сделать это для оставшегося листа, пока строки не станут пустыми). Мы высоко ценим Ваш опыт.

введите описание изображения здесь

Answer 1

Для реализации:

1. Создать второй лист (в моем коде ссылка Sheet2)
2. Вставьте строки на этом листе, которые должны быть вставлены на первый лист
3. Запуск макроса

---

Option Explicit

Sub EnterRows()

Dim ws As Worksheet: Set ws = ThisWorkbook.Sheets("Sheet1") '<-- Update

Dim i As Long, LR As Long, myRange As Range

LR = ws.Range("A" & ws.Rows.Count).End(xlUp).Row
Set myRange = ThisWorkbook.Sheets("Sheet2").Range("1:4")

Application.ScreenUpdating = False
    For i = LR To 2 Step -1
        myRange.Copy
        ws.Range("A" & i + 1).Insert xlDown
    Next i
Application.ScreenUpdating = True

End Sub