Hvordan gentages celleværdien x gange i Excel?

For eksempel har du en liste over værdier i kolonne A, og du vil gentage værdierne specifikt antal gange baseret på antallet gange i kolonne B, som vist i skærmbillede til venstre, hvordan kunne du opnå dette i Excel?
Gentag celleværdier X gange med formel og hjælpekolonne
For at gentage celleværdierne X gange kan du indsætte nogle hjælpekolonner og derefter anvende en simpel formel. Gør med følgende trin:
1. Indsæt en kolonne til venstre for kolonne A, og skriv 1 i celle A2, se skærmbillede:
2. Sæt derefter denne formel = A2 + C2 ind i A3, og træk påfyldningshåndtaget til cellen A6, se skærmbillede:
3. Og indtast derefter 1 i celle D2, og udfyld nummeret ved at trække den automatiske udfyldning til 12, som er det samlede antal gange antallet i kolonne C, se skærmbillede:
4. Indtast derefter denne formel = VLOOKUP (D2, $ A $ 1: $ B $ 6,2) ind i celle E2 og kopiere ned, får du følgende resultat:
- Noter:
- 1. I denne formel D2 angiver den første celle, du er fyldt med nummersekvensen, og A1: B6 står for området for den første hjælpekolonne og de originale celleværdier, som du skal gentage.
- 2. Når du har fået de gentagne værdier, kan du kopiere og indsætte dem som værdier til ethvert andet sted.
Kopier og indsæt rækker X gange baseret på specifikt nummer let
Normalt er der ikke en god metode til kopiering og indsættelse af rækker flere gange undtagen at håndtere manuel kopiering og indsættelse. Men med Kutools for Excel's Dupliser rækker / kolonner baseret på celleværdi funktion, kan du nemt løse dette problem. Klik for at downloade Kutools for Excel!
Kutools for Excel: med mere end 300 praktiske Excel-tilføjelsesprogrammer, gratis at prøve uden begrænsning på 60 dage. Download og gratis prøveversion nu!
Gentag celleværdier X gange med VBA-kode
Hvis du mener, at den første metode er vanskelig at forstå, her kan jeg også introducere dig VBA-kode for at løse den.
1. Hold nede ALT + F11 tasterne, og det åbner Vinduet Microsoft Visual Basic til applikationer.
2. Klik indsatte > Moduler, og indsæt følgende kode i Modul vindue.
VBA-kode: Gentag celleværdier X gange
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. Tryk derefter på F5 nøgle til at køre denne kode, og der vises et promptfelt for at minde dig om at vælge det interval, der indeholder værdierne og gentagne gange, se skærmbillede:
Kopier og indsæt celleværdier X gange med en fantastisk funktion
Nogle gange kan det være nødvendigt at kopiere og indsætte celleværdier x gange baseret på det specifikke nummer, Kutools for Excel's Kopier rækker / kolonner baseret på celleværdi kan hjælpe dig med hurtigt at kopiere og indsætte rækkerne baseret på det nummer, du har angivet.
tips:At anvende dette Kopier rækker / kolonner baseret på celleværdi funktion, for det første skal du downloade Kutools for Excel, og anvend derefter funktionen hurtigt og nemt.
Efter installation Kutools for Excelskal du gøre som dette:
1. Klik Kutools > indsatte > Kopier rækker / kolonner baseret på celleværdi, se skærmbillede:
2. I Kopier og indsæt rækker og kolonner dialogboksen, vælg Kopier og indsæt rækker valgmulighed i Type sektion, vælg derefter det dataområde, du vil duplikere, og angiv derefter gentagelsestiden for at kopiere og indsætte rækkerne, se skærmbillede:
4. Klik derefter på Ok or Indløs knappen, får du følgende resultat, som du har brug for:
![]() |
![]() |
![]() |
Klik for at downloade Kutools for Excel og gratis prøveversion nu!
Bedste kontorproduktivitetsværktøjer
Overlad dine Excel-færdigheder med Kutools for Excel, og oplev effektivitet som aldrig før. Kutools for Excel Tilbyder over 300 avancerede funktioner for at øge produktiviteten og spare tid. Klik her for at få den funktion, du har mest brug for...
Office Tab Giver fanebladsgrænseflade til Office og gør dit arbejde meget nemmere
- Aktiver redigering og læsning af faner i Word, Excel, PowerPoint, Publisher, Access, Visio og Project.
- Åbn og opret flere dokumenter i nye faner i det samme vindue snarere end i nye vinduer.
- Øger din produktivitet med 50 % og reducerer hundredvis af museklik for dig hver dag!










