otomatik boşluk atma

[dersmx]

merhaba arkdaşlar
sorum şu
excelde şu şekilde verilerim var

ramazan        2003
               2004
               2005
abdullah       2003
               2004
               2005
ahmet
mehmet
cansu

yapmak istediğim aynı ramazan ve abdullahta olduğu gibi ahmet mehmet ve cansu ya da 2003,2004,2005 satırlarını otomatik olarak ekleyebilmek. Nasıl yapabilirim?

 

[hamitcan]

1-İlgili aralığı seçin.
2-Özel Git menüsünden boşlukları seçin.
3-"ramazan" isminden sonra gelen hücrenin referansını "=A2" şeklinde yazın.
4-Ctrl+enter tuşlarına basın.

 

[Recep İpek]

Eğer satır açarak verileri işlemek istiyorsanız makro ile yapılmış çözüm ektedir.

Sub SatırAc()
son = [a65536].End(3).Row * 5
veri = Array("2003", "2004", "2005", "2006", "2007", "Toplam")
For i = 2 To son Step 6
    For j = 1 To 5
        Cells(j + i, "b").Value = veri(0)
            Rows(j + i).Insert Shift:=xlDown
        Cells(j + i, "b").Value = veri(j)
    Next j
Next i
MsgBox "Bitti"
End Sub

 

[dersmx]

Cevaplar için her ikinize de teşekkürler. Saygılarımla