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 vstaviti določeno število vrstic v določenih intervalih v Excelu?

V delovnem listu Excel lahko vstavite prazno vrstico med obstoječimi vrsticami z uporabo funkcije Vstavi. Ampak, če imate velik obseg podatkov in morate po vsaki tretji vrstici vstaviti dve prazni vrstici, kako hitro lahko to delo opravite hitro in enostavno?

V določene podatke vstavite določeno število vrstic v določenih intervalih s kodo VBA

Vstavite določeno število vrstic v podatke v določenih intervalih z Kutools for Excel


V določene faze vstavite določeno število vrstic ali stolpcev v podatke:

Kutools za ExcelJe Vstavi prazne vrstice in stolpce vam lahko pomaga, da v obstoječe podatke vstavite vse druge ali n-ove vrstice ali stolpce.

doc-vstaviti-vrstice-vrednosti-spremembe-17

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!



Naslednja VBA koda vam lahko pomaga pri vstavljanju določenega števila vrstic po vsaki n-ti vrstici znotraj obstoječih podatkov. Prosimo, naredite naslednje:

1. Drži dol ALT + F11 ključi v Excelu in odpre Microsoft Visual Basic za aplikacije okno.

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

VBA koda: V določenih intervalih vstavite določeno število vrstic v podatke

Sub InsertRowsAtIntervals()
'Updateby20150707
Dim Rng As Range
Dim xInterval As Integer
Dim xRows As Integer
Dim xRowsCount As Integer
Dim xNum1 As Integer
Dim xNum2 As Integer
Dim WorkRng As Range
Dim xWs As Worksheet
xTitleId = "KutoolsforExcel"
Set WorkRng = Application.Selection
Set WorkRng = Application.InputBox("Range", xTitleId, WorkRng.Address, Type:=8)
xRowsCount = WorkRng.Rows.Count
xInterval = Application.InputBox("Enter row interval. ", xTitleId, 1, Type:=1)
xRows = Application.InputBox("How many rows to insert at each interval? ", xTitleId, 1, Type:=1)
xNum1 = WorkRng.Row + xInterval
xNum2 = xRows + xInterval
Set xWs = WorkRng.Parent
For i = 1 To Int(xRowsCount / xInterval)
    xWs.Range(xWs.Cells(xNum1, WorkRng.Column), xWs.Cells(xNum1 + xRows - 1, WorkRng.Column)).Select
    Application.Selection.EntireRow.Insert
    xNum1 = xNum1 + xNum2
Next
End Sub

3. Po preklapljanju te kode, pritisnite F5 Če želite zagnati to kodo, se bo izpisalo polje za hitro klicanje in ostalo boste izbrali obseg podatkov, v katerega želite vstaviti prazno vrstico. Oglejte si posnetek zaslona:

doc vstavi vrstice v intervalih 1

4. Kliknite OK gumb, se bo pojavilo drugo okno za takojšnje prijave, vnesite število intervali vrstice, si oglejte posnetek zaslona:

doc vstavi vrstice v intervalih 2

5. Pojdite s klikom OK v naslednjem pozivnem polju, vnesite število praznih vrstic, ki jih želite vstaviti, si oglejte posnetek zaslona:

doc vstavi vrstice v intervalih 3

6. Nato kliknite OK, prazne vrstice pa so bile v rednih intervalih vstavljene v obstoječe podatke, glejte sliko:

doc vstavi vrstice v intervalih 4


Če niste seznanjeni z zgoraj kodo VBA, vam lahko pomagajo tudi Kutools for Excel, zato lahko njena funkcija vstavljanja praznih vrstic in stolpcev hitro in enostavno vstavi določeno število vrstic ali stolpcev v obstoječe podatke v določenih intervalih.

Kutools za Excel : z več kot 300 priročnimi dodatki Excel, lahko brezplačno poskusite brez omejitev v dnevih 60.

Po namestitvi Kutools za Excel, storite naslednje:

1. Izberite obseg podatkov, v katerega želite vstaviti prazne vrstice v intervalih.

2. Kliknite Kutools > Vstavi > Vstavi prazne vrstice in stolpce, si oglejte sliko zaslona:

doc vstavi vrstice v intervalih 5 5

3. v Vstavi prazno vrstico in stolpce izberite pogovorno okno Prazne vrstice or Prazni stolpci potrebujete, od Vstavi vrsto, nato pa določite število intervalov in praznih vrstic, ki jih želite uporabiti, kot je prikazano na zaslonu:

doc vstavi vrstice v intervalih 6

4. Nato kliknite OK gumb in prazne vrstice so bile vstavljene v izbrano območje v določenem intervalu, kot je prikazano spodaj prikazano sliko:

doc vstavi vrstice v intervalih 7

Kliknite, če želite izvedeti več o tem pripomočku »Vstavi prazno vrstico in stolpce«.

Prenesite in brezplačno preizkusite Kutools za Excel zdaj!


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!


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.
    PK · 5 months ago
    hi how can I get the code for Insert specific number of columns into data at fixed intervals
    • To post as a guest, your comment is unpublished.
      skyyang · 5 months ago
      Hello, PK,
      To insert blank columns into existing data at specific intervals, the below VBA code can help you! Please try it.

      Sub InsertColumnsAtIntervals()
      Dim Rng As Range
      Dim xInterval As Integer
      Dim xCs As Integer
      Dim xCCount As Integer
      Dim xNum1 As Integer
      Dim xNum2 As Integer
      Dim WorkRng As Range
      Dim xWs As Worksheet
      xTitleId = "KutoolsforExcel"
      Set WorkRng = Application.Selection
      Set WorkRng = Application.InputBox("Range", xTitleId, WorkRng.Address, Type:=8)
      xCCount = WorkRng.Columns.Count
      xInterval = Application.InputBox("Enter column interval. ", xTitleId, 1, Type:=1)
      xCs = Application.InputBox("How many columns to insert at each interval? ", xTitleId, 1, Type:=1)
      xNum1 = WorkRng.Column + xInterval
      xNum2 = xCs + xInterval
      Set xWs = WorkRng.Parent
      For I = 1 To Int(xCCount / xInterval)
      xWs.Range(xWs.Cells(WorkRng.Row, xNum1 + xCs - 1), xWs.Cells(WorkRng.Row, xNum1)).Select
      Application.Selection.EntireColumn.Insert
      xNum1 = xNum1 + xNum2
      Next
      End Sub
  • To post as a guest, your comment is unpublished.
    Martin · 1 years ago
    Fantastic - you saved me a lot of mindless data entry, thank you very much
  • To post as a guest, your comment is unpublished.
    Manish · 1 years ago
    Hi


    I use interval vba code its working..But when I use above 100000 rows it not working.. kindly suggest what should I change if any.


    Sub InsertRowsAtIntervals()
    'Updateby20150707
    Dim Rng As Range
    Dim xInterval As Integer
    Dim xRows As Integer
    Dim xRowsCount As Integer
    Dim xNum1 As Integer
    Dim xNum2 As Integer
    Dim WorkRng As Range
    Dim xWs As Worksheet
    xTitleId = "KutoolsforExcel"
    Set WorkRng = Application.Selection
    Set WorkRng = Application.InputBox("Range", xTitleId, WorkRng.Address, Type:=8)
    xRowsCount = WorkRng.Rows.Count
    xInterval = Application.InputBox("Enter row interval. ", xTitleId, 1, Type:=1)
    xRows = Application.InputBox("How many rows to insert at each interval? ", xTitleId, 1, Type:=1)
    xNum1 = WorkRng.Row + xInterval
    xNum2 = xRows + xInterval
    Set xWs = WorkRng.Parent
    For i = 1 To Int(xRowsCount / xInterval)
    xWs.Range(xWs.Cells(xNum1, WorkRng.Column), xWs.Cells(xNum1 + xRows - 1, WorkRng.Column)).Select
    Application.Selection.EntireRow.Insert
    xNum1 = xNum1 + xNum2
    Next
    End Sub
  • To post as a guest, your comment is unpublished.
    Atif · 1 years ago
    Thanks AloT!!
  • To post as a guest, your comment is unpublished.
    Stephanie · 1 years ago
    thank you so much!!!!! this is amazing