Belli satırlar arası boşluk bırakmak

[haso_excel]

Merhaba arkadaşlar,

Kullandığım bir excel sayfasında çok fazla satır var. Birinci satırda başlıklar veri ikini satırdan başlıyor. Amacım 2. satırdan başlamak tüm satırlar dolu amacım her satırdan sonra 4 satır insert yapmak nasıl yapabilirim

 

[sailor01]

Satır eklemek

Eğer problemi doğru anladıysam aşağıdaki gibi bir kod yazarak olacak sanırım.


Sub satir_ekle()
Range("A3").Select
Do While ActiveCell.Value <> ""
ActiveCell.EntireRow.Select
For x = 1 To 4
Selection.Insert Shift:=xlDown
Next
Selection.End(xlDown).Select
ActiveCell.Offset(1, 0).Select
Loop
End Sub

 

[ozgretmen]

Dosya ekte...İyi çalışmalar...

Sub ayır()
For i = 3 To [A65536].End(3).Row * 5 Step 5
Rows(i).Select
For x = 1 To 4
Selection.Insert Shift:=xlDown
Next
Next i
End Sub

 

[haso_excel]

Teşekkürler, işlem tamam arkadaşlar