Araya otomatik satır ekleme

[sunexpress]

Merhaba Arkadaşlar,
Yapmak istediğim her 4 satırda bir araya otomatik olarak 2 yeni satır eklemek.eğer yardımcı olabilirseniz sevinirim.kullandığım excel 2007 ve ingilizce.
Teşekkürler.
Örnek dosyayı ekledim.

 

[Necdet]

Merhaba,

Aşağıdaki kodları dener misiniz?

Sub SatirAc()
Dim i As Integer
i = 5
Do
    Rows(i & ":" & i + 1).Insert Shift:=xlDown
    i = i + 6
Loop Until Cells(i, "A") = ""
MsgBox "satırlar açılmıştır..."
End Sub

 

[sunexpress]

Merhaba;

Elinize sağlık.tam istediğim gibi.

Kolay gelsin

 

[sunexpress]

Nejdet Bey,
peki açtığımız boş satırlara bir üstündekinin aynısını nasıl yazdırabiliriz.
aaa
aaa
aaa
aaa


bbb
bbb
bbb
bbb