Hulp met splitsen van cel met Alt+enter(s)

[Baxter]

Goedemorgen,

Hopelijk kan/ wil een van jullie eens meekijken/ helpen...
Ik heb een bestand met 2 kolommen (Ref.nr en GTIN).
De kolom ref.nr bevat 1 waarde in cel, kolom GTINs bevat meerdere waardes (alt+enter) per cel.



Graag wil ik de GTINs splitsen naar een eigen cel met het daarbijhorende ref.nr.



Is hier een eenvoudige formule of module voor (te maken)?
Zie bijgevoegd een voorbeeldbestand.

Vast veel dank voor het meedenken/ helpen.

Gr Baxter

 

[jkpieterse]

Makkie middels Gegevens, Van Tabel.

 

[VenA]

Is met een macro vrij eenvoudig op te lossen.

Sub VenA()
  Dim j As Long, jj As Long, t As Long, ar, x
  ar = Cells(1).CurrentRegion
  ReDim ar1(1, 0)
  For j = 2 To UBound(ar)
    x = Split(ar(j, 2), vbLf)
    For jj = 0 To UBound(x)
      ar1(0, t) = "'" & ar(j, 1)
      ar1(1, t) = "'" & x(jj)
      t = t + 1
      ReDim Preserve ar1(1, t)
    Next jj
  Next j
  Cells(1, 5).Resize(t, 2) = Application.Transpose(ar1)
End Sub

Met powerquery kan het ook vrij eenvoudig. [EDIT] Wat ook in #2 staat.

 

[Baxter]

Beste jkpieterse en VenA,

Fascinerend! Je wilt niet weten hoe lanng ik gisteren heb zitten stoeien...
Hartstikke bedankt beide oplossingen werken.

@jkpieterse: ken de functie Gegevens, van Tabel niet.....
Kan je aangeven hoe je dit hebt gedaan (Invoegen tabel, Gegevens Uit tabel, dan in Power Query naar transformeren en dan.....)
Ga me straks eens verdiepen in de wereld van Power Query, mocht je nog leuk referentie materiaal hebben, hou ik me aanbevolen!

Dank dank dank

 

[jkpieterse]

De stappen zijn niet zo lastig.
1. Gegevens, Van Tabel/bereik
2. Klik op tweede kolom, kies Kolom Splitsen, op schedingsteken. ALs het goed is "ziet" Powerquery dat er alt+enters in staan, anders moet je in het dialoogvenster "Splitsen met speciale tekens" aanvinken en kiezen voor Regelterugloop.
3. Nu splitst die tweede kolom zich in een vooraf onbekend aantal nieuwe kolommen die je onder elkaar wilt hebben met daarnaast de waarde uit kolom 1. Klik op Kolom 1 en klik op de tab Transformeren op de knop Draaitabel opheffen voor kolommen en kies "Draaitabel voor andere kolommen opheffen"
4. Verwijder de extra kolom (middelste), die is overbodig.
5. Kies (tabje STartpagina) "Sluiten en laden", "Sluiten en laden naar" en bedenk in het volgende venster waar je deze gegevens witl gebruiken (kan dus ook rechtstreeks de bron van een draaitabel zijn)

 

[Baxter]

Ik had het in de tussentijd (ik wilde het snappen) al kunnen reproduceren.
Maar nogmaals dank, dank, dank!