Hur kopierar och infogar jag rad flera gånger eller duplicerar raden x gånger i Excel?
Har du någonsin försökt kopiera en rad eller varje rad i ditt dagliga arbete och sedan infoga flera gånger under den aktuella dataraden i ett kalkylblad? Till exempel har jag ett antal celler, nu vill jag kopiera varje rad och klistra in dem tre gånger till nästa rad enligt följande skärmdump. Hur kan du hantera det här jobbet i Excel?
 |
 |
 |
- Kopiera och infoga en specifik rad flera gånger med VBA-kod
- Kopiera och sätt in varje rad flera gånger med VBA-kod
- Kopiera och sätt in varje rad flera gånger baserat på ett visst nummer med en fantastisk funktion
Kopiera och infoga en specifik rad flera gånger med VBA-kod
Om du bara vill kopiera en specifik rad x gånger kan följande VBA-kod hjälpa dig, gör så här:
1. Ange en rad som du vill kopiera och infoga flera gånger och håll sedan ned ALT + F11 och sedan öppnas Microsoft Visual Basic för applikationer fönster.
2. Klicka Insert > Modulernaoch klistra in följande kod i Modulerna Fönster.
VBA-kod: Duplicera en specifik rad flera gånger:
Sub test()
'Updateby Extendoffice
Dim xCount As Integer
LableNumber:
xCount = Application.InputBox("Number of Rows", "Kutools for Excel", , , , , , 1)
If xCount < 1 Then
MsgBox "the entered number of rows is error, please enter again", vbInformation, "Kutools for Excel"
GoTo LableNumber
End If
ActiveCell.EntireRow.Copy
Range(ActiveCell.Offset(1, 0), ActiveCell.Offset(xCount, 0)).EntireRow.Insert Shift:=xlDown
Application.CutCopyMode = False
End Sub
3. När du har klistrat in koden, tryck F5 nyckel för att köra den här koden och en snabbruta visas för att påminna dig om att ange antalet gånger som du vill kopiera, se skärmdump:
4. Klicka sedan OK och tre nya kopierade rader har infogats under vald rad, se skärmdump:
Kopiera och infoga varje rad flera gånger baserat på ett visst 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!
Kopiera och sätt in varje rad flera gånger med VBA-kod
För att duplicera varje rad flera gånger i ett intervall kan du använda följande VBA-kod, gör så här:
1. Håll ner ALT + F11 och sedan öppnas Microsoft Visual Basic för applikationer fönster.
2. Klicka Insert > Modulernaoch klistra in följande kod i Modulerna Fönster.
VBA-kod: Duplicera varje rad flera gånger:
Sub insertrows()
'Updateby Extendoffice
Dim I As Long
Dim xCount As Integer
LableNumber:
xCount = Application.InputBox("Number of Rows", "Kutools for Excel", , , , , , 1)
If xCount < 1 Then
MsgBox "the entered number of rows is error ,please enter again", vbInformation, "Kutools for Excel"
GoTo LableNumber
End If
For I = Range("A" & Rows.CountLarge).End(xlUp).Row To 2 Step -1
Rows(I).Copy
Rows(I).Resize(xCount).Insert
Next
Application.CutCopyMode = False
End Sub3. Och 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 ange antalet gånger som du vill kopiera för varje post, se skärmdump:
4. Klicka sedan OK, och varje rad har kopierats och infogats tre gånger under de aktiva, se skärmdump:
|
|
|
Anmärkningar: I ovanstående kod är A indikerar att dataområdet har startat vid kolumn A, om dina data börjar vid kolumnen K, snälla ändras A till K som ditt behov.
Kopiera och sätt in varje rad flera gånger baserat på ett visst nummer med en fantastisk funktion
Kanske är du inte bekant med VBA-koden, eller oroar dig för att koden kommer att krascha dina data. Här kommer jag att presentera en användbar funktion, Kutools för Excel's Duplicera rader / kolumner baserat på cellvärde, med det här verktyget kan du snabbt kopiera och infoga raderna baserat på det nummer du angav.
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. Ange de upprepande siffrorna som du vill duplicera rader i en lista med celler bredvid dina data, se skärmdump:
2. Klicka Kutools > Insert > Duplicera rader / kolumner baserat på cellvärde, se skärmdump:
3. I Kopiera och infoga rader och kolumner dialogrutan väljer du Kopiera och infoga rader alternativet i Typ markera sedan det dataintervall du vill kopiera och ange sedan upprepningstiden för att duplicera raderna, se skärmdump:
4. Klicka sedan Ok or Ansök -knappen får du följande resultat efter behov:
|
|
 |
Klicka för att ladda ner Kutools för Excel och gratis testversion nu!
Bästa kontorsproduktivitetsverktyg
Uppgradera dina Excel-färdigheter med Kutools för Excel och upplev effektivitet som aldrig förr. Kutools för Excel erbjuder över 300 avancerade funktioner för att öka produktiviteten och spara tid. Klicka här för att få den funktion du behöver mest...
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!
