meerdere kolommen onder elkaar zetten

[Luke233]

Beste excel forum leden,

ik moet een inlees bestand maken voor een WMS systeem met artikelen waar soms meerdere dozen met aparte EAN codes achter vermeld staan. (ong. 1200 artikelen..)
de EAN codes moeten onder elkaar komen te staan met de artikel nummers en omschrijving per EAN code vermeld.

zie voorbeeld bestand.

is hier een makkelijkere manier voor dan knippen plakken?

alvast bedankt!

 

[VenA]

Met een macro moet dat wel lukken. De uitkomst komt op 'Blad2'

Sub VenA()
  ar = Sheets("Blad1").Cells(1).CurrentRegion
  ReDim ar1(5, 0)
  For j = 2 To UBound(ar)
    For jj = 3 To UBound(ar, 2) Step 4
      If ar(j, jj) = 0 Then Exit For
      ar1(0, t) = ar(j, 1)
      ar1(1, t) = ar(j, 2)
      ar1(2, t) = "'" & ar(j, jj)
      ar1(3, t) = ar(j, jj + 1)
      ar1(4, t) = ar(j, jj + 2)
      ar1(5, t) = ar(j, jj + 3)
      t = t + 1
      ReDim Preserve ar1(5, t)
    Next jj
  Next j
  Sheets("Blad2").Cells(1).Resize(t, 6) = Application.Transpose(ar1)
End Sub

 

[Luke233]

Bedankt voor je antwoord VenA. deze werkt prima!