Alt alta olan verileri yan yan sıralamak

[pasha22]

Merhabalar,
Alt alta olan 4 lü hücredeki verileri yan yana nasıl sıralayabilirim?
Örnek;
1 2 3 4
5 6 7 8
9 10 11 12
şeklindeki verileri,

1 2 3 4 5 6 7 8 9 10 11 12

şeklinde nasıl dizebilirim ( her bir veri ayrı hücrede)

Saygılarımla.

 

[veyselemre]

Sub test()
    al = Cells.CurrentRegion.Rows.Value
    Cells.CurrentRegion.ClearContents
    For i = 1 To UBound(al)
        For ii = 1 To UBound(al, 2)
            If al(i, ii) <> "" Then
                sut = sut + 1
                Cells(1, sut).Value = al(i, ii)
            End If
    Next ii, i
End Sub

 

[pasha22]

Teşekkür ederim