Note: The other languages of the website are Google-translated. Back to English

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!


De bedste Office-produktivitetsværktøjer

Kutools til Excel løser de fleste af dine problemer og øger din produktivitet med 80%

  • Genbruge: Indsæt hurtigt komplekse formler, diagrammer og alt, hvad du har brugt før; Krypter celler med adgangskode Opret postliste og send e-mails ...
  • Super formel bar (let redigere flere linjer med tekst og formel); Læsning Layout (let at læse og redigere et stort antal celler); Indsæt til filtreret rækkevidde...
  • Flet celler / rækker / kolonner uden at miste data; Split celler indhold; Kombiner duplikerede rækker / kolonner... Forhindre duplikerede celler; Sammenlign områder...
  • Vælg Duplicate eller Unique Rækker; Vælg tomme rækker (alle celler er tomme); Super Find og Fuzzy Find i mange arbejdsbøger; Tilfældig valg ...
  • Præcis kopi Flere celler uden at ændre formelreference; Auto Opret referencer til flere ark; Indsæt kugler, Afkrydsningsfelter og mere ...
  • Uddrag tekst, Tilføj tekst, Fjern efter position, Fjern mellemrum; Opret og udskriv personsøgningssubtotaler; Konverter mellem celler indhold og kommentarer...
  • Superfilter (gem og anvend filterskemaer på andre ark); Avanceret sortering efter måned / uge / dag, hyppighed og mere; Specielt filter af fed, kursiv ...
  • Kombiner arbejdsbøger og arbejdsark; Fletabeller baseret på nøglekolonner; Opdel data i flere ark; Batch Konverter xls, xlsx og PDF...
  • Mere end 300 kraftfulde funktioner. Understøtter Office / Excel 2007-2021 og 365. Understøtter alle sprog. Nem implementering i din virksomhed eller organisation. Fuld funktioner 30-dages gratis prøveperiode. 60 dages pengene tilbage garanti.
kte-fane 201905

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!
officetab bund
Sorter kommentarer efter
Kommentarer (45)
Bedømt 5 ud af 5 · 1 vurderinger
Denne kommentar blev minimeret af moderatoren på webstedet
Tak for dette, meget nemt at gøre og forstå. Jeg plejede at gøre dette manuelt med 2600 celler.
Denne kommentar blev minimeret af moderatoren på webstedet
Er der en måde at få makroen til at huske input- og outputdestinationen, så næste gang makroen køres, behøver du ikke at genvælge?
Denne kommentar blev minimeret af moderatoren på webstedet
VBA-koden går i stykker, når der er en 0-værdi i kolonnen "antal gange". Juster For Hver sløjfe som følger: For hver Rng In InputRng.Rows xValue = Rng.Range("A1").Value xNum = Rng.Range("B1").Value If xNum > 0 Then OutRng.Resize(xNum, 1).Value = xValue Set OutRng = OutRng.Offset(xNum, 0) End If Next
Denne kommentar blev minimeret af moderatoren på webstedet
Tak mand!! Sparet en masse tid. :-)
Denne kommentar blev minimeret af moderatoren på webstedet
Jeg brugte den første tilgang, den fungerede upåklageligt, tak.
Denne kommentar blev minimeret af moderatoren på webstedet
Tak mand ..!! Dette virker og sparede min rigelige mængde tid.
Denne kommentar blev minimeret af moderatoren på webstedet
Tak!! Sparede mig tonsvis af tid. Smart brug af vlookup!
Denne kommentar blev minimeret af moderatoren på webstedet
Ligesom #John Said, er der en måde at have et fast interval, så du ikke behøver at vælge. Jeg forsøger også at indsætte hver enkelt værdi i sin egen kolonne. Jeg har ændret linjen Set OutRng=OutRng.offset(xNum,0) til Set OutRng=OutRng.offset(xNum,1) i et forsøg på at gøre det til kolonner. Jeg ser ud til at få en fejl på linjen OutRng.Resize(xNum) ,1).value=xValue, selvom jeg kopierer og indsætter koden fra denne side. Enhver hjælp ville blive meget værdsat.
Denne kommentar blev minimeret af moderatoren på webstedet
Mange tak!!!! VB Macro virkede for mig og reddede min 1 uges tid.... Tak igen..
Denne kommentar blev minimeret af moderatoren på webstedet
Hej, Vil den foreslåede VBA-kode i artiklen virke, hvis cellerne med antallet af gange ikke står ved siden af ​​cellerne med værdien? Hvis ikke, er der en måde at ændre VBA'en for at få den til at fungere?
Denne kommentar blev minimeret af moderatoren på webstedet
Mange tak. :)
Denne kommentar blev minimeret af moderatoren på webstedet
Hej, jeg har en forespørgsel: Basisdata: Kundeland Samlet output: Kunde1 Kunde2 Kunde3 (hvis nogen) Land1 Land2 og så videre...(hvis nogen) Samlet1 Samlet2 og så videre...(hvis nogen) Venligst kan alle løse dette, mens du bruger formel i excel ASAP
Denne kommentar blev minimeret af moderatoren på webstedet
Fantastisk! Mange tak!!!!!!!!
Denne kommentar blev minimeret af moderatoren på webstedet
Gemmer stadig projekter i 2017! Mange tak for dette! :-)
Denne kommentar blev minimeret af moderatoren på webstedet
Mange tak, du har gjort et godt stykke arbejde.
Denne kommentar blev minimeret af moderatoren på webstedet
Er der en måde at ændre koden på, så der er 2 kolonner med data og 1 kolonne med antallet af gentagelser. dvs. A1 = x B2 = y C3 = 2 makroen ville så gentage A1 to gange og b2 to gange i cellerne til højre. Enhver hjælp værdsat. Tak.
Denne kommentar blev minimeret af moderatoren på webstedet
Dette var meget nyttigt, det var praktisk at oprette et regneark til arbejdet
Denne kommentar blev minimeret af moderatoren på webstedet
मैं बहुत दिनों से यह ऑप्शन ढूढ रहा्य थन वन
Denne kommentar blev minimeret af moderatoren på webstedet
VBA eller formlen. Ingen af ​​dem virker for mig. Det giver "applikationsdefineret eller objektdefineret fejl" Fejl 1004. Kan nogen hjælpe?
Denne kommentar blev minimeret af moderatoren på webstedet
VBA-koden virker ikke, hvis du ikke har Kutools. Det giver mig fejlen "variabel ikke defineret"
Der er endnu ingen kommentarer her
Load More
Efterlad dine kommentarer
Sender som gæst
×
Bedøm dette indlæg:
0   Tegn
Foreslåede steder

Følg os

Copyright © 2009 - www.extendoffice.com. | Alle rettigheder forbeholdes. Drevet af ExtendOffice. | | Sitemap
Microsoft og Office-logoet er varemærker eller registrerede varemærker tilhørende Microsoft Corporation i USA og / eller andre lande.
Beskyttet af Sectigo SSL