Kako večkrat kopirati in vstaviti vrstico ali x podvojiti vrstico v Excelu?
Ali ste pri svojem vsakodnevnem delu že poskusili kopirati vrstico ali vsako vrstico in nato na delovni list večkrat vstaviti pod trenutno vrstico s podatki? Na primer, imam vrsto celic, zdaj želim kopirati vsako vrstico in jih 3-krat prilepiti v naslednjo vrstico, kot je prikazano na spodnji sliki zaslona. Kako bi se lahko spopadli s tem delom v Excelu?
- Večkrat kopirajte in vstavite določeno vrstico s kodo VBA
- Vsako vrstico večkrat kopirajte in vstavite s kodo VBA
- Vsako vrstico kopirajte in vstavite večkrat na podlagi določene številke z izjemno funkcijo
Večkrat kopirajte in vstavite določeno vrstico s kodo VBA
Če želite x enkrat podvojiti samo določeno vrstico, vam bo morda v pomoč naslednja koda VBA, naredite tako:
1. Določite vrstico, ki jo želite večkrat kopirati in vstaviti, nato pa držite tipko ALT + F11 tipke, nato odpre Microsoft Visual Basic za aplikacije okno.
2. Kliknite Vstavi > Moduliin prilepite naslednjo kodo v Moduli Okno.
Koda VBA: Večkrat podvoji eno določeno vrstico:
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. Po lepljenju kode pritisnite F5 tipko za zagon te kode in pojavilo se bo pozivno polje, ki vas bo opozorilo, da morate vnesti število ponovitev, glejte posnetek zaslona:
4. Nato kliknite OK in pod izbrano vrstico so bile vstavljene tri nove kopirane vrstice, glejte posnetek zaslona:
Vsako vrstico enostavno kopirajte in vstavite večkrat na podlagi določene številke
Običajno ni dobre metode za večkratno kopiranje in vstavljanje vrstic, razen za ročno kopiranje in vstavljanje. Ampak, s Kutools za Excel's Podvojene vrstice / stolpci na podlagi vrednosti celice funkcijo, lahko to težavo rešite z lahkoto. Kliknite za prenos Kutools za Excel!
Kutools za Excel: z več kot 300 priročnimi dodatki za Excel, brezplačno preizkusite brez omejitev v 60 dneh. Prenesite in brezplačno preskusite zdaj!
Vsako vrstico večkrat kopirajte in vstavite s kodo VBA
Če želite vsako vrstico večkrat podvojiti v obsegu, lahko uporabite naslednjo kodo VBA, naredite spodaj:
1. Držite tipko ALT + F11 tipke, nato odpre Microsoft Visual Basic za aplikacije okno.
2. Kliknite Vstavi > Moduliin prilepite naslednjo kodo v Moduli Okno.
Koda VBA: Vsako vrstico podvoji večkrat:
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 Sub
3. In nato pritisnite F5 tipko za zagon te kode in pojavilo se bo pozivno polje, ki vas bo opozorilo, da morate vnesti število ponovitev vsakega zapisa, glejte posnetek zaslona:
4. Nato kliknite OK, in vsaka vrstica je bila kopirana in vstavljena 3-krat pod aktivnimi, glejte posnetek zaslona:
Opombe: V zgornji kodi je A označuje, da se obseg podatkov začne v stolpcu A, če se podatki začnejo v stolpcu K, prosim, spremenite A do K kot vaše potrebe.
Vsako vrstico kopirajte in vstavite večkrat na podlagi določene številke z izjemno funkcijo
Mogoče niste seznanjeni s kodo VBA ali pa vas skrbi, da bo koda zrušila vaše podatke. Tukaj bom predstavil uporabno funkcijo, Kutools za Excel's Podvojene vrstice / stolpci na podlagi vrednosti celice, s tem pripomočkom lahko hitro kopirate in vstavite vrstice glede na določeno številko.
Nasvet:Če želite uporabiti to Podvojene vrstice / stolpci na podlagi vrednosti celice funkcijo, najprej morate prenesti Kutools za Excelin nato funkcijo hitro in enostavno uporabite.
Po namestitvi Kutools za Excel, naredite tako:
1. Številke ponovitev, ki jih želite podvojiti, vnesite na seznam celic poleg svojih podatkov, glejte posnetek zaslona:
2. Kliknite Kutools > Vstavi > Podvojene vrstice / stolpci na podlagi vrednosti celice, glej posnetek zaslona:
3. v Kopirajte in vstavite vrstice in stolpce pogovorno okno, izberite Kopirajte in vstavite vrstice možnost v tip , nato izberite obseg podatkov, ki ga želite podvojiti, in nato določite čas ponovitve, da podvojite vrstice, glejte posnetek zaslona:
4. Nato kliknite Ok or Uporabi gumb, boste dobili naslednji rezultat, kot ga potrebujete:
Kliknite za prenos Kutools za Excel in brezplačno preskusno različico zdaj!
Najboljša pisarniška orodja za produktivnost
Napolnite svoje Excelove spretnosti s Kutools za Excel in izkusite učinkovitost kot še nikoli prej. Kutools za Excel ponuja več kot 300 naprednih funkcij za povečanje produktivnosti in prihranek časa. Kliknite tukaj, če želite pridobiti funkcijo, ki jo najbolj potrebujete...
Kartica Office prinaša vmesnik z zavihki v Office in poenostavi vaše delo
- Omogočite urejanje in branje z zavihki v Wordu, Excelu, PowerPointu, Publisher, Access, Visio in Project.
- Odprite in ustvarite več dokumentov v novih zavihkih istega okna in ne v novih oknih.
- Poveča vašo produktivnost za 50%in vsak dan zmanjša na stotine klikov miške za vas!