waarden uit kolom A verplaatsen naar een andere kolom met telkens 3 lege rijen ertuss

[Havana100]

beste,

iemand een idee hoe ik, in het voorbeeld, de waarde in cel A1 in Cel G1 kan plaatsen EN daarna de cel A2 in Cel G5, de waarden uit cel A3 in cel G9 enz. Graag een formule die je gewoon kan doortrekken want er zijn ongeveer een 10.000 waarden in cel A.

 

[VenA]

Bv

=ALS(REST(RIJ();4)=1;INDEX($A$1:$C$6;INTEGER(RIJ()/4)+1;KOLOM()-6);"")

 

[snb]

Tenzij je beoogt de werking van het werkboek te vertragen zou ik voor een eenmalige aktie geen formules gebruiken maar VBA.

Sub M_snb()
  sn = Sheet1.Cells(1).CurrentRegion
  ReDim sp(UBound(sn) * 4, UBound(sn, 2))
  
  For j = 1 To UBound(sn)
     For jj = 1 To UBound(sn, 2)
       sp(4 * (j - 1), jj - 1) = sn(j, jj)
     Next
  Next
  
  Cells(1, 7).Resize(UBound(sp) + 1, UBound(sp, 2) + 1) = sp
End Sub

 

[Havana100]

Beste,

Werkt allebei perfect hoor ! Bedankt !!