Geavanceerd samenvoegen kolommen

[excel85]

Beste mensen,

Ik probeer een formule te vinden die mij kan helpen om meerdere regels in een bestand van 14MB op de juiste manier samen te voegen.
De regels bestaand uit een "artikelnummer| de taal | aanduiding voor het tekstregel nummer | de betreffende tekstregel" (max 50 karakters).
Ik wil graag "artikelnummer| de taal| samengevoegde tekstregels". De bedoeling is dat Excel herkent welke regels bij elkaar horen en samengevoegd moeten worden in een cel.

voorbeeld

10000 | DAN | 1 | tekstregel
10000 | DAN | 2 | tekstregel
10000 | ENG | 1 | tekstregel
10000 | ENG | 2 | tekstregel

wens

1000 | DAN | "tekstregel 1" & "tekstregel 2"
1000 | ENG | "tekstregel 1" & "Tekstregel 2"

voorbeeld bestand Bekijk bijlage voorbeeld samenvoegen.xlsx


Wie kan mij de oplossing bieden?.
Bij voorbaat dank voor de genomen moeite!

 

[gelens]

Excel 85

Probeer het eens met :

=A1&" , "&B1&" , "&C1&" , "&D1

De formule naar beneden kopieeren en de gehele kolom als waarde kopieeren.

 

[excel85]

Bedankt voor het meedenken, echter gaat het om meerdere tekst regels die in 1 cel moeten komen.

 

[snb]

Waaarvoor wil je dit (meestal wordt nl. de omgekeerde vraag gesteld) ?

Sub M_snb()
    sn = Cells(1).CurrentRegion
    
    With New dictionary
      For j = 1 To UBound(sn)
         .Item(sn(j, 1) & sn(j, 2)) = IIf(IsEmpty(.Item(sn(j, 1) & sn(j, 2))), sn(j, 1) & "|" & sn(j, 2) & "|", .Item(sn(j, 1) & sn(j, 2))) & sn(j, 4) & " "
      Next
      Cells(1, 10).Resize(.Count) = Application.Transpose(Filter(.Items, ""))
    End With
End Sub

 

[excel85]

Waaarvoor wil je dit (meestal wordt nl. de omgekeerde vraag gesteld) ?

Sub M_snb()
    sn = Cells(1).CurrentRegion
    
    With New dictionary
      For j = 1 To UBound(sn)
         .Item(sn(j, 1) & sn(j, 2)) = IIf(IsEmpty(.Item(sn(j, 1) & sn(j, 2))), sn(j, 1) & "|" & sn(j, 2) & "|", .Item(sn(j, 1) & sn(j, 2))) & sn(j, 4) & " "
      Next
      Cells(1, 10).Resize(.Count) = Application.Transpose(Filter(.Items, ""))
    End With
End Sub

Bedankt voor je reactie. Ik wil een bestand exporteren uit een ERP systeem en deze importeren in een CMS die werkt met een ander format.
Helaas weet ik niet hoe ik deze formule toe moet passen. Kan je me vertellen waar ik de informatie daarover kan vinden?

 

[Haije]

excel85,

snb heeft een macro voorgesteld; die moet je in de Visual Basic Editor laden en dan runnen.
In deze bijlage heb ik twee kolommen extra gebruikt: E en F
In kolom E wordt bepaald dmv "nvt" of "deze" bepaalt wat steeds de laatste regel van een groep is
In kolom F worden de teksten samengevoegd.

Door te filteren op kolom E, waarde "deze" zie je het gewenste (?) resultaat.

 

[Haije]

nu met spaties

shirley,

hier een versie die ook nog een spatie plaatst tussen de verschillende tekst bestanddelen

 

[excel85]

shirley,

hier een versie die ook nog een spatie plaatst tussen de verschillende tekst bestanddelen

Mijn dank is groot! :thumb: