Waarden uit verschillende kolommen in één rij zetten

[ftk]

Hallo,

ik zit met het volgende probleem:
Ik heb een matrix waarvan ik de waarden in een rij wil hebben zonder de lege cellen.
Ik heb een voorbeeldje gemaakt dat te vinden is in de bijlage.
Input is de matrix.
Output is het gewenste resultaat. dit heb ik gedaan door simpelweg de waarden te slepen, maar dit moet handiger kunnen lijkt mij!

Wie kan mij helpen?
Alvast bedankt!

 

[ftk]

Ik heb nog het volgende forum gevonden; hier gaan ze van 6 kolommen naar 5.
Ik wil van 300 kolommen naar 1, zonder de lege cellen.

http://www.helpmij.nl/forum/showthr...lad-met-5-kolommen?highlight=kolommen+een+rij

Ik ben niet goed in VBA, wie kan mij uitleggen wat ik moet doen?

 

[Warme bakkertje]

Sub tst()
For i = 2 To ActiveSheet.UsedRange.Columns.Count
    For ii = 1 To 4
        If Cells(ii, i) <> "" Then sn = sn & Cells(ii, i) & "|"
    Next
Next
Cells(8, 2).Resize(UBound(Split(sn, "|"))) = WorksheetFunction.Transpose(Split(sn, "|"))
End Sub

 

[ftk]

Heel erg bedankt!
Dit scheelt mij zeeën van tijd!!

Ik heb de code aangepast:

For ii = 1 To 5

Omdat er ook kolommen met 4 rijen zijn.