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

Hur upprepar man cellvärde x gånger i Excel?

Till exempel har du en lista med värden i kolumn A och du vill upprepa värdena specifikt antal gånger baserat på antalet gånger i kolumn B, som vänster skärmdump visas, hur kan du uppnå detta i Excel?

 

Upprepa cellvärdena X gånger med formeln och hjälpkolumnen

För att upprepa cellvärdena X gånger kan du infoga några hjälpkolumner och sedan använda en enkel formel, gör med följande steg:

1. Infoga en kolumn till vänster om kolumn A och skriv 1 i cell A2, se skärmdump:

2. Sätt sedan den här formeln = A2 + C2 in i A3 och dra påfyllningshandtaget till cellen A6, se skärmdump:

3. Och ange sedan 1 i cell D2 och fyll i numret genom att dra Autofyll till 12, vilket är det totala antalet gånger i kolumn C, se skärmdump:

4. Ange sedan denna formel = VLOOKUP (D2, $ A $ 1: $ B $ 6,2) in i cell E2 och kopiera ner får du följande resultat:

  • Anmärkningar:
  • 1. I denna formel D2 anger den första cellen du fyller i med nummersekvensen och A1: B6 står för intervallet för den första hjälpkolumnen och de ursprungliga cellvärdena som du behöver upprepa.
  • 2. Efter att ha fått upprepade värden kan du kopiera och klistra in dem som värden till vilken annan plats som helst.

Kopiera och infoga rader X gånger baserat på specifikt nummer enkelt

Normalt finns det inte en bra metod för att kopiera och infoga rader flera gånger förutom att hantera kopiering och infogning manuellt. Men med Kutools för Excel's Duplicera rader / kolumner baserat på cellvärde kan du enkelt lösa detta problem. Klicka för att ladda ner Kutools för Excel!

Kutools för Excel: med mer än 300 praktiska Excel-tillägg, gratis att prova utan begränsning på 60 dagar. Ladda ner och testa gratis nu!


Upprepa cellvärden X gånger med VBA-kod

Om du anser att den första metoden är svår att förstå, här kan jag också introducera dig VBA-kod för att lösa den.

1. Håll ner ALT + F11 knapparna och det öppnar Microsoft Visual Basic for Applications-fönstret.

2. Klicka Insert > Modulernaoch klistra in följande kod i Modulfönster.

VBA-kod: Upprepa cellvärden X gånger

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. Tryck sedan på F5 nyckel för att köra den här koden, och en snabbruta visas för att påminna dig om att välja det intervall som innehåller värdena och upprepade gånger, se skärmdump:

4. och klicka OKkommer en annan snabbruta att dyka upp för att låta dig välja en cell för att lägga resultatet, se skärmdump:

5. Klicka sedan OK, och du får resultatet att dina valda värden har upprepats angivna gånger efter behov.


Kopiera och infoga cellvärden X gånger med en fantastisk funktion

Ibland kan du behöva kopiera och infoga cellvärdena x gånger baserat på det specifika numret, Kutools för Excel's Duplicera rader / kolumner baserat på cellvärde kan hjälpa dig att snabbt kopiera och infoga raderna baserat på det angivna numret.

Tips:Att tillämpa detta Duplicera rader / kolumner baserat på cellvärde funktionen, först bör du ladda ner Kutools för Excel, och använd sedan funktionen snabbt och enkelt.

När du har installerat Kutools för Excel, gör så här:

1. Klicka Kutools > Insert > Duplicera rader / kolumner baserat på cellvärde, se skärmdump:

2. I Kopiera och infoga rader och kolumner dialogrutan väljer du Kopiera och infoga rader alternativet i Typ Välj sedan det dataområde du vill kopiera och ange sedan upprepningstiden för att kopiera och infoga raderna, se skärmdump:

4. Klicka sedan Ok or tillämpas -knappen får du följande resultat efter behov:

Klicka för att ladda ner Kutools för Excel och gratis testversion nu!


De bästa Office-produktivitetsverktygen

Kutools för Excel löser de flesta av dina problem och ökar din produktivitet med 80%

  • återanvändning: Sätt snabbt i komplexa formler, diagram och allt som du har använt tidigare; Kryptera celler med lösenord; Skapa e-postlista och skicka e-post ...
  • Super Formula Bar (enkelt redigera flera rader med text och formel); Läslayout (enkelt läsa och redigera ett stort antal celler); Klistra in i filtrerat intervall...
  • Sammanfoga celler / rader / kolumner utan att förlora data; Delat cellinnehåll; Kombinera duplicerade rader / kolumner... Förhindra duplicerade celler; Jämför intervall...
  • Välj Duplicera eller Unikt Rader; Välj tomma rader (alla celler är tomma); Super Find och Fuzzy Find i många arbetsböcker; Slumpmässigt val ...
  • Exakt kopia Flera celler utan att ändra formelreferens; Skapa referenser automatiskt till flera ark; Sätt in kulor, Kryssrutor och mer ...
  • Extrahera text, Lägg till text, ta bort efter position, Ta bort mellanslag; Skapa och skriva ut personsökningstalsatser; Konvertera mellan celler innehåll och kommentarer...
  • Superfilter (spara och tillämpa filterscheman på andra ark); Avancerad sortering efter månad / vecka / dag, frekvens och mer; Specialfilter av fet, kursiv ...
  • Kombinera arbetsböcker och arbetsblad; Sammanfoga tabeller baserat på nyckelkolumner; Dela data i flera ark; Batchkonvertera xls, xlsx och PDF...
  • Mer än 300 kraftfulla funktioner. Stöder Office / Excel 2007-2021 och 365. Stöder alla språk. Enkel implementering i ditt företag eller organisation. Fullständiga funktioner 30 dagars gratis provperiod. 60 dagars pengarna tillbaka-garanti.
kte-flik 201905

Fliken Office ger ett flikgränssnitt till Office och gör ditt arbete mycket enklare

  • Aktivera flikredigering och läsning i Word, Excel, PowerPoint, Publisher, Access, Visio och Project.
  • Öppna och skapa flera dokument i nya flikar i samma fönster, snarare än i nya fönster.
  • Ökar din produktivitet med 50 % och minskar hundratals musklick för dig varje dag!
officetab botten
Sortera kommentarer efter
Kommentarer (45)
Klassad 5 av 5 · 1 betyg
Denna kommentar minimerades av moderatoren på webbplatsen
Tack för detta, väldigt lätt att göra och förstå. Jag brukade göra detta manuellt med 2600 celler.
Denna kommentar minimerades av moderatoren på webbplatsen
Finns det något sätt att få makrot att komma ihåg in- och utmatningsdestinationen så att nästa gång makrot körs behöver du inte välja om?
Denna kommentar minimerades av moderatoren på webbplatsen
VBA-koden bryts när det finns ett 0-värde i kolumnen "antal gånger". Justera för varje slinga enligt följande: För varje 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
Denna kommentar minimerades av moderatoren på webbplatsen
Tack mannen!! Sparade mycket tid. :-)
Denna kommentar minimerades av moderatoren på webbplatsen
Jag använde det första tillvägagångssättet, det fungerade felfritt, tack.
Denna kommentar minimerades av moderatoren på webbplatsen
Tack mannen ..!! Det här fungerar och sparade mycket tid på mig.
Denna kommentar minimerades av moderatoren på webbplatsen
Tack!! Sparade mig massor av tid. Smart användning av vlookup!
Denna kommentar minimerades av moderatoren på webbplatsen
Precis som #John Said, finns det ett sätt att ha ett fast intervall så att du inte behöver välja. Jag försöker också klistra in varje enskilt värde i sin egen kolumn. Jag har ändrat raden Set OutRng=OutRng.offset(xNum,0) till Set OutRng=OutRng.offset(xNum,1) i ett försök att göra det till kolumner. Jag verkar få ett felmeddelande på raden OutRng.Resize(xNum ,1).value=xValue även om jag kopierar och klistrar in koden från den här webbplatsen. All hjälp skulle vara mycket uppskattad.
Denna kommentar minimerades av moderatoren på webbplatsen
Tack så mycket!!!! VB Macro fungerade för mig och sparade min 1 veckas tid.... Tack igen..
Denna kommentar minimerades av moderatoren på webbplatsen
Hej, Kommer den föreslagna VBA-koden i artikeln att fungera om cellerna med antalet gånger inte står bredvid cellerna med värdet? Om inte, finns det något sätt att modifiera VBA för att få det att fungera?
Denna kommentar minimerades av moderatoren på webbplatsen
Tack så mycket. :)
Denna kommentar minimerades av moderatoren på webbplatsen
Hej, jag har en fråga: Basdata: Kundens land Övergripande utdata: Kund1 Kund2 Kund3 (om någon) Land1 Land2 och så vidare...(om någon) Övergripande1 Övergripande2 och så vidare...(om någon) vänligen vem som helst kan lös detta samtidigt som du använder formeln i excel ASAP
Denna kommentar minimerades av moderatoren på webbplatsen
Grymt bra! Tack så mycket!!!!!!!!
Denna kommentar minimerades av moderatoren på webbplatsen
Sparar fortfarande projekt under 2017! Tack så mycket för detta! :-)
Denna kommentar minimerades av moderatoren på webbplatsen
Tack så mycket, du har gjort ett bra jobb.
Denna kommentar minimerades av moderatoren på webbplatsen
Finns det något sätt att ändra koden så att det finns 2 kolumner med data och 1 kolumn med antalet repetitioner. dvs A1 = x B2 = y C3 = 2 makrot skulle sedan upprepa A1 två gånger och b2 två gånger i cellerna till höger All hjälp uppskattad. Tack.
Denna kommentar minimerades av moderatoren på webbplatsen
Detta var mycket användbart, kom väl till pass för att skapa ett kalkylblad för arbetet
Denna kommentar minimerades av moderatoren på webbplatsen
मैं बहुत दिनों से यह ऑप्शन ढूढ रहा ऍन ऍन वन
Denna kommentar minimerades av moderatoren på webbplatsen
VBA eller formeln. Ingen av dem fungerar för mig. Det ger "applikationsdefinierat eller objektdefinierat fel" Fel 1004. Kan någon hjälpa?
Denna kommentar minimerades av moderatoren på webbplatsen
VBA-koden fungerar inte om du inte har Kutools. Det ger mig felet "variabel ej definierad"
Det finns inga kommentarer här ännu
Ladda fler
Lämna dina kommentarer
Postar som gäst
×
Betygsätt detta inlägg:
0   Tecken
Föreslagna platser

Följ oss

Copyright © 2009 - www.extendoffice.com. | Alla rättigheter förbehållna. Drivs av ExtendOffice. | | Sitemap
Microsoft och Office-logotypen är varumärken eller registrerade varumärken som tillhör Microsoft Corporation i USA och / eller andra länder.
Skyddad av Sectigo SSL