Hoe herhaal je een celwaarde x keer in Excel?

---

Herhaal celwaarden X keer met formule en hulpkolom

Om de celwaarden X keer te herhalen, kun je enkele hulpkolommen invoegen en vervolgens een eenvoudige formule toepassen. Volg deze stappen:

1. Voeg een kolom in links van kolom A en typ 1 in cel A2, zie onderstaande schermafbeelding:

2. Plaats vervolgens deze formule =A2 + C2 in A3 en sleep de vulgreep naar cel A6, zie onderstaande schermafbeelding:

3. Voer daarna 1 in cel D2 in en vul de nummers door de automatische vulling te slepen tot 12, wat het totale aantal herhalingen in kolom C is, zie onderstaande schermafbeelding:

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

---

---

Herhaal celwaarden X keer met VBA-code

Als je de eerste methode moeilijk vindt om te begrijpen, kan ik je ook een VBA-code introduceren om dit probleem op te lossen.

1. Houd de toetsen ALT + F11 ingedrukt, en het venster Microsoft Visual Basic for Applications wordt geopend.

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

3. Druk vervolgens op F5 toets om deze code uit te voeren, en er verschijnt een dialoogvenster dat je eraan herinnert om het bereik te selecteren dat de waarden en het aantal herhalingen bevat, zie onderstaande schermafbeelding:

4. En klik OK, er verschijnt nog een dialoogvenster waarin je een cel kunt selecteren om het resultaat te plaatsen, zie onderstaande schermafbeelding:

5. Klik vervolgens OK, en je krijgt het resultaat waarbij de geselecteerde waarden het opgegeven aantal keren zijn herhaald.

---

Kopieer en voeg celwaarden X keer in met een geweldige functie

Soms moet je mogelijk celwaarden X keer kopiëren en invoegen op basis van een specifiek aantal. De functie Rijen/Kolommen kopiëren of invoegen op basis van gespecificeerde gegevens van Kutools voor Excel kan je helpen om snel rijen te kopiëren en in te voegen op basis van het opgegeven aantal.

Nadat je Kutools voor Excel hebt geïnstalleerd, doe dan het volgende:

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

2. Selecteer in het dialoogvenster Kopieer en voeg rijen & kolommen de optie Kopieer en voeg rijen in in de sectie Type, selecteer vervolgens het gegevensbereik dat je wilt dupliceren en specificeer daarna het aantal herhalingen om de rijen te kopiëren en in te voegen, zie onderstaande schermafbeelding:

4. Klik vervolgens op de knop Oké of Toepassen, en je krijgt het volgende resultaat zoals je nodig hebt:

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