makro ile belli sayıda tekrar yaz

[can-can]

merhaba arkaslar yardımlarınızı bekliyorum...
ornek:
http://dosya.co/0qhzj13b3n64/mokro_ile_belli_sayıda_tekrar_yaz.xlsx.html

 

[Ömer]

Merhaba,

Bu şekilde deneyin.

Sub Tekrar_Yaz()
    
    Dim i As Long, s1 As Long, s2 As Long
    
    Range("K:K").ClearContents
    
    s1 = 2 'tekrar sayısı
    s2 = 1 'verilerin yazılacağı ilk satır
    For i = 1 To Cells(Rows.Count, "A").End(xlUp).Row
        Cells(s2, "K").Resize(s1, 1) = Cells(i, "A")
        s2 = s1 + s2
    Next i
    
End Sub

.