Veri Tekrar Ettirme

[conkz]

Merhaba,

Bir çalışmam için belirli hücredeki değeri alt alta listelemem gerekiyor. Örneğin A Sütununda İsim yazarken B sütununda o isimin kaç kez alt alta tekrar etmesi gerekiyor.

İsim Tekrar
Ahmet 30
Ali 25

Öyle bir şey olmalı ki boş bir sütunda alt alta 30 kere Ahmet, altından devam ederek de 25 adet Ali yazacak. Makro ile kolay bir yolu var mıdır diye danışmak istedim yoksa yaklaşık 500 isim için tek tek uğraşmak zorunda kalacağım.

Yardımlarınız için teşekkürler, ekte örnek olarak bir dosya iletiyorum.

 

[takin]

şöyle bir kod işini görür

Sub tekraryaz()
satsay = Cells(65536, 1).End(xlUp).Row
[c:c].ClearContents: s = 2
For Each isim In Range("a2:a" & satsay)
    kackez = isim.Offset(0, 1)
    For i = 1 To kackez
        Cells(s, 3) = isim: s = s + 1
    Next i
Next isim
End Sub

 

[conkz]

Tamamen işimi gördü hem de Saatlerce uğraşacağım şey 10 saniyede bitti. Teşekkür ederim çok.