• Privacywetgeving
    Het is bij Helpmij.nl niet toegestaan om persoonsgegevens in een voorbeeld te plaatsen. Alle voorbeelden die persoonsgegevens bevatten zullen zonder opgaaf van reden verwijderd worden. In de vraag zal specifiek vermeld moeten worden dat het om fictieve namen gaat.

Kolommen met variabel aantal waarden omvormen tot rijen die beginnen met de header

Status
Niet open voor verdere reacties.

h3rm4n

Nieuwe gebruiker
Lid geworden
24 feb 2019
Berichten
3
Ik wist niet hoe ik het beter kon omschrijven :)

In de bijlagen staan twee bestanden.
Input.xls is zoals ik de data nu heb
en output.xls is zoals ik het wil hebben (om te kunnen importeren)

Ik heb nu dus mijn SKU's (header) als kolom met de waarden (url's voor afbeeldingen) in rijen
maar ik moet dus per rij de sku met één url. Een SKU heeft een variabel aantal waarden
 

Bijlagen

Dat kan vrij eenvoudig met een macro

Zet de code in een module in het bestand input.xlsx en maak een tabje aan met de naam Output. Draai vervolgens de code.
Code:
Sub VenA()
  Dim j As Long, jj As Long, ar
  ReDim ar1(1, 0)
  ar = Sheets("Blad1").Cells(1).CurrentRegion
  For jj = 2 To UBound(ar, 2)
    For j = 2 To UBound(ar)
      If ar(j, jj) <> "" Then
        ar1(0, UBound(ar1, 2)) = ar(1, jj)
        ar1(1, UBound(ar1, 2)) = ar(j, jj)
        ReDim Preserve ar1(1, UBound(ar1, 2) + 1)
      End If
    Next j
  Next jj
  Sheets("Output").Cells(1).Resize(UBound(ar1, 2), 2) = Application.Transpose(ar1)
End Sub
 

Bijlagen

Status
Niet open voor verdere reacties.
Terug
Bovenaan Onderaan