Yatay şekilde dataları ay bazında dikeye çevirme

[aykut12344]

Arkadaşlar

Aşağıdaki şekilde bir datam var. aşağıya doğru bir çok müşteri ve aynı müşteri de farklı ürün kodu olacak şekilde 12 aylık datalar yatay şekilde SPSS programından data alıyorum. Ancak bu bana hemen altındaki formatta yani aylar yatay değil alt alta olacak şekilde çevrilmiş şekilde lazım. Pivot ve yatayı dikey çevirmeyle işin içinde çıkamadım.

15 bin satır datam var bu şekilde. (Farklı müşteri ve Ürün kodu bazında)

Yardımcı olabilir misiniz nasıl yapacağımla ilgili ?

Şimdiden teşekkürler

 

[veyselemre]

Sub test()
    ySat = 2
    [r:v].ClearContents
    For sat = 2 To Cells(Rows.Count, 1).End(3).Row
        For sut = 5 To 16
            If Cells(sat, sut) <> "" Then
                Cells(ySat, "R").Resize(, 4).Value = Cells(sat, "A").Resize(, 4).Value
                Cells(ySat, "V").Value = Cells(sat, sut).Value
                ySat = ySat + 1
            End If
        Next sut
    Next sat
End Sub