Salt la conținutul principal

Cum se introduce un număr specific de rânduri la intervale fixe în Excel?

În foaia de lucru Excel, puteți insera un rând gol între rândurile existente utilizând funcția Inserare. Dar, dacă aveți o gamă largă de date și trebuie să inserați două rânduri goale după fiecare al treilea rând, cum ați putea termina această lucrare rapid și convenabil?


Introduceți un număr specific de rânduri goale în intervalul de date la intervale fixe cu codul VBA

Următorul cod VBA vă poate ajuta să inserați un număr specific de rânduri după fiecare al nouălea rând în datele existente. Vă rugăm să faceți următoarele:

1. Țineți apăsat butonul ALT + F11 tastele în Excel și deschide fișierul Microsoft Visual Basic pentru aplicații fereastră.

2. Clic Insera > Moduleși lipiți următorul cod în Fereastra modulului.

Cod VBA: introduceți un anumit număr de rânduri în date la intervale fixe

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. După lipirea acestui cod, vă rugăm să apăsați F5 tasta pentru a rula acest cod, va apărea o casetă de solicitare pentru a vă reaminti să selectați intervalul de date pe care doriți să îl inserați rânduri goale, consultați captura de ecran:

4. Clic OK buton, va apărea o altă casetă de solicitare, vă rugăm să introduceți numărul de intervale de rând, a se vedea captura de ecran:

5. Continuați să faceți clic OK buton, în următoarea casetă de prompt pop-out, vă rugăm să introduceți numărul de rânduri goale pe care doriți să le inserați, vedeți captura de ecran:

6. Apoi apasa OK, iar rândurile goale au fost inserate în datele existente la intervale regulate, consultați capturi de ecran:


Introduceți un anumit număr de rânduri goale în intervalul de date pe baza valorilor celulei cu cod VBA

Uneori, poate fi necesar să introduceți rândurile goale pe baza unei liste de valori ale celulei, în acest caz, codul VBA de mai jos vă poate face o favoare, vă rugăm să faceți acest lucru:

1. Țineți apăsat butonul ALT + F11 tastele în Excel și deschide fișierul Microsoft Visual Basic pentru aplicații fereastră.

2. Clic Insera > Moduleși lipiți următorul cod în Fereastra modulului.

Cod VBA: introduceți un anumit număr de rânduri goale pe baza unei liste de numere:

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. După lipirea acestui cod, apăsați F5 tasta pentru a rula acest cod, în caseta de dialog pop-out, selectați lista numerelor pe care doriți să inserați rânduri goale pe baza, vedeți captura de ecran:

4. Apoi apasa OK, și veți obține rezultatele de care aveți nevoie după cum urmează:


Introduceți un anumit număr de rânduri goale în intervalul de date la intervale fixe, cu o caracteristică utilă

Dacă nu sunteți familiarizați cu codul VBA de mai sus, Kutools pentru Excel De asemenea, vă poate ajuta Introduceți rânduri și coloane goale caracteristica poate insera rapid și ușor un anumit număr de rânduri sau coloane în datele existente la intervale fixe.

Notă:Pentru a aplica acest lucru Introduceți rânduri și coloane goale , în primul rând, ar trebui să descărcați fișierul Kutools pentru Excel, apoi aplicați caracteristica rapid și ușor.

După instalare Kutools pentru Excel, vă rugăm să faceți următoarele:

1. Selectați intervalul de date pe care doriți să îl inserați la intervale de rânduri goale.

2. Clic Kutools > Insera > Introduceți rânduri și coloane goale, vezi captura de ecran:

3. În Introduceți rândul și coloanele goale caseta de dialog, alegeți Rânduri goale opțiune din Tipul de inserare, apoi specificați numărul de intervale și rânduri goale pe care doriți să le utilizați după cum urmează:

4. Apoi apasa OK , iar rândurile goale au fost inserate în intervalul selectat la un anumit interval, după cum se arată în următoarea captură de ecran:

Descărcați și proba gratuită Kutools pentru Excel acum!


Copiați și inserați rânduri de mai multe ori pe baza unor numere specifice cu cod VBA

Să presupunem că aveți o gamă de tada și acum doriți să copiați fiecare rând și să le lipiți de mai multe ori pe rândul următor pe baza unei liste de numere, așa cum se arată în capturile de ecran de mai jos. Cum ar putea rezolva această sarcină în foaia de lucru Excel?

Pentru a face față acestui job, vă voi introduce un cod util, vă rugăm să parcurgeți pașii următori:

1. Țineți apăsat butonul ALT + F11 tastele în Excel și deschide fișierul Microsoft Visual Basic pentru aplicații fereastră.

2. Clic Insera > Moduleși lipiți următorul cod în Fereastra modulului.

Cod VBA: copiați și inserați rânduri de mai multe ori pe baza unor numere specifice:

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. După lipirea acestui cod, apăsați F5 tasta pentru a rula acest cod, în caseta de dialog pop-out, selectați lista numerelor pe care doriți să le copiați și introduceți rândurile de date pe baza, vedeți captura de ecran:

4. Apoi apasa OK și numărul specific de rânduri au fost copiate și lipite sub fiecare rând original, consultați capturi de ecran:


Copiați și inserați rânduri de mai multe ori pe baza unor numere specifice cu o caracteristică uimitoare

Dacă aveţi Kutools pentru Excel, Cu său Duplicați rânduri / coloane pe baza valorii celulei caracteristică, puteți insera rândurile sau coloanele pe baza listei de numere rapid și ușor.

Notă:Pentru a aplica acest lucru Duplicați rânduri / coloane pe baza valorii celulei, în primul rând, ar trebui să descărcați fișierul Kutools pentru Excel, apoi aplicați caracteristica rapid și ușor.

După instalare Kutools pentru Excel, vă rugăm să faceți următoarele:

1. Clic Kutools > Insera > Duplicați rânduri / coloane pe baza valorii celulei, vezi captura de ecran:

2. În Copiați și inserați rânduri și coloane fereastră de dialog, selectați Copiați și inserați rânduri opțiune în Tip secțiune, apoi selectați intervalul de date pe care doriți să îl copiați, apoi specificați lista valorilor pe care doriți să copiați rândurile pe baza, vedeți captura de ecran:

4. Apoi apasa Ok or Aplică , veți obține următorul rezultat după cum aveți nevoie:

Descărcați și proba gratuită Kutools pentru Excel acum!

Mai multe articole relative:

  • Copiați și inserați rândul de mai multe ori sau copiați rândul X Times
  • În munca dvs. zilnică, ați încercat vreodată să copiați un rând sau fiecare rând și apoi să inserați de mai multe ori sub rândul de date curent într-o foaie de lucru? De exemplu, am o gamă de celule, acum vreau să copiez fiecare rând și să le lipesc de 3 ori pe rândul următor, după cum se arată în următoarea captură de ecran. Cum ați putea face față acestui job în Excel?
  • Introduceți rânduri goale atunci când valoarea se schimbă în Excel
  • Presupunând că aveți o gamă de date și acum doriți să inserați rânduri goale între date atunci când valoarea se schimbă, astfel încât să puteți separa aceleași valori secvențiale într-o singură coloană, după cum se arată în următoarele capturi de ecran. În acest articol, voi vorbi despre câteva trucuri pentru a rezolva această problemă.
  • Copiați rândurile din mai multe foi de lucru pe baza criteriilor într-o foaie nouă
  • Să presupunem că aveți un registru de lucru cu trei foi de lucru care au aceeași formatare ca și imaginea de mai jos. Acum, doriți să copiați toate rândurile din aceste foi de lucru în care coloana C conține textul „Finalizat” într-o nouă foaie de lucru. Cum ați putea rezolva această problemă rapid și ușor fără a le copia și lipi manual unul câte unul?

Cele mai bune instrumente de productivitate de birou

Caracteristici populare: Găsiți, evidențiați sau identificați duplicatele   |  Ștergeți rândurile goale   |  Combinați coloane sau celule fără a pierde date   |   Rundă fără Formula ...
Super căutare: VLookup cu mai multe criterii    VLookup cu valori multiple  |   VLookup pe mai multe foi   |   Căutare fuzzy ....
Listă derulantă avansată: Creați rapid o listă derulantă   |  Listă drop-down dependentă   |  Listă derulantă cu selectare multiplă ....
Manager de coloane: Adăugați un număr specific de coloane  |  Mutați coloanele  |  Comutați starea vizibilității coloanelor ascunse  |  Comparați intervale și coloane ...
Caracteristici prezentate: Focus pe grilă   |  Vedere de proiectare   |   Big Formula Bar    Manager registru de lucru și foi   |  Biblioteca de resurse (Text automat)   |  Data Picker   |  Combinați foi de lucru   |  Criptare/Decriptare celule    Trimiteți e-mailuri după listă   |  Super Filtru   |   Filtru special (filtrează bold/italic/barat...) ...
Top 15 seturi de instrumente12 Text Instrumente (Adăuga text, Eliminați caractere,...)   |   50+ Diagramă Tipuri de (Gantt Chart,...)   |   40+ Practic Formule (Calculați vârsta pe baza zilei de naștere,...)   |   19 inserare Instrumente (Introduceți codul QR, Inserați imaginea din cale,...)   |   12 Convertire Instrumente (Numere la cuvinte, conversie valutara,...)   |   7 Merge & Split Instrumente (Rânduri combinate avansate, Celule divizate,...)   |   ... și altele

Îmbunătățiți-vă abilitățile Excel cu Kutools pentru Excel și experimentați eficiența ca niciodată. Kutools pentru Excel oferă peste 300 de funcții avansate pentru a crește productivitatea și a economisi timp.  Faceți clic aici pentru a obține funcția de care aveți cea mai mare nevoie...

fila kte 201905


Fila Office aduce interfața cu file în Office și vă face munca mult mai ușoară

  • Activați editarea și citirea cu file în Word, Excel, PowerPoint, Publisher, Access, Visio și Project.
  • Deschideți și creați mai multe documente în filele noi ale aceleiași ferestre, mai degrabă decât în ​​ferestrele noi.
  • Vă crește productivitatea cu 50% și reduce sute de clicuri de mouse pentru dvs. în fiecare zi!
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