Gå til hovedindhold

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 til Excel's Dupliser rækker / kolonner baseret på celleværdi funktion, kan du nemt løse dette problem. Klik for at downloade Kutools til Excel!

Kutools til 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:

4. og klik OK, en anden promptboks vises, så du kan vælge en celle til at placere resultatet, se skærmbillede:

5. Klik derefter på OK, og du får det resultat, at dine valgte værdier er gentaget angivet gange efter behov.


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 til 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 til Excel, og anvend derefter funktionen hurtigt og nemt.

Efter installation Kutools til 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 til Excel og gratis prøveversion nu!

Bedste kontorproduktivitetsværktøjer

🤖 Kutools AI Aide: Revolutionér dataanalyse baseret på: Intelligent udførelse   |  Generer kode  |  Opret brugerdefinerede formler  |  Analyser data og generer diagrammer  |  Aktiver Kutools funktioner...
Populære funktioner: Find, fremhæv eller identificer dubletter   |  Slet tomme rækker   |  Kombiner kolonner eller celler uden at miste data   |   Runde uden formel ...
Super opslag: VLookup med flere kriterier    Multiple Value VLookup  |   VOpslag på tværs af flere ark   |   Fuzzy Lookup ....
Avanceret rulleliste: Opret hurtigt rulleliste   |  Afhængig rulleliste   |  Multivælg rulleliste ....
Column Manager: Tilføj et bestemt antal kolonner  |  Flyt kolonner  |  Skift synlighedsstatus for skjulte kolonner  |  Sammenlign områder og kolonner ...
Fremhævede funktioner: Grid fokus   |  Designvisning   |   Stor Formel Bar    Arbejdsbog & Ark Manager   |  Ressourcebibliotek (Autotekst)   |  Datovælger   |  Kombiner regneark   |  Krypter/Dekrypter celler    Send e-mails efter liste   |  Superfilter   |   Specielt filter (filter fed/kursiv/gennemstreget...) ...
Top 15 værktøjssæt12 tekst Værktøjer (tilføje tekst, Fjern tegn, ...)   |   50 + Chart Typer (Gantt kort, ...)   |   40+ Praktisk formler (Beregn alder baseret på fødselsdag, ...)   |   19 Indsættelse Værktøjer (Indsæt QR-kode, Indsæt billede fra sti, ...)   |   12 Konvertering Værktøjer (Tal til ord, Valutaomregning, ...)   |   7 Flet og del Værktøjer (Avancerede kombinere rækker, Opdel celler, ...)   |   ... og mere

Overlad dine Excel-færdigheder med Kutools til Excel, og oplev effektivitet som aldrig før. Kutools til 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...

Beskrivelse


Fanen Office bringer en grænseflade til et kontor med Office, og gør dit arbejde meget lettere

  • 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!
Comments (46)
Rated 5 out of 5 · 1 ratings
This comment was minimized by the moderator on the site
It's very helpful.Thanks a ton.
This comment was minimized by the moderator on the site
MERCI !!!!!!!!
This comment was minimized by the moderator on the site
Really fantastic thank you
This comment was minimized by the moderator on the site
Gracias por este consejo. Me funcionó genial para una base de 4061 registros que se convirtieron en 146,196 filas. Saludos.
Rated 5 out of 5
This comment was minimized by the moderator on the site
Bonjour, je suis bloquée en VBA. J'ai besoin de faire la chose suivante : Répéter la ligne 2  qui est dans la feuille de calcul BDD  dans la feuille de calcul BDD 2 A partir de A2Autant de fois que c'est noté dans J2 (non fixé)Ensuite passer à la ligne suivante jusqu'à (ou tant que ???) la cellule en J soit vide
Comment j'écris ça ? 
Merci pour votre aide !
This comment was minimized by the moderator on the site
merhaba anlatım uygulama çok güzel fakat benim sorum,
bu uygulama sadece A sütun için uygulanmış örneğin E sütunda bulunan değer kadar A,B,C,D sütunlarını da aynı anda çoğaltmak istersem nasıl bir yol izlemeliyim. şimdiden teşekkürler
This comment was minimized by the moderator on the site
the vlookup one was a bit wonky but the macro worked like a charm! Thank you!
This comment was minimized by the moderator on the site
Great!Thanks a lot
This comment was minimized by the moderator on the site
We can find duplicates value without kutools....
Through countif formula....=COUNTIF($E$7:$E$23,H7:H17), E7 COLUMN RANGE AND H COLUMN CRITERIA...


0091 9004260229
This comment was minimized by the moderator on the site
thank u! the vlookup function worked!
There are no comments posted here yet
Load More
Please leave your comments in English
Posting as Guest
×
Rate this post:
0   Characters
Suggested Locations