horizontale rijen omzetten naar 1 kolom

[Havana100]

Beste,

Iemand een idee voor een simpele formule ( die je kan doortrekken) om de waarden in de kolommen B tot en met Z, en in de rijen 2 tot en met 366, onder elkaar te plaatsen in (bijvoorbeeld) kolom AE.

of nog de waarde in cel A2 zou moeten komen in cel AE1; Cel B2 in AE2 .... zo verder tot (voor deze rij) Y2 naar cel AE 24, vanaf cel AE 25 zou dan de waarde uit cel B2 moeten komen enz. Echter bij omschakeling naar zomeruur zijn er maar 23 uren (waarden) en bij de overgang naar winteruur zijn er 25 waarden. ( zie voorbeeld) Bekijk bijlage Map2.xlsx

En sowieso weer eens bedankt !

 

[VenA]

Komt wel erg vaak voor deze vraag en er zijn diverse oplossing voor.

Bv.

Sub VenA()
  ar = Sheet1.Cells(1).CurrentRegion
  ReDim ar1(UBound(ar) * UBound(ar, 2), 1)
  For j = 2 To UBound(ar)
    For jj = 2 To UBound(ar, 2)
      If ar(j, jj) <> "" Then
        ar1(t, 0) = ar(j, 1)
        ar1(t, 1) = ar(j, jj)
        t = t + 1
      End If
    Next jj
  Next j
  Sheet1.Cells(1, 40).Resize(t, 2) = ar1
End Sub