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

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.

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 orodja za pisarniško produktivnost

Kutools za Excel rešuje večino vaših težav in poveča vašo produktivnost za 80%

• Ponovna uporaba: Hitro vstavite zapletene formule, grafikoni in vse, kar ste že uporabljali; Šifriraj celice z geslom; Ustvari poštni seznam in pošiljanje e-pošte ...
• Vrstica Super Formula (enostavno urejanje več vrstic besedila in formule); Bralna postavitev (enostavno branje in urejanje velikega števila celic); Prilepite v filtrirani obseg...
• Združi celice / vrstice / stolpce brez izgube podatkov; Vsebina razdeljenih celic; Združi podvojene vrstice / stolpce... prepreči podvojene celice; Primerjaj obsege...
• Izberite Duplicate ali Unique Vrstice; Izberite prazne vrstice (vse celice so prazne); Super Find in Fuzzy Find v mnogih delovnih zvezkih; Naključna izbira ...
• Natančna kopija Več celic brez spreminjanja sklica formule; Samodejno ustvarjanje referenc na več listov; Vstavi oznake, Potrditvena polja in še več ...
• Izvleček besedila, Dodaj besedilo, Odstrani po položaju, Odstrani presledek; Ustvari in natisni vmesne seštevke strani Pretvarjanje med vsebino celic in komentarji...
• Super filter (shranite in uporabite sheme filtrov za druge liste); Napredno razvrščanje glede na mesec / teden / dan, pogostost in drugo; Poseben filter s krepko, ležeče ...
• Združite delovne zvezke in delovne liste; Spoji tabele na podlagi ključnih stolpcev; Razdelite podatke na več listov; Paketna pretvorba xls, xlsx in PDF...
• Več kot 300 zmogljivih funkcij. Podpira Office / Excel 2007-2021 in 365. Podpira vse jezike. Enostavna uvedba v vašem podjetju ali organizaciji. 30-dnevna brezplačna preizkusna različica vseh funkcij. 60-dnevna garancija vračila denarja.

Preberite več ... Brezplačen prenos... Nakup ... 

---

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!

Preberite več ... Brezplačen prenos... Nakup ...