Bir sütundaki verileri satırlara çevirme

[relaxim]

Merhaba,
Excelde bir sütunda bulunan verilerimi sütunlara yaymak istiyorum. Örneğin 320 satır olan verileri 8 satırı 8 sütuna bölerek alt alta getirmek istiyorum. Özel yapıştır işlemi tersine çevir ile tek tek yapmam gerekiyor. Şimdide teşekkürler.
ör: 4 sütuna bölme gibi
veri;istenilen
a a b c d
b e f g h
c ı j k l
d m n o p
e
f
g
h
ı
j
k

 

[askm]

Örnek dosya ekleyebilir misiniz?

 

[Korhan Ayhan]

Deneyiniz.

"A" sütunundaki verileri belirleyeceğiniz adım sayısına göre "C" sütunundan itibaren listeler.

Verilerinizin 2. satırdan başladığını varsaydım.

Option Explicit

Sub Satirlari_Sutunlara_Cevir()
    Dim X As Long, Son As Long, Adim As Variant, Satir As Long
    
    Adim = InputBox("Verileriniz kaç adımda bir ayrıştırılsın?", , 8)
    
    If Adim = "" Or Adim = 0 Then Exit Sub
    
    Son = Cells(Rows.Count, 1).End(3).Row
    
    Range("C:AZ").ClearContents
    Satir = 2
    
    For X = 2 To Son Step Adim
        Cells(Satir, 3).Resize(1, Adim) = Application.Transpose(Range("A" & X & ":A" & X + Adim - 1))
        Satir = Satir + 1
    Next

    MsgBox "İşleminiz tamamlanmıştır.", vbInformation
End Sub

 

[relaxim]

Korhan bey çok teşekkürler. Ellerinize sağlık....