Her dolu satırdan sonra boş satır açmak

[unur]

Merhaba arkadaşlar;
Benim 500 satırlık bir listem var.Ben bu listemi bir dolu bir boş satır şeklinde yapmak istiyorum.Kısacası her dolu satırın altına yeni boş bir satır açmak istiyorum.En kısa zamanda nasıl yapılabilir?
Teşekkürler

 

[mehmett]

Aşağıdaki kodla yapmayı deneyin,

Sub Makro1()
For x = [a65536].End(3).Row To 2 Step -1
Cells(x, 1).EntireRow.Insert
Next
End Sub

 

[unur]

Teşekkürler Mehmet bey;
Bu arada cevabı okurken farkettim.Açtığım başlıkla soru birbirine ters nasıl düzeltileceğini bilmiyorum.İleride arama yaparak yararlanmak isteyen arkadaşları yanıltmış olmayalım düzeltme imkanı varsa iyi olur diye düşünüyorum

 

[mehmett]

Evet sorduğunuz soru ile kullandığınız başlık farklı. Ben de cevap gönderdikten sonra farkettim bunu ve hemen cevabımı kontrol ettim acaba yanlış mı cevapladım diye.

Kontrol ettikten sonra başlığın hatalı olduğunu gördüm ama acil bir işim çıktığı için size söylemeye fırsat bulamadım. Şimdi düzelttim başlığı.