Gegevens transponeren

[Jos18]

Goedemiddag,

Wat is de functie om de verticale gegevens in kolom A PER "IO-"nr", dit zijn de eerste 10 posities , horizontaal weer te geven.

Bekijk bijlage 297127

 

[VenA]

Met transponeren:d

 

[Jos18]

Zie bijgevoegd Excelbestand met het gewensteBekijk bijlage Excel forum transponeren.xlsx resultaat in kolom B

 

[VenA]

Met een macro

 

[HSV]

Ook een macrocode.

Sub hsv()
Dim sn, j As Long, st
sn = Blad1.Cells(1).CurrentRegion
With CreateObject("scripting.dictionary")
  For j = 2 To UBound(sn)
   st = Split(sn(j, 1))
    .Item(st(0)) = IIf(.Item(st(0)) = "", .Item(st(0)) & sn(j, 1), .Item(st(0)) & " " & sn(j, 1))
  Next j
 Cells(2, 3).Resize(.Count) = Application.Transpose(.Items)
End With
End Sub