Boş Satır ekleme

[srdrkzltg]

Merhaba,

Excel de bir liste var ve bu listede her satırın altına 11 tane daha aynı bilgileri içeren satır açmam gerekmektedir, Yani bir satırdaki değerler işlem sonunda 12 satırda aynı olmalı.

Bunu makro ile nasıl yapabilirim.

 

[Korhan Ayhan]

Aşağıdaki kodu deneyiniz.

"A" sütununa göre çalışır. Kendinize uyarlarsınız.

Sub Onbir_Satir_Ekle()
    Dim X As Long, Son As Long
    
    Son = Cells(Rows.Count, 1).End(3).Row + 1
    
    For X = Son To 2 Step -1
        Range("A" & X & ":A" & X + 10).EntireRow.Insert
        Range("A" & X & ":A" & X + 10).Value = Range("A" & X - 1).Value
    Next

    MsgBox "İşleminiz tamamlanmıştır.", vbInformation
End Sub