Upload file maken

[alexander321]

Ik zou graag op tabblad 'Upload' een tabel krijgen om in te kunnen gebruiken.
Ik krijg de data aangeleverd zoals op tabblad data.
Wellicht is er iemand die een VBA script (macro) hiervoor kan maken?
Nu doe ik alles met transponeren, maar hoe groter de lijst wordt, des te meer werk ik heb.
Alvast dank!

 

[jverkerk]

Zoiets met power query

 

[snb]

met VBA

Sub M_snb()
   sn = Sheet1.Cells(1).CurrentRegion
   ReDim sp(UBound(sn) * UBound(sn, 2), 2)
   
   For j = 2 To UBound(sn)
     For jj = 2 To UBound(sn, 2)
       If sn(j, jj) <> "" Then
           sp(n, 0) = sn(j, 1)
           sp(n, 1) = sn(1, jj)
           sp(n, 2) = sn(j, jj)
           n = n + 1
        End If
    Next
  Next
  Sheet2.Cells(1).Resize(n, 3) = sp
End Sub

 

[AHulpje]

Of met een macrootje:

 

[snb]

Alternatieve aanpak:

Sub M_snb()
   sn = Sheet1.Cells(1).CurrentRegion
   
   For j = 2 To UBound(sn)
     For jj = 2 To UBound(sn, 2)
       If sn(j, jj) <> "" Then c00 = c00 & vbLf & sn(j, 1) & "|" & sn(1, jj) & "|" & sn(j, jj)
    Next
  Next
  
  sp = Split(Mid(c00, 2), vbLf)
  With Sheet2.Cells(1)
      .Resize(UBound(sp) + 1) = Application.Transpose(sp)
      .CurrentRegion.TextToColumns , , , , 0, 0, 0, 0, -1, "|"
  End With
End Sub