Excel - Toplu satır ekleme sorunu

Merhabalar,

Excel'de bir sütunda binlerce isim mevcut. Her isim arasında tek satır boş. Ben bu tek boş satırları 2 ya da 3 boş satır olarak arttırmak istiyorum, bunu toplu olarak yapabilmenin yolunu bilen var mıdır ?

Örnek:

ayşe

fatma

melis

İstediğim:

ayşe


fatma


melis


şeklinde olacak. Yani her 2 isim arasında tek satır yerine 2 satır ya da 3 satır yapmam gerekiyor. Teşekkürler

Dosya özel değilse verin istediğiniz şekilde yapayım.

ilginiz için teşekkür ederim özel bir liste değil ancak sürekli yenilenecek bir liste, bir imacros için lazım. Ondan dolayı nasıl yapıldığını ögrenme şansım varsa daha güzel olur çünkü sürekli lazım bu bilgi

hocam tembel işi önereyim.
Macro manager programı kur. Makro kaydet bas. İlk eklemeyi klavyeye ile yap.sürekli döngü çalıştır

Dim aLbaTRos As Integer
    [A2].Select
    aLbaTRos = 3
    While ActiveCell.Value <> ""
        ActiveSheet.Rows(ActiveCell.Row & ":" & _
        aLbaTRos + ActiveCell.Row - 1).Insert Shift:=xlDown
        ActiveCell.Offset(aLbaTRos + 1, 0).Select
    Wend
    aLbaTRos = Empty

8 Satır Ekliyor İşini Görecektir.

çok teşekkür ederim ancak bu kodu nereye uygulayacağım ? Excelle pek aram yokta

2 satır eklemek için bu kodları kullanabilirsiniz;

Sub Emre()
    i = 1
    While i <> "" And Cells(i, 1) <> ""
        If Cells(i, "A") <> "" Then
            Rows(i + 1).Insert
            i = i + 3
        End If
    Wend
    i = Empty
End Sub

Dosyayı bu linkten indirebilirsiniz;
http://www.dosya.tc/server38/ssywwj/2sat_rekle.rar.html

En kolay yol, Veri den filtreyi seçin, ardından oluşan listelerden isim olanı tıklayın ve en alttan boş olanları gizleyin seçeneği ile toplam 6 saniyenizi alır.