Preskoči na glavno vsebino

Kako v Excel vstaviti določeno število vrstic v določenih intervalih?

V Excelov delovni list lahko s pomočjo funkcije Vstavi vstavi prazno vrstico med obstoječe vrstice. Če pa imate velik obseg podatkov in morate za vsako tretjo vrstico vstaviti dve prazni vrstici, kako lahko to delo končate hitro in priročno?


V podatkovno območje v določenih intervalih s kodo VBA vstavite določeno število praznih vrstic

Naslednja koda VBA vam lahko pomaga vstaviti določeno število vrstic po vsaki n-ti vrstici znotraj obstoječih podatkov. Naredite naslednje:

1. Držite tipko ALT + F11 tipke v Excelu in odpre Microsoft Visual Basic za aplikacije okno.

2. Kliknite Vstavi > Moduliin prilepite naslednjo kodo v Okno modula.

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

Sub InsertRowsAtIntervals()
'Updateby Extendoffice
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 lepljenju te kode pritisnite F5 tipko za zagon te kode, se bo pojavilo pozivno polje, ki vas bo opozorilo na izbiro obsega podatkov, v katerega želite vstaviti prazne vrstice, glejte posnetek zaslona:

4. Kliknite OK gumb, se bo pojavilo drugo pozivno polje, vnesite število intervalov vrstic, glejte posnetek zaslona:

5. Pojdi na klik OK gumb, v naslednje izpustno polje za vnos vnesite število praznih vrstic, ki jih želite vstaviti, glejte posnetek zaslona:

6. Nato kliknite OK, in prazne vrstice so bile redno vstavljene v obstoječe podatke, glejte posnetke zaslona:


V podatkovno območje vstavite določeno število praznih vrstic na podlagi vrednosti celic s kodo VBA

Včasih boste morda morali vstaviti prazne vrstice na podlagi seznama vrednosti celic, v tem primeru vam lahko spodnja koda VBA naredi uslugo, storite tako:

1. Držite tipko ALT + F11 tipke v Excelu in odpre Microsoft Visual Basic za aplikacije okno.

2. Kliknite Vstavi > Moduliin prilepite naslednjo kodo v Okno modula.

Koda VBA: Vnesite določeno število praznih vrstic na podlagi seznama številk:

Sub Insertblankrowsbynumbers ()
'UpdatebyExtendoffice
Dim xRg As Range
Dim xAddress As String
Dim I, xNum, xLastRow, xFstRow, xCol, xCount As Long
On Error Resume Next
xAddress = ActiveWindow.RangeSelection.Address
Set xRg = Application.InputBox("Select the spefic number column to use(single column):", "Kutools For Excel", xAddress, , , , , 8)
If xRg Is Nothing Then Exit Sub
Application.ScreenUpdating = False
xLastRow = xRg(1).End(xlDown).Row
xFstRow = xRg.Row
xCol = xRg.Column
xCount = xRg.Count
Set xRg = xRg(1)
For I = xLastRow To xFstRow Step -1
xNum = Cells(I, xCol)
If IsNumeric(xNum) And xNum > 0 Then
Rows(I + 1).Resize(xNum).Insert
xCount = xCount + xNum
End If
Next
xRg.Resize(xCount, 1).Select
Application.ScreenUpdating = True
End Sub

3. Po lepljenju te kode pritisnite F5 tipko za zagon te kode, v pojavnem pogovornem oknu izberite seznam številk, na podlagi katerih želite vstaviti prazne vrstice, glejte posnetek zaslona:

4. Nato kliknite OK, in dobili boste potrebne rezultate, kot je prikazano na naslednjih posnetkih zaslona:


V priročno območje vstavite določeno število praznih vrstic v obseg podatkov s priročno funkcijo

Če niste seznanjeni z zgornjo kodo VBA, Kutools za Excel lahko vam tudi pomaga, njegovo Vstavite prazne vrstice in stolpce Funkcija lahko v določene intervale hitro in enostavno vstavi določeno število vrstic ali stolpcev v obstoječe podatke.

Opomba:Če želite uporabiti to Vstavite prazne vrstice in stolpce , najprej bi morali prenesti Kutools za Excelin nato funkcijo hitro in enostavno uporabite.

Po namestitvi Kutools za Excel, naredite naslednje:

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

2. Kliknite Kutools > Vstavi > Vstavite prazne vrstice in stolpce, glej posnetek zaslona:

3. v Vstavi prazne vrstice in stolpce izberite pogovorno okno Prazne vrstice možnost iz Vstavi vrstoin nato določite število intervalnih in praznih vrstic, ki jih želite uporabiti, kot je prikazano na sliki spodaj:

4. Nato kliknite OK in prazne vrstice so bile v določen interval vstavljene v izbrani obseg, kot je prikazano na sliki spodaj:

Prenesite in brezplačno preizkusite Kutools za Excel zdaj!


Kopirajte in vstavite vrstice večkrat na podlagi določenih številk s kodo VBA

Recimo, da imate obseg tada, zdaj pa želite kopirati vsako vrstico in jih večkrat prilepiti v naslednjo vrstico na podlagi seznama številk, kot je prikazano spodaj. Kako lahko rešim to nalogo v Excelovem delovnem listu?

Za reševanje tega dela vam bom predstavil koristno kodo, naredite naslednje:

1. Držite tipko ALT + F11 tipke v Excelu in odpre Microsoft Visual Basic za aplikacije okno.

2. Kliknite Vstavi > Moduliin prilepite naslednjo kodo v Okno modula.

Koda VBA: Kopirajte in vstavite vrstice večkrat glede na določene številke:

Sub CopyRows()
'UpdatebyExtendoffice
Dim xRg As Range
Dim xCRg As Range
Dim xFNum As Integer
Dim xRN As Integer
On Error Resume Next
SelectRange:
xTxt = ActiveWindow.RangeSelection.Address
Set xRg = Application.InputBox("Select the list of numbers to copy the rows based on: ", "Kutools for Excel", xTxt, , , , , 8)
If xRg Is Nothing Then Exit Sub

If xRg.Columns.Count > 1 Then
MsgBox "Please select single column!"
GoTo SelectRange
End If
Application.ScreenUpdating = False
For xFNum = xRg.Count To 1 Step -1
Set xCRg = xRg.Item(xFNum)
xRN = CInt(xCRg.Value)
With Rows(xCRg.Row)
.Copy
.Resize(xRN).Insert
End With
Next
Application.ScreenUpdating = True
End Sub

3. Po lepljenju te kode pritisnite F5 tipko za zagon te kode, v pojavnem pogovornem oknu izberite seznam številk, ki jih želite kopirati, in vstavite podatkovne vrstice na podlagi, glejte posnetek zaslona:

4. Nato kliknite OK in določeno število vrstic je bilo kopirano in prilepljeno pod vsako izvirno vrstico, glejte posnetke zaslona:


Kopirajte in vstavite vrstice večkrat na podlagi določenih številk z neverjetno funkcijo

Če imate Kutools za Excel, Z njegovim Podvojene vrstice / stolpci na podlagi vrednosti celice vrstico ali stolpce lahko hitro in enostavno vstavite glede na seznam številk.

Opomba:Če želite uporabiti to Podvojene vrstice / stolpci na podlagi vrednosti celice, najprej bi morali prenesti Kutools za Excelin nato funkcijo hitro in enostavno uporabite.

Po namestitvi Kutools za Excel, naredite naslednje:

1. Kliknite Kutools > Vstavi > Podvojene vrstice / stolpci na podlagi vrednosti celice, glej posnetek zaslona:

2. 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 navedite seznam vrednosti, na podlagi katerih želite kopirati vrstice, glejte posnetek zaslona:

4. Nato kliknite Ok or Uporabi gumb, boste dobili naslednji rezultat, kot ga potrebujete:

Prenesite in brezplačno preizkusite Kutools za Excel zdaj!

Več relativnih člankov:

  • Kopirajte in vstavite vrstico večkrat ali podvojite vrstico X Times
  • 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?
  • Vstavite prazne vrstice, ko se vrednost v Excelu spremeni
  • Recimo, da imate obseg podatkov in zdaj želite med podatke vstaviti prazne vrstice, ko se vrednost spremeni, tako da lahko zaporedoma enake vrednosti ločite v enem stolpcu, kot kažejo naslednji prikazani posnetki zaslona. V tem članku bom spregovoril o nekaj trikih, s katerimi boste rešili to težavo.
  • Kopirajte vrstice iz več delovnih listov na podlagi meril v nov list
  • Recimo, da imate delovni zvezek s tremi delovnimi listi, ki imajo enako obliko kot spodnja slika zaslona. Zdaj želite kopirati vse vrstice s teh delovnih listov, stolpec C vsebuje besedilo »Dokončano«, v nov delovni list. Kako lahko to težavo rešite hitro in enostavno, ne da bi jih ročno kopirali in prilepili?

Najboljša pisarniška orodja za produktivnost

🤖 Kutools AI Aide: Revolucionirajte analizo podatkov na podlagi: Inteligentna izvedba   |  Ustvari kodo  |  Ustvarite formule po meri  |  Analizirajte podatke in ustvarite grafikone  |  Prikličite funkcije Kutools...
Priljubljene funkcije: Poiščite, označite ali identificirajte dvojnike   |  Izbriši prazne vrstice   |  Združite stolpce ali celice brez izgube podatkov   |   Krog brez formule ...
Super iskanje: Več kriterijev VLookup    Multiple Value VLookup  |   VLookup na več listih   |   Nejasno iskanje ....
Napredni spustni seznam: Hitro ustvarite spustni seznam   |  Odvisni spustni seznam   |  Večkrat izberite spustni seznam ....
Upravitelj stolpcev: Dodajte določeno število stolpcev  |  Premakni stolpce  |  Preklop stanja vidnosti skritih stolpcev  |  Primerjaj obsege in stolpce ...
Predstavljene funkcije: Mrežni fokus   |  Pogled oblikovanja   |   Velika vrstica formule    Upravitelj delovnih zvezkov in listov   |  Knjižnica virov (Samodejno besedilo)   |  Izbirnik datuma   |  Združite delovne liste   |  Šifriranje/dešifriranje celic    Pošljite e-pošto po seznamu   |  Super filter   |   Poseben filter (filter krepko/ležeče/prečrtano ...) ...
15 najboljših kompletov orodij12 Besedilo Orodja (dodajanje besedila, Odstrani znake,...)   |   50 + Graf Vrste (Gantt Chart,...)   |   40+ Praktično Formule (Izračunajte starost glede na rojstni dan,...)   |   19 vstavljanje Orodja (Vstavite kodo QR, Vstavi sliko s poti,...)   |   12 Pretvorba Orodja (Številke v besede, Pretvorba valut,...)   |   7 Spoji in razdeli Orodja (Napredne kombinirane vrstice, Razdeljene celice,...)   |   ... in več

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

Opis


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!
Comments (39)
Rated 5 out of 5 · 2 ratings
This comment was minimized by the moderator on the site
Marvelous vba script!
I had over 5000 rows that i need to add new rows to in between. All other guides told me to make "helper" column it would take me good part of my life to add 1,2 copy paste over and over again just to add new rows.
So, Thanks for this!
Rated 5 out of 5
This comment was minimized by the moderator on the site
hola, hay algun codigo que me permita copiar los datos, pero que en la primera columna que son fechas puedan ser consecutivas.

ejemplo

en vez de que quede asi

10/01/2022 19.258.369-4 Juan Ramirez
10/01/2022 19.258.369-4 Juan Ramirez
10/01/2022 19.258.369-4 Juan Ramirez

quede asi

10/01/2022 19.258.369-4 Juan Ramirez
11/01/2022 19.258.369-4 Juan Ramirez
12/01/2022 19.258.369-4 Juan Ramirez

gracias
This comment was minimized by the moderator on the site
hola, hay algun codigo que me permita copiar los datos, pero que en la primera columna que son fechas pueda ser consecutivo.

ejemplo

en vez de que quede asi

01/10/2022 19.258.369-4 Juan Ramirez
01/10/2022 19.258.369-4 Juan Ramirez
01/10/2022 19.258.369-4 Juan Ramirez

quede asi

01/10/2022 19.258.369-4 Juan Ramirez
02/10/2022 19.258.369-4 Juan Ramirez
03/10/2022 19.258.369-4 Juan Ramirez

gracias
This comment was minimized by the moderator on the site
Name Email Phone Address
0 Name Email Phone Adress
address line 2 Name Phone 0
Name Email Phone Adress
0 Name Email Phone Adress
address line 2 0


How could I edit this to start a new row at every empty value or 0 value without having phone numbers with 0 start a new row?
This comment was minimized by the moderator on the site
Hello, Jarrod

Sorry, I can't get your problem clearly.
Could you explain your problem more detailed? Or you can insert a screenshot or file here.
Thank you!
This comment was minimized by the moderator on the site
Вот выручили так выручили!
Сидел, ломал голову как добавить строки по заданному количеству.
Ваш макрос мне очень помог.
Rated 5 out of 5
This comment was minimized by the moderator on the site
can you tell me how to insert column like this way , what is the code
This comment was minimized by the moderator on the site
Hello friend,
You can use this VBA code:

Sub InsertColumnsAtIntervals()

'Updateby Extendoffice

Dim Rng As Range

Dim xInterval As Integer

Dim xColumns As Integer

Dim xColumnsCount 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)

xColumnsCount = WorkRng.Columns.Count

xInterval = Application.InputBox("Enter column interval. ", xTitleId, 1, Type:=1)

xColumns = Application.InputBox("How many columns to insert at each interval? ", xTitleId, 1, Type:=1)

xNum1 = WorkRng.Column + xInterval

xNum2 = xColumns + xInterval

Set xWs = WorkRng.Parent

For i = 1 To Int(xColumnsCount / xInterval)

    xWs.Range(xWs.Cells(WorkRng.Row, xNum1), xWs.Cells(WorkRng.Row, xNum1 + xColumns - 1)).Select

    Application.Selection.EntireColumn.Insert

    xNum1 = xNum1 + xNum2

Next

End Sub


Sincerely,
Mandy
This comment was minimized by the moderator on the site
Muito obrigado, salvou meu trabalho, eu não tinha ideia de como fazer. Muito obrigado mesmo!
This comment was minimized by the moderator on the site
Hello,
You are welcome. Glad it helps. Any questions, please feel free to contact us. Have a great day.
Sincerely,
Mandy
This comment was minimized by the moderator on the site
This is so Cool!! Thanks a lot
This comment was minimized by the moderator on the site
Can I get the VBA code for deletion of rows based on duplicate values in a selected column keeping all unique values?
This comment was minimized by the moderator on the site
Hello, Roy,If you want to remove rows based on duplicate values, normally, you can use the Remove Duplicates feature in Excel to remove the rows.Of course, if you need a VBA code, please use the below code: (First, you should select the data range that you want to remove, and then run this code, the rows based on the duplicate values in the first column of your selection will be removed at once. )<div data-tag="code">Sub Delete_duplicate_rows()
Dim Rng As Range
Set Rng = Selection
Rng.RemoveDuplicates Columns:=Array(1), Header:=xlYes
End SubPlease try, hope it can help you!
This comment was minimized by the moderator on the site
Thank you author! You deserve the best commendation for these! But please could you help me out with the code to put a constant value into all blank rows I created with your code above? To make myself more clearer, I need to insert a constant value into all blank rows (this solved already with your code above) then I need to insert a constant value into all of the blank rows (this is my problem). Thank you as I expect your kind response.
This comment was minimized by the moderator on the site
Hello, Do you mean to fill blank rows with specific value? If so, mabe the following article cna help you:https://www.extendoffice.com/documents/excel/772-excel-fill-blank-cells-with-0-or-specific-value.html
Please try it.
There are no comments posted here yet
Load More
Please leave your comments in English
Posting as Guest
×
Rate this post:
0   Characters
Suggested Locations