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

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

Č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 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.
zavihek kte 201905

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!
dno pisarniške mize
Komentarji (32)
Ocene še ni. Bodite prvi in ​​ocenite!
Ta komentar je moderator na spletnem mestu minimiziral
Hvala!
Ta komentar je moderator na spletnem mestu minimiziral
Čudovit makro - prihranil mi je toliko časa!
Ta komentar je moderator na spletnem mestu minimiziral
res lep makro kolega!
Ta komentar je moderator na spletnem mestu minimiziral
želim naključno ustvariti podvojene vrstice,

za npr. ustvari naključne podvojene vrstice med 20 in 80.


kaj bo posodobljena koda za naslednje


Podvrstice ()
'Posodobitev Extendoffice 2016616
Dim I As Long
Dim xCount kot celo število
Številka etikete:
xCount = Application.InputBox("Število vrstic", "Kutools za Excel", , , , , , 1)
Če je xCount < 1 Potem
MsgBox "vneseno število vrstic je napaka, vnesite znova", vbInformation, "Kutools za Excel"
Pojdi na številko oznake
Konec Če
Za I = Range("A" & Rows.CountLarge).End(xlUp).Vrstica do 1 koraka -1
Vrstice(I).Kopiraj
Vrstice(I).Spremeni velikost(xCount).Vstavi
Naslednji
Application.CutCopyMode = Napačno
End Sub
Ta komentar je moderator na spletnem mestu minimiziral
Želim podvojiti vrstice na podlagi parametra. Na primer, imam stolpec z imenom čas trajanja sestanka. Če je ta stolpec več kot 1, želim podvojiti vrstice ID sestanka na podlagi te številke. Če je sestanek 2 uri, dvakrat podvojite ID srečanja. Če sestanek traja 3 ure, ga trikrat podvojite.
korake po pol ure je mogoče zaokrožiti na uro.

MeetingID Čas začetka časa trajanja končnega sestanka
43117 9 00 11
43580 9 30 11
42699 10:00 11:30 01:30
12345 01:00 2:00 01:00
Ta komentar je moderator na spletnem mestu minimiziral
jaz imam enak problem. Ste našli rešitev?
Ta komentar je moderator na spletnem mestu minimiziral
Zdravo družba,
Morda vam lahko naslednja koda VBA naredi uslugo, prosimo, uporabite jo:
Podvrstice ()
Dim I As Long
Dim xRg As Range
Dim xHour, xMin As Long
On Error Resume Next
Application.ScreenUpdating = Napačno
Za I = Range("D" & Rows.CountLarge).End(xlUp).Row To 1 Step -1
x ura = 0
Nastavite xRg = razpon ("D" & I)
xHour = Ura(xRg.Value) + 1
xMin = minuta (xRg.Value)
Če je xMin < 30 Potem je xHour = xHour - 1
Vrstice(I).Kopiraj
Vrstice(I).Spremeni velikost(xHour).Vstavi
Naslednji
Application.ScreenUpdating = Res
Application.CutCopyMode = Napačno
End Sub

Prosim poskusite. Upam, da vam lahko pomaga!
Ta komentar je moderator na spletnem mestu minimiziral
Te makre sem uporabljal v preteklosti in je do nedavnega vedno deloval. Kakšen vpogled, zakaj bi podvojil samo zgornjo vrstico tudi pri uporabi makrov več vrstic? Odstranil sem vse filtre/zamrznjena podokna.
Ta komentar je moderator na spletnem mestu minimiziral
Živjo, kako lahko spremenim kodo, da vključuje naslednje

1. dvojnik glede na število dni
2. spremenite stolpec EOM s konca meseca na dnevni datum
Ta komentar je moderator na spletnem mestu minimiziral
Res hvala za vašo podporo!!!!
Ta komentar je moderator na spletnem mestu minimiziral
Všeč mi je koda! kako naj nastavim začetni obseg, da preskoči prvo vrstico (glave stolpcev) in začnem v vrstici 2?
Ta komentar je moderator na spletnem mestu minimiziral
Živjo, Devin,
Če želite preskočiti prvo vrstico glave, uporabite naslednjo kodo VBA:

Podvrstice ()
Dim I As Long
Dim xCount kot celo število
Številka etikete:
xCount = Application.InputBox("Število vrstic", "Kutools za Excel", , , , , , 1)
Če je xCount < 1 Potem
MsgBox "vneseno število vrstic je napaka, vnesite znova", vbInformation, "Kutools za Excel"
Pojdi na številko oznake
Konec Če
Za I = Range("A" & Rows.CountLarge).End(xlUp).Vrstica do 2 koraka -1
Vrstice(I).Kopiraj
Vrstice(I).Spremeni velikost(xCount).Vstavi
Naslednji
Application.CutCopyMode = Napačno
End Sub

Prosim, poskusite, upam, da vam lahko pomaga!
Ta komentar je moderator na spletnem mestu minimiziral
Pozdravljeni, potrebujem pomoč, tako izgleda moja tabela, na primer, ko dodam 2 vrstici na konec svoje 1. tabele, želim, da mi vba pomaga, da naredim isto stvar za spodnjo tabelo (dodaj 2 vrstici na konec tabele). Moja naloga bo torej, da moram dodati samo vrstice v 1. tabeli, tabela spodaj bo samodejno ustvarila vrstice na podlagi številk vrstic v 1. tabeli. to je kodiranje, ki sem ga zdaj uporabil za dodajanje vrstice za 1. tabelo. Upam, da mi lahko kdo reši to težavo, thx.Sub InsertNumRows()

ActiveCell.EntireRow.Copy

Dim Rng As Long

Application.DisplayAlerts = False
On Error Resume Next
Rng = InputBox("Vnesite število potrebnih vrstic.")
Ob napaki Pojdi na 0
Application.DisplayAlerts = True

Če je Rng = 0 Potem
MsgBox "Niste navedli obsega!"
Exit Sub

Else
Obseg(ActiveCell.Offset(1, 0), ActiveCell.Offset(Rng, 0)).Izberi
Selection.EntireRow.Insert Shift:=xlDown
Konec Če

End Sub
Ta komentar je moderator na spletnem mestu minimiziral
Všeč mi je! Deluje vsakič! Najlepša hvala za to :)
Ta komentar je moderator na spletnem mestu minimiziral
kako to naredim za stolpce?
Ta komentar je moderator na spletnem mestu minimiziral
Kako lahko to storim za stolpce?
Ta komentar je moderator na spletnem mestu minimiziral
kako izvesti isto dejanje z izbranimi celicami z uporabo VB,


Nekaj ​​izbranih celic (vrstic in stolpcev) moram večkrat ponoviti na istem listu in v enakem vrstnem redu kot:

vrstica1
vrstica2
vrstica3

vrstica1
vrstica2
vrstica3
Ta komentar je moderator na spletnem mestu minimiziral
zdravo, to je delovalo odlično, le da potrebujem dve vrstici, kopirani N-krat. Ali lahko prilagodite kodo, tako da ko izberem dve vrstici, bo potem ti dve vrstici kopirala N-krat navzdol? Hvala za vašo pomoč
Ta komentar je moderator na spletnem mestu minimiziral
Pozdravljeni, Sal,
Če morate večkrat kopirati samo dve vrstici navzdol, morate v tem članku uporabiti samo kodo VBA 1, dvakratna uporaba kode bo rešila vašo težavo. Prosim poskusite, upam, da vam lahko pomaga!
Ta komentar je moderator na spletnem mestu minimiziral
Kopirajte in vstavite vsako vrstico večkrat s kodo VBA

V kodi VBA, kako lahko izberem začetno vrstico
Ta komentar je moderator na spletnem mestu minimiziral
Brez funkcije v sistemu Windows 2019, deseo usar la función en mención pero simplemente no hace absolutamente nada
Ta komentar je moderator na spletnem mestu minimiziral
pozdravljeni vsi.. vnaprej hvala za pomoč!!

Koda VBA za večkratno podvajanje ene določene vrstice deluje popolnoma, dokler ne uporabite filtra. Zanima me, če mi lahko kdo pomaga rešiti to težavo. Potrebujem kodo, ki deluje, tudi če imate filtrirane nekatere vrednosti. Uporabljam veliko količino podatkov, ki so razvrščeni po lokacijah. Koda delno deluje, prilepi število željenih vrstic, vendar brez podatkov ali oblike, ko sem uporabil filter.
Ta komentar je moderator na spletnem mestu minimiziral
Pozdravljeni, ali je mogoče uporabiti različne velikosti (vrednosti) za vsako vrstico? Poskušam uporabiti vektor, vendar ne deluje.
Na primer:
Vrstice(I).Spremeni velikost(xCount(y)).Vstavi

Kjer se vrednosti, shranjene v xCount(y), preberejo iz tabele.
Ta komentar je moderator na spletnem mestu minimiziral
Pozdravljeni, Guss,
Morda vam bo spodnji članek lahko pomagal, preverite ga:
https://www.extendoffice.com/documents/excel/4054-excel-duplicate-rows-based-on-cell-value.html
Ta komentar je moderator na spletnem mestu minimiziral
Za drugo kodo VBA (koda VBA: vsako vrstico podvoji večkrat) vedno dobivam napako med izvajanjem: 1004
Tu še ni objavljenih komentarjev
Obremenitev Več
Pustite vaše komentarje
Objava kot gost
×
Ocenite to objavo:
0   Znaki
Predlagane lokacije

Sledi nam

Copyright © 2009 - www.extendoffice.com. | Vse pravice pridržane. Poganja ga ExtendOffice. | Kazalo
Microsoft in logotip Office sta blagovni znamki ali registrirani blagovni znamki družbe Microsoft Corporation v ZDA in / ali drugih državah.
Zaščiteno s Sectigo SSL