Listedeki veriler yan sütunlara aktarılacak.

[simetri.]

Merhabalar.

Sütun B Sütun G Sütun H
111 222 333
222 333 444
333 444
444

Yukarıdaki şekildeki gibi bir aktarma yapılması gerekiyor.
Ekte durum daha net gözükecektir. Yardımlarınızı bekliyorum.

 

[Ömer]

Merhaba,

Bu şekilde deneyin.

Sub Duzenle()
 
    Dim j As Long, i As Long, sut As Integer, sat As Long, a As Long
 
    Range(Cells(3, "G"), Cells(Rows.Count, Columns.Count)).ClearContents
 
    sut = 7: a = 3
    For j = 1 To WorksheetFunction.CountA(Range("B3:B" & Rows.Count))
        sat = 3
        For i = a To Cells(Rows.Count, "B").End(xlUp).Row
            Cells(sat, sut) = Cells(i, "B")
            sat = sat + 1
        Next i
        sut = sut + 1: a = a + 1
    Next j
 
End Sub

.

 

[simetri.]

Teşekkür ederim, Sayın Ömer Bey

Kod çok güzel olmuş.