Waarden dupliceren

[CSRQ]

Beste allen,

ik heb een kolom (A) met getallen waarvan ik die graag 4x onder elkaar wil zien, dus in principe zo:

Kolom (A) Kolom (B)
1234--------1234
5678--------1234
9101--------1234
--------------1234
--------------5678
--------------5678
--------------5678
--------------5678

Maar dit lijkt me nog al omslachtig om handmatig te doen, hoe kan ik dit in excel snel doen.
Zie ook voorbeeldsheet bijgevoegd.

Bekijk bijlage Map1.xlsx

 

[VenA]

In C2 en verder naar beneden.

=INDEX($A$2:$A$11;AFRONDEN.NAAR.BOVEN((RIJ()-1)/4;0))

 

[Haije]

zo?

Macro's toestaan en op de knop drukken

 

[CSRQ]

Bedankt voor de macro! Gelukt!

 

[Ginger]

De waardes uit kolom A nog 3x kopiëren en onder elkaar zetten en tot slot sorteren, lijkt me niet zo'n enorme klus toch?

 

[VenA]

@Ginger, Doe ik zelf meestal ook. Zeker als je een beetje handig bent met sneltoetsen dan gaat het vaak sneller dan 'even' code maken of een formule/code testen. Jouw idee toch even in een macro gezet.:d

Sub vermenigvuldig()
  Set r = Columns(1).SpecialCells(2).Offset(1).SpecialCells(2)
  r.Copy Cells(2, 3).Resize(r.Rows.Count * ([C1] + 1))
  Columns(3).Sort [C1], , , , , , , xlYes
End Sub

 

[HSV]

Of:

Sub hsv()
 Cells(1).CurrentRegion.Offset(1).Name = "bereik"
 Cells(1, 3).Resize([counta(bereik)*4]) = Application.Transpose(Split(Join([transpose(rept(bereik&"|",4))]), "|"))
 Application.Names("bereik").Delete
End Sub