Bir Satırı Üç Satır Yapmak

[ahmetalb07]

Merhaba Arkadaşlar,
Derdimi fotoğrafla daha iyi anlatacağımı düşünüyorum. Üsteki 2 Satır gibi toplam 5000 satırlık tabloyu nasıl aşağıdaki gibi 6 satırlık hale getirebilirim.
İlginiz için şimdiden teşekkür ederim.

 

[ÖmerBey]

Merhaba,
Aşağıdaki makro kodunu deneyiniz, G sütunundan itibaren verilerinizi düzenler.

Sub Kod()
sat = 3
For a = 3 To Range("A65500").End(3).Row
    Cells(sat, "G") = Cells(a, "A")
    Cells(sat, "H") = "A"
    Cells(sat, "I") = Cells(a, "B")
    Cells(sat, "J") = Cells(a, "E")
    
    Cells(sat + 1, "G") = Cells(a, "A")
    Cells(sat + 1, "H") = "B"
    Cells(sat + 1, "I") = Cells(a, "C")
    Cells(sat + 1, "J") = Cells(a, "E")
    
    Cells(sat + 2, "G") = Cells(a, "A")
    Cells(sat + 2, "H") = "C"
    Cells(sat + 2, "I") = Cells(a, "D")
    Cells(sat + 2, "J") = Cells(a, "E")
    
    sat = sat + 3
Next
End Sub

 

[ahmetalb07]

Hocam çok çok çok teşekkür ederim.

Beni çok büyük bir zahmetten kurtardınız.