Namig: drugi jeziki so prevedeni v Google. Lahko obiščete English različico te povezave.
Vpiši se
x
or
x
x
Registracija
x

or

Kako kopirati in vstaviti vrstico večkrat ali podvojiti vrstico x krat v Excelu?

V vsakodnevnem delu ste že kdaj poskusili kopirati vrstico ali vsako vrstico in nato vstaviti večkrat pod trenutno podatkovno vrstico na delovnem listu? Na primer, imam nabor celic, zdaj želim kopirati vsako vrstico in jih prilepiti v 3-krat na naslednjo vrstico, kot je prikazano na zaslonu. Kako se lahko ukvarjaš s to službo v Excelu?

doc kopiranje vstavi x krat 1

Kopirajte in vstavite določeno vrstico večkrat s kodo VBA

Kopirajte in vstavite vsako vrstico večkrat s kodo VBA

Kopirajte in vstavite določeno vrstico za vsako drugo ali nesto vrstico s Kutools za Excel


puščica modra desno mehurček Kopirajte in vstavite določeno vrstico za vsako drugo ali nesto vrstico s Kutools za Excel

Kopirajte in vstavite določeno vrstico za vsako drugo ali n-to vrstico

z Kutools za Excel's Vstavi vrstice naslovov funkcijo, lahko hitro kopirate in vstavite določeno vrstico za vsako drugo ali n-točko hkrati.

doc kopiranje vstavi x krat 5

Kutools za Excel: z več kot 200 priročnimi dodatki Excel, lahko brezplačno poskusite brez omejitev v dnevih 60. Prenesite in brezplačno preizkusite zdaj!


puščica modra desno mehurček Kopirajte in vstavite določeno vrstico večkrat s kodo VBA

Če želite podvojiti samo eno določeno vrstico x krat, vam lahko pomaga naslednja koda VBA, storite to:

1. Določite vrstico, ki jo želite kopirati in vstaviti večkrat, nato pa držite ALT + F11 tipke, nato pa odpre Microsoft Visual Basic za aplikacije okno.

2. Kliknite Vstavi > Moduli, in prilepite naslednjo kodo v Moduli Okno.

VBA koda: podvojite eno določeno vrstico večkrat:

Sub test()
'Updateby Extendoffice 20160616
    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 ključ, da zaženete to kodo, nato pa se odpre opozorilno polje, ki vas opomni, da vnesete število ponovitev, ki ga želite podvojiti, glejte sliko zaslona:

doc kopiranje vstavi x krat 2

4. Nato kliknite OK gumb in štiri nove kopirane vrstice so bile vstavljene pod izbrano vrstico, glejte sliko zaslona:

doc kopiranje vstavi x krat 3


puščica modra desno mehurček Kopirajte in vstavite vsako vrstico večkrat s kodo VBA

Če želite posamezne vrstice podvojiti večkrat v razponu, lahko uporabite naslednjo kodo VBA, naredite spodaj:

1. Drži dol ALT + F11 tipke, nato pa odpre Microsoft Visual Basic za aplikacije okno.

2. Kliknite Vstavi > Moduli, in prilepite naslednjo kodo v Moduli Okno.

VBA koda: podvojite vsako vrstico večkrat:

Sub insertrows()
'Updateby Extendoffice 2016616
    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 1 Step -1
        Rows(I).Copy
        Rows(I).Resize(xCount).Insert
    Next
    Application.CutCopyMode = False
End Sub

3. In nato pritisnite F5 ključ, da zaženete to kodo, nato pa se odpre opozorilo, da vas opomni, vnesite število ponovitev, ki ga želite podvojiti za vsak zapis. Oglejte si posnetek zaslona:

doc kopiranje vstavi x krat 4

4. Nato kliknite OK, vsaka vrstica pa je bila kopirana in vstavljena 3-krat pod aktivnimi, glejte sliko:

doc kopiranje vstavi x krat 1

Opombe: V zgornji kodi, 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ša potreba.


Priporočena orodja za produktivnost za Excel

zavihek kte 201905

Kutools za Excel vam pomaga, da vedno končate delo pred časom in izstopite iz množice

  • Več kot zmogljive napredne funkcije 300, zasnovane za 1500 delovne scenarije, ki povečujejo produktivnost z 70%, vam dajejo več časa za skrb za družino in uživanje v življenju.
  • Ne potrebujete več pomnilniških formul in VBA kod, od zdaj naprej pa dajate svojim možganom počitek.
  • Postanite strokovnjak za Excel v minutah 3, zapletene in ponavljajoče se operacije lahko opravite v nekaj sekundah,
  • Vsak dan zmanjšajte število operacij tipkovnice in miške, zdaj se poslovite od poklicnih bolezni.
  • 110,000 visoko učinkovite ljudi in 300 + svetovno priznanih podjetij izbiro.
  • Brezplačna preizkusna različica 60 dneva. 60-dnevno jamstvo vračila denarja. 2 let brezplačne nadgradnje in podpore.

Prinaša kartično brskanje in urejanje za Microsoft Office, veliko močnejši od zavihkov brskalnika

  • Office Tab je namenjen za Word, Excel, PowerPoint in druge Office aplikacije: Založnik, Dostop, Visio in Projekt.
  • Odprite in ustvarite več dokumentov v novih zavihkih istega okna in ne v novih oknih.
  • Z 50% poveča vašo produktivnost in vsak dan zmanjša na stotine klikov z miško!
Say something here...
symbols left.
You are guest ( Sign Up? )
or post as a guest, but your post won't be published automatically.
Loading comment... The comment will be refreshed after 00:00.
  • To post as a guest, your comment is unpublished.
    Deep Saha · 17 days ago
    how to perform the same action with selected cells using VB,


    I need to repeat a few selected cells (rows and columns) x no of times in the same sheet and in the same order as:

    line1
    line2
    line3

    line1
    line2
    line3
  • To post as a guest, your comment is unpublished.
    Jamar · 2 months ago
    How can I do this for columns?
  • To post as a guest, your comment is unpublished.
    Jamar · 2 months ago
    how do I do this for columns?
  • To post as a guest, your comment is unpublished.
    Andreea · 5 months ago
    Love it! It works every time! Thank you so much for this :)
  • To post as a guest, your comment is unpublished.
    Sashitharan Govindasamy · 8 months ago
    Hello, I need help, this is how my table looks, for example, when I add 2 row at the end of my 1st table, I want the vba help me to do the same thing for the table below (add 2 rows at the end of the table). So my job will be, only need to add rows at the 1st table, the table bellows all will generate rows automatically based on numbers of row in the 1st table. the are the coding I used now to add row for the 1st table. I hope someone can solve this issue for me, thx.Sub InsertNumRows()

    ActiveCell.EntireRow.Copy

    Dim Rng As Long

    Application.DisplayAlerts = False
    On Error Resume Next
    Rng = InputBox("Enter number of rows required.")
    On Error GoTo 0
    Application.DisplayAlerts = True

    If Rng = 0 Then
    MsgBox "You didn't specify a range!"
    Exit Sub

    Else
    Range(ActiveCell.Offset(1, 0), ActiveCell.Offset(Rng, 0)).Select
    Selection.EntireRow.Insert Shift:=xlDown
    End If

    End Sub