Satır Çoğaltma

[caner599]

Arkadaşlar selam;
sorunun özeti,
A1 sütununda Ahmet yazıyor karşısında da B1 sütununda 5 Yazıyor.
A2 sütununda Mehmet yazıyor karşısında da B2 sütununda 7 yazıyor.
Bu şekilde 1600 kişilik bir listem var.
Sıkıntım şu ismin karşısında yazan sayı kadar ismi satır satır çoğaltmam gerekiyor.
yani;
Ahmet
Ahmet
Ahmet
Ahmet
Ahmet
Mehmet
Mehmet
Mehmet
Mehmet
Mehmet
Mehmet
Mehmet

Gibi.

Bu kopyala yapıştır zahmetinden beni kurtaracak formülü bilen arkadaş var mıdır aranızda.

Teşekkürler.

 

[caner599]

çözdüm arkadaşlar teşekkürler.

 

[hamitcan]

Sub SatirCogalt()
    Set S1 = Sheets("Sayfa1")
    Set S2 = Sheets("Sayfa2")
    S2.Columns(1).Clear
    For i = 1 To S1.[a65536].End(3).Row
    x = S2.[a65536].End(3).Row
    For j = 1 To S1.Cells(i, 2)
        S2.Cells(x + j, 1) = S1.Cells(i, 1)
    Next
    Next
End Sub