Waardes in rijen rechttrekken. Hoe dit te doen?

[Pinoenzo]

Ik heb op het werk een rapportage tool die niet helemaal lekker werkt.
Normaliter staat en bij 1 persoon 3 waardes onder elkaar in 1 kolom.
Het is mij gelukt om per waarde een kolom te maken, alleen in deze tool kom ik niet verder.
Het resultaat komt er dan uit te zien zoals onderstaande afbeelding.

Hoe krijg ik voor elkaar in excel om deze waardes naast elkaar te krijgen ipv trapsgewijs?

 

[Cobbe]

Selecteer het tabelletje en via selecteren - selecteren speciaal - lege waarden - verwijderen - cellen naar boven verplaatsen is dat zo gepiept.

 

[Cobbe]

Het kan natuurlijk ook via een macro'tje:

Sub cobbe()
For x = 1 To Range("A65500").End(xlUp).Row
    For Each cl In Range("a1:d" & Range("A65500").End(xlUp).Row)
        If cl = "" Then cl.Delete Shift:=xlUp
    Next
Next
End Sub

Het bereik dient dan wel aangepast te worden aan de situatie.

 

[Pinoenzo]

Cobbe, bedankt voor jouw snelle reactie.

:thumb:

 

[Warme bakkertje]

@ Cobbe

Met XL2007 en XL2010 in de omloop is het gevaarlijk om

Range("A65500").End(xlUp).Row

te gebruiken.
Je zou wel eens op verassende uitkomsten kunnen stuiten.
Gebruik daarom om ongewenste resultaten te vermijden beter

Range("A" & Rows.Count).End(xlUp).Row

:thumb:

 

[Cobbe]

Alle verbeteringen en tips zijn welkom.

Maar op al die jaren ben ik nog nooit iemand tegengekomen op het forum die een bestand in gebruik had met meer dan 65500 rijen dus....

Maar je hebt gelijk ik zou die vastgeroestte gewoonte moeten ombuigen.
Er zijn zo van die gewoontes die er moeilijk uit gaan.