Добрый день! Нужно вставить 2 пустые строки, только перед ячейками с данными, в столбце "A" Нужен цикл, поскольку строк много Прошу помочь с решением. Заранее благодарен
Юрий М, не смотрел ваш файл, но уж поскольку трудился - мой вариант
Код
Sub RowsInsert()
Dim Cel As Range
Set Cel = Cells(Rows.Count, 1)
Do
Set Cel = Cel.End(xlUp)
If Cel.Row = 1 Then Exit Do
Cel.Resize(2).EntireRow.Insert
Loop
End Sub
Sub qqq()
Dim r&
r = 1
With ActiveSheet
Do While r <= .UsedRange.Rows.Count
If Len(.Cells(r, 1)) > 0 Then .Rows(r + 1 & ":" & r + 2).Insert: r = r + 2
r = r + 1
Loop
End With
End Sub