Hücrelerdeki değerleri istenilen sayı kadar kopyalama

[kdelikara]

Merhaba,
Elimdeki excel dosyasında sadece 1 sütun ve bu sütun içerisinde 2000 civarı veri var. Yapmam gereken her veriyi istenilen sayı (bana gereken 12) kadar aşağıya kopyalamak.
Örnek
1
2
3
4
5
----------
1
(alta doğru 11 adet daha 1)
2
(alta doğru 11 adet daha 2)
..
..

Teşekkürler

 

[Korhan Ayhan]

Merhaba,

Aşağıdaki kodu denermisiniz.

Option Explicit
 
Sub KOPYALA()
    Dim X As Long
    
    Application.ScreenUpdating = False
    
    For X = Cells(Rows.Count, 1).End(3).Row To 2 Step -1
        Range("A" & X + 1 & ":A" & X + 11).EntireRow.Insert
        Range("A" & X & ":A" & X + 11).FillDown
    Next
 
    Application.ScreenUpdating = True
    
    MsgBox "İşleminiz tamamlanmıştır.", vbInformation
End Sub

 

[kdelikara]

Tam olarak istediğim şey, çok teşekkür ederim.

 

[Carpintero]

Sayın hocam
kod ayırdığı veri türlerinin arasına 3 adet boş satır ekleyebilir mi?

1
1
1
boşluk
boşluk
boşluk
2
2
2 gibi