kolom horizontaal filteren

[JoostvanDijk]

Goedemorgen,

Ik heb een uitdaging waar ik zelf niet uitkom.

Ik heb een kolom A met meerdere dezelfde nummers en kolom B met allemaal verschillende nummers.
Deze moet ik achter elkaar zien te krijgen voor een csv bestand.
Het zijn alleen 7500 rijen, dus handmatig is het niet te doen.

Hieronder het voorbeeld zoals ik deze nu heb...

Kolom A Kolom B
230594 230594
940045 0.194.5464.2
243767-16 243767
IM0123 209929
IM0123 0209929
IM0123 D80065
IM0177 200/42309P
IM0177 200/42311
IM0177 G15686
IM0177 G33536
IM0177 8534954
IM0191 DC 9047
IM0191 30753

En hier zoals deze moet worden....

Kolom A Kolom B
230594 230594
940045 0.194.5464.2
243767-16 243767
IM0123 209929 0209929 D80065
IM0177 200/42309P 200/42311 G15686 G33536 8534954
IM0191 DC 9047 30753

Kan dit met een formule of op een andere manier..

Alvast bedankt voor de hulp!

 

[OctaFish]

Kun je niet een voorbeeldbestandje meesturen? Dat kijkt wat makkelijker.

 

[JoostvanDijk]

Bekijk bijlage Kolommen in Rijen verwerken.xlsx

Hierbij een deel van het bestand, ik hoop dat deze zo duidelijk is.

Alvast bedankt.

 

[VenA]

Met een macro.

Sub VenA()
ar = Blad1.Cells(1).CurrentRegion
  With CreateObject("scripting.dictionary")
    For j = 1 To UBound(ar)
      .Item(ar(j, 1)) = .Item(ar(j, 1)) & ar(j, 2) & " "
    Next j
    Blad1.Cells(1, 10).Resize(.Count, 2) = Application.Transpose(Array(.keys, .items))
  End With
End Sub

 

[JoostvanDijk]

Goedemorgen VenA,

Dank je voor je mail en oplossing.
Ik heb een macro gemaakt met de text zoals je die gestuurd, maar krijg een foutmelding. (ik weet overigens ook niet exact hoe ik een macro precies toe kan passen). :shocked:

Bekijk bijlage Kolommen in Rijen verwerken.xlsx

Hierbij het complete bestand, zou je eens kunnen kijken of dit de macro veranders voor alle regels en misschien de toepassing van een macro kunnen uitleggen (of als deze ergens anders op het forum staat zoek ik die graag op).

Ik ben echt een leek hierin, alleen heb het echt nodig.

Alvast vriendelijk bedankt!!

 

[VenA]

De code is wat langer geworden omdat het met transponeren niet lukt. (met dank aan @E v R en @snb)

Sub VenA()
ar = Sheets("Blad2").Cells(1).CurrentRegion
  With CreateObject("scripting.dictionary")
    For j = 2 To UBound(ar)
      .Item(ar(j, 1)) = .Item(ar(j, 1)) & ar(j, 2) & " "
    Next j
    For Each it In .keys
      .Item(it) = it & "|" & .Item(it)
    Next
    ar = .items
  End With
  With CreateObject("New:{8BD21D20-EC42-11CE-9E0D-00AA006002F3}")
    .List = ar
    Sheets("Blad3").Cells(1).Resize(UBound(ar)) = .List
  End With
  Sheets("Blad3").Columns(1).TextToColumns , , , , 0, 0, 0, 0, -1, "|"
End Sub

 

[JoostvanDijk]

HELD!! echt heel erg bedankt. Ik kan nu perfect een csv maken en deze inlezen!

Ik was hier echt nooit zelf achter gekomen en ben echt heel erg blij met de hulp.

Ook @E v R en @snb bedankt uiteraard.

 

[VenA]

Er zit nog een bugje in. Ontwikkelingen kan je hier volgen http://www.helpmij.nl/forum/showthread.php/917169-Het-drama-dat-quot-Dictionary-quot-heet-VBA?p=5950343&posted=1#post5950343

Sheets("Blad3").Cells(1).Resize(UBound(ar)[COLOR="#FF0000"] + 1[/COLOR]) = .List

Anders mis je de gegevens van TBA.

 

[E v R]

Meteen toevoegen/gebruiken VenA, top!:thumb: