• Privacywetgeving
    Het is bij Helpmij.nl niet toegestaan om persoonsgegevens in een voorbeeld te plaatsen. Alle voorbeelden die persoonsgegevens bevatten zullen zonder opgaaf van reden verwijderd worden. In de vraag zal specifiek vermeld moeten worden dat het om fictieve namen gaat.

Waarden dupliceren

Status
Niet open voor verdere reacties.
C

CSRQ

Gebruiker
Lid geworden
26 apr 2018
Berichten
24
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
 
In C2 en verder naar beneden.

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

Macro's toestaan en op de knop drukken
 

Bijlagen

  • Map1 hs.xlsm
    17,8 KB · Weergaven: 32
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?
 
@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

Code: 
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
 

Bijlagen

  • Map1.xlsb
    147,3 KB · Weergaven: 25
Of:
Code: 
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
 
Laatst bewerkt:
Status
Niet open voor verdere reacties.
Steun Ons

Nieuwste berichten

Terug
Bovenaan Onderaan