veri derleme

[jossihvi11]

İyi günler arkadaşlar,

Elimde hazır bir liste var fakat uzun olduğu için örnek dosya yüklüyorum sadece.
Sayfa 1 de A sütununda isimler var. B sütununda da tekrar sayıları var. Yapmak istediğim Sayfa1 de bulunan listeyi sayfa 2 de alt alta B sütununda bulunan değerler kadar tekrarlayarak alt alta listelemek istiyorum. Nasıl yapabilceğim hakkında yardımcı olursanız çok sevinirim. İlgilenen bütün arkadaşlara şimdiden çok teşekkür ederim..

 

[hamitcan]

Sub AktarDagit()
Sayfa2.[a:b].Clear
c = 1
With Sayfa1
For i = 2 To .[a65536].End(3).Row
If .Cells(i, 2) = 0 Then GoTo 10
For j = 1 To .Cells(i, 2)
c = c + 1
Sayfa2.Cells(c, 1) = .Cells(i, 1)
Sayfa2.Cells(c, 2) = j
Next
10
Next
End With
End Sub