Makro kullanarak boş satır ekleme

[uysalmtn]

merhabalar,

1000 satırlık bir sayfada her 20 satırdan sonra bir boş satır eklemek istiyorum. yardımcı olabilirmisiniz? nasıl yapabilirim?

 

[askm]

A sütunu için aşağıdaki kodları deneyin.

Sub askm()
Dim SonSat  As Long
SonSat = Cells(Rows.Count, "A").End(3).Row
For i = 20 To SonSat Step 20
Rows(i).Insert Shift:=xlDown
Next i
End Sub

 

[uysalmtn]

çok teşekkür ederim.

 

[askm]

Rica ederim.