Meerdere rijen en kolommen in één rij of kolom

[Nella0808]

Beste Forumleden

Is het mogelijk om de inhoud van meerdere rijen en kolommen in één keer onder (of naast) elkaar te zetten en er 1 kolom (of rij) van te maken?
Dus achter elkaar de waarden van cel A1, B1, C1, D1, E1, A2, B2, B3 enz
Zie bijgaand bestand. Ik hoop op een goede tip!

 

[JEC.]

Het kan heel gemakkelijk met powerquery. Maar hier een optie met een macro

Sub j_v()
jv = Cells(1).CurrentRegion
ReDim ar(UBound(jv) * UBound(jv, 2))
j = 0
 For i = 1 To UBound(jv)
  For ii = 1 To UBound(jv, 2)
   ar(j) = jv(i, ii)
   j = j + 1
  Next
 Next
Cells(1, 10).Resize(UBound(ar)) = Application.Transpose(ar)
End Sub

Met powerquery in bijlage(1 druk op de knop en je hebt de data onder elkaar)

 

[Nella0808]

Bedankt JVeer, ik ben hiermee helemaal geholpen!