Hoe herhaalt u een celwaarde x keer in Excel?

---

Herhaal celwaarden X keer met een formule en een hulpkolom

Om de celwaarden X keer te herhalen, voegt u enkele hulpkolommen in en past u daarna een eenvoudige formule toe. Volg hiervoor de volgende stappen:

1. Voeg een kolom links van kolom A in en typ 1 in cel A2 (zie screenshot):

2. Plaats vervolgens de formule =A2 + C2 in cel A3 en sleep de vulgreep naar cel A6. Zie de screenshot:

3. Typ daarna 1 in cel D2 en sleep de automatische vulgreep naar beneden tot 12 om de getallenreeks aan te vullen—dit komt overeen met het totale aantal keren zoals aangegeven in kolom C. Zie screenshot:

4. Voer vervolgens in cel E2 de formule =VERT.ZOEKEN(D2;$A$1:$B$6;2) in en kopieer deze naar beneden. U krijgt dan het volgende resultaat:

---

---

Herhaal celwaarden X keer met VBA-code

Als u de eerste methode lastig vindt om te begrijpen, bied ik u hier ook VBA-code aan om dit op te lossen.

1. Houd de toetsen ALT + F11 ingedrukt om het venster Microsoft Visual Basic for Applications te openen.

2. Klik op Invoegen > Module en plak de volgende code in het Modulevenster.

VBA-code: Herhaal celwaarden X keer

Sub CopyData()
'Updateby Extendoffice
Dim Rng As Range
Dim InputRng As Range, OutRng As Range
xTitleId = "KutoolsforExcel"
Set InputRng = Application.Selection
Set InputRng = Application.InputBox("Range :", xTitleId, InputRng.Address, Type:=8)
Set OutRng = Application.InputBox("Out put to (single cell):", xTitleId, Type:=8)
Set OutRng = OutRng.Range("A1")
For Each Rng In InputRng.Rows
    xValue = Rng.Range("A1").Value
    xNum = Rng.Range("B1").Value
    OutRng.Resize(xNum, 1).Value = xValue
    Set OutRng = OutRng.Offset(xNum, 0)
Next
End Sub

3Druk vervolgens op F5om deze code uit te voeren. Er verschijnt een meldingsvenster waarin u wordt gevraagd het bereik te selecteren dat de waarden en herhalingstijden bevat – zie screenshot:

4Klik vervolgens op OK, waarna een ander meldingsvenster verschijnt waarin u een cel kunt selecteren om het resultaat te plaatsen, zie screenshot:

5Klik daarna op OKen u krijgt het gewenste resultaat, waarbij uw geselecteerde waarden het opgegeven aantal keer worden herhaald.

---

Kopieer en voeg celwaarden X keer in met een geweldige functie

Soms moet u celwaarden x keer kopiëren en invoegen op basis van een specifiek getal. Met Kutools voor Excel kunt u dankzij de functie Rijen/Kolommen kopiëren of invoegen op basis van gespecificeerde gegevens snel rijen kopiëren en invoegen op basis van het opgegeven aantal.

Na installatie van Kutools voor Excel, gaat u als volgt te werk:

1. Klik op Kutools > Invoegen > Rijen/Kolommen kopiëren of invoegen op basis van gespecificeerde gegevens, zie screenshot:

2. Selecteer in het dialoogvenster Rijen/Kolommen kopiëren en invoegen de optie Rijen kopiëren en invoegen in het gedeelte Type. Selecteer vervolgens het gegevensbereik dat u wilt dupliceren en geef het aantal herhalingen op om de rijen te kopiëren en in te voegen. Zie screenshot:

4. Klik vervolgens op de knop OK of Toepassen om het gewenste resultaat te verkrijgen:

Klik hier om Kutools voor Excel te downloaden en nu gratis uit te proberen!