Çoklu Yatay Tabloyu Dikey Hale Dönüştürme

[farisaga]

Herkese selamlar.
Excel 2019 kullanıyorum. 4 satırdan oluşan ve tek sütunda alt alta sıralanmış olan verilerimi yatay bir hale getirmek istiyorum. Aşağıdaki örnek gibi...
Bu arada; 9 adet çalışma sayfam var ve her birinde yaklaşık 9000 satır bulunuyor.
Yardımcı olursanız çok mutlu olurum.

Orjinal hali :

Kod: [Seç]

A SÜTUNU
------------------------
13:27
Online
Price: 0,014 USD
Price incr.: 0,012 USD
14:56
Online
Price: 0,15 USD
Price incr.: 0,12 USD
19:41
Offline
Price: 1,49 USD
Price incr.: 1,1 USD
20:01
Online
Price: 0,01 USD
Price incr.: 0,004 USD

Olması gereken hali :

Kod: [Seç]

A SÜTUNU | B SÜTUNU | C SÜTUNU         | D SÜTUNU
---------------------------------------------------------------
13:27    | Online   | Price: 0,014 USD | Price incr.: 0,012 USD
14:56    | Online   | Price: 0,15 USD  | Price incr.: 0,12 USD
19:41    | Online   | Price: 1,49 USD  | Price incr.: 1,1 USD
20:01    | Online   | Price: 0,01 USD  | Price incr.: 0,004 USD


[farisaga]

Herkese selamlar.
Excel 2019 kullanıyorum. 4 satırdan oluşan ve tek sütunda alt alta sıralanmış olan verilerimi yatay bir hale getirmek istiyorum. Aşağıdaki örnek gibi...
Bu arada; 9 adet çalışma sayfam var ve her birinde yaklaşık 9000 satır bulunuyor.
Yardımcı olursanız çok mutlu olurum.

Orjinal hali :

Kod: [Seç]

A SÜTUNU
------------------------
13:27
Online
Price: 0,014 USD
Price incr.: 0,012 USD
14:56
Online
Price: 0,15 USD
Price incr.: 0,12 USD
19:41
Offline
Price: 1,49 USD
Price incr.: 1,1 USD
20:01
Online
Price: 0,01 USD
Price incr.: 0,004 USD

Olması gereken hali :

Kod: [Seç]

A SÜTUNU | B SÜTUNU | C SÜTUNU         | D SÜTUNU
---------------------------------------------------------------
13:27    | Online   | Price: 0,014 USD | Price incr.: 0,012 USD
14:56    | Online   | Price: 0,15 USD  | Price incr.: 0,12 USD
19:41    | Online   | Price: 1,49 USD  | Price incr.: 1,1 USD
20:01    | Online   | Price: 0,01 USD  | Price incr.: 0,004 USD


Sorun aşağıdaki kod yardımı ile çözülmüştür.

Kod: [Seç]

Sub transpose()
Set oku = Sheets("sayfa1")
Set yaz = Sheets("sayfa2")
yaz.Range("A2:D20000").ClearContents
ss = oku.Range("A" & Rows.Count).End(xlUp).Row
y = Range("A1:A" & ss)
sat = 2: süt = 1
For i = 1 To UBound(y)
If süt = 5 Then süt = 1: sat = sat + 1
yaz.Cells(sat, süt) = y(i, 1)
süt = süt + 1
Next i
End Sub