sütunları alt alta satırlara çevirme

[jossihvi11]

İyi günler arkadaşlar,
sorunum örnekte de göreceğiniz üzere 61 sütun ve belirsiz satır var. Ben bu sutün ve satırları düzenleyerek alt alta eklemek istiyorum.
a b c d e
kod beden adet beden adet

a b c
kod beden adet
kod beden adet

şekline çevirmek istiyorum. Yardımlarınız için şimdiden teşekkürler

 

[hamitcan]

Aşağıdaki şekilde dener misiniz ?

Sub Aktar()
x = Sayfa1.[a65536].End(3).Row
y = Sayfa1.Range("a1").End(xlToRight).Column
k = 1
For i = 2 To x
For j = 2 To y Step 2
 k = k + 1
 Sayfa2.Cells(k, 1) = Sayfa1.Cells(i, 1)
 Sayfa2.Cells(k, 2) = Sayfa1.Cells(i, j)
 Sayfa2.Cells(k, 3) = Sayfa1.Cells(i, j + 1)
Next
Next
MsgBox "Bitti."
End Sub

 

[jossihvi11]

evet hocam harika çalışıyor çok teşekkür ederim

 

[webuyeislemleri]

tersi nasıl olur?
A2 ki değer B1 gelsin
Örnek
Ali
Aslan

Ali Aslan

olsun