Hoe celwaarde x keer herhalen in Excel?

---

Herhaal celwaarden X keer met formule en hulpkolom

Om de celwaarden X keer te herhalen, kunt u enkele hulpkolommen invoegen en vervolgens een eenvoudige formule toepassen, doe dit met de volgende stappen:

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

2. Zet dan deze formule = A2 + C2 naar A3, en sleep de vulgreep naar de cel A6, zie screenshot:

3. En voer vervolgens 1 in cel D2 in en vul het nummer in door de Auto Fill naar 12 te slepen, wat het totale aantal keren is in kolom C, zie screenshot:

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

---

---

Herhaal celwaarden X keer met VBA-code

Als je bedenkt dat de eerste methode moeilijk te begrijpen is, kan ik je hier ook VBA-code introduceren om het op te lossen.

1. Houd de ALT + F11 toetsen, en het opent de Microsoft Visual Basic for Applications-venster.

2. Klikken Invoegen > Moduleen plak de volgende code in het Module Venster.

VBA-code: celwaarden X keer herhalen

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 promptvenster om u eraan te herinneren het bereik te selecteren dat de waarden en herhaalde keren bevat, zie screenshot:

4. En klik op OK, verschijnt er een ander promptvenster waarin u een cel kunt selecteren om het resultaat te plaatsen, zie screenshot:

5. Dan klikken OK, en u krijgt het resultaat dat uw geselecteerde waarden zijn gespecificeerd keer als u nodig hebt.

---

Kopieer en voeg celwaarden X keer in met een geweldige functie

Soms moet u de celwaarden x keer kopiëren en invoegen op basis van het specifieke nummer, Kutools for Excel's Dubbele rijen / kolommen op basis van celwaarde kan u helpen snel de rijen te kopiëren en in te voegen op basis van het door u opgegeven aantal.

Na het installeren van Kutools for Excel, doe dit als volgt:

1. Klikken Kutools > Invoegen > Dubbele rijen / kolommen op basis van celwaarde, zie screenshot:

2. In de Kopieer en voeg rijen en kolommen in dialoogvenster, selecteer Kopieer en voeg rijen in optie in het Type sectie, selecteer vervolgens het gegevensbereik dat u wilt dupliceren en specificeer vervolgens de herhalingstijd om de rijen te kopiëren en in te voegen, zie screenshot:

4. Dan klikken Ok or Solliciteer knop, krijg je het volgende resultaat als je nodig hebt:

Klik om te downloaden Kutools for Excel en gratis proef Nu!