Datayı çoğaltma

[shiva]

Merhaba arkadaşlar,
Acil kim cevap verebilecekse süper olur.
Ekteki dosyada 5-6 satırlık bir örnek yaptım. Elimde 1700 satırlık bir data mevcut. Sol kolonda bulunan datayı yanında belirtilen rakam kadar alt alta çoklamam gerekiyor. Nasıl yapabilirim?
Teşekkürler

 

[Zeki Gürsoy]

Merhaba,

Eski bir üyemiz olarak soru başlığı seçiminiz hoş olmamış. Bu kez ben değiştirdim.

Aşağıdaki proseduru deneyin. "A" sütundaki veriler "G" sütununa çoğaltılıyor.

Sub test()
Dim L1 As Long, i As Integer, L2 As Long

    For L1 = 1 To 5 [COLOR=DarkGreen]'>> 5 i, 1700 yapabilirsiniz..[/COLOR]
        For i = 1 To Cells(L1, "a").Offset(0, 1).Value
            L2 = [g65000].End(3).Row + 1
            Cells(L2, "g") = Cells(L1, "a")
        Next
    Next

End Sub