meerdere rijen transponeren

[globe]

Ik heb uit een programma een lijst weten te toveren die ik moet gebruiken om te importeren naar een ander programma.

Nadeel is dat de opmaak van de geexporteerde lijst niet correct is.

In de de bijlage een voorbeeld.

Per item krijg ik een rij met gegevens. Item omschrijving, maat, breedte. Alles op 1 rij.

Dit moet omgezet worden naar kolommen.

Item | maat | breedte.

Ik weet zeker dat excel dit kan... maar hoe?
handmatig transponeren is geen optie, het gaat om 1200 regels.
Bekijk bijlage voorbeeld.xlsxBekijk bijlage voorbeeld.xlsx

 

[Leotaxi]

deze geeft resultaat op blad 2


mvg
Leo

 

[globe]

top! daar kan ik wel wat mee.

 

[Leotaxi]

mooi zo, kan je dan even de vraag als opgelost zetten.

mvg
Leo

 

[snb]

of:

Private Sub CommandButton1_Click()
    sn = Blad1.Cells(1).CurrentRegion
    ReDim sp((UBound(sn) - 1) * (UBound(sn, 2) - 1) \ 2, 2)
    
    For j = 0 To UBound(sp) - 1
      x = j \ ((UBound(sn, 2) - 1) \ 2) + 2
      y = j Mod (UBound(sn, 2) - 1) \ 2 + 2
      sp(j, 0) = sn(x, 1)
      sp(j, 1) = sn(x, y)
      sp(j, 2) = sn(x, y + (UBound(sn, 2) - 1) \ 2)
    Next
    
    Blad2.Cells(1).Resize(UBound(sp) + 1, UBound(sp, 2) + 1) = sp
End Sub