Gå til hovedindhold

Hvordan indsættes specifikt antal rækker med faste intervaller i Excel?

I Excel-regneark kan du indsætte en tom række mellem eksisterende rækker ved hjælp af funktionen Indsæt. Men hvis du har et stort udvalg af data, og du skal indsætte to tomme rækker efter hver tredje ottende række, hvordan kan du afslutte dette job hurtigt og bekvemt?


Indsæt specifikt antal tomme rækker i dataområdet med faste intervaller med VBA-kode

Følgende VBA-kode kan hjælpe dig med at indsætte et specifikt antal rækker efter hver niende række inden for eksisterende data. Gør følgende:

1. Hold nede ALT + F11 nøgler i Excel, og det åbner Microsoft Visual Basic til applikationer vindue.

2. Klik indsatte > Moduler, og indsæt følgende kode i Modul vindue.

VBA-kode: Indsæt specifikt antal rækker i data med faste intervaller

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. Når du har indsat denne kode, skal du trykke på F5 nøgle til at køre denne kode, vises et promptfelt for at minde dig om at vælge det dataområde, som du vil indsætte tomme rækker, se skærmbillede:

4. Klik OK knap, en anden promptboks vises. Indtast venligst antallet af rækkeintervaller, se skærmbillede:

5. Fortsæt med at klikke OK knap, i følgende poppede boks ud, bedes du indtaste antallet af tomme rækker, som du vil indsætte, se skærmbillede:

6. Klik derefter på OK, og de tomme rækker er indsat i de eksisterende data med jævne mellemrum, se skærmbilleder:


Indsæt specifikt antal tomme rækker i dataområdet baseret på celleværdier med VBA-kode

Nogle gange skal du muligvis indsætte de tomme rækker baseret på en liste over celleværdier. I dette tilfælde kan nedenstående VBA-kode gøre dig en tjeneste, gør venligst som dette:

1. Hold nede ALT + F11 nøgler i Excel, og det åbner Microsoft Visual Basic til applikationer vindue.

2. Klik indsatte > Moduler, og indsæt følgende kode i Modul vindue.

VBA-kode: Indsæt specifikt antal tomme rækker baseret på en liste med tal:

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. Når du har indsat denne kode, skal du trykke på F5 nøgle til at køre denne kode, i den poppede dialogboks skal du vælge listen over numre, som du vil indsætte tomme rækker baseret på, se skærmbillede:

4. Klik derefter på OK, og du får de resultater, du har brug for, som følgende skærmbilleder vist:


Indsæt specifikt antal tomme rækker i dataområdet med faste intervaller med en praktisk funktion

Hvis du ikke er bekendt med ovenstående VBA-kode, Kutools til Excel også kan hjælpe dig, dens Indsæt tomme rækker og kolonner funktionen kan indsætte specifikt antal rækker eller kolonner i eksisterende data med faste intervaller hurtigt og nemt.

Bemærk:At anvende dette Indsæt tomme rækker og kolonner For det første skal du downloade Kutools til Excel, og anvend derefter funktionen hurtigt og nemt.

Efter installation Kutools til Excelskal du gøre som følger:

1. Vælg det dataområde, som du vil indsætte tomme rækker med intervaller.

2. Klik Kutools > indsatte > Indsæt tomme rækker og kolonner, se skærmbillede:

3. I Indsæt tom række og kolonner dialogboksen, vælg Tomme rækker mulighed fra Indsæt type, og angiv derefter antallet af interval og tomme rækker, som du vil bruge som følgende skærmbillede vist:

4. Klik derefter på OK knappen, og de tomme rækker er indsat i det valgte interval med et bestemt interval som følgende skærmbillede vist:

Download og gratis prøveversion Kutools til Excel nu!


Kopier og indsæt rækker flere gange baseret på bestemte tal med VBA-kode

Antag, at du har en række tada, og nu vil du kopiere hver række og indsætte dem flere gange til den næste række baseret på en liste med tal som vist nedenfor. Hvordan kunne løse denne opgave i Excel-regneark?

For at håndtere dette job vil jeg introducere en nyttig kode til dig. Benyt følgende trin:

1. Hold nede ALT + F11 nøgler i Excel, og det åbner Microsoft Visual Basic til applikationer vindue.

2. Klik indsatte > Moduler, og indsæt følgende kode i Modul vindue.

VBA-kode: Kopier og indsæt rækker flere gange baseret på specifikke tal:

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. Når du har indsat denne kode, skal du trykke på F5 nøgle til at køre denne kode, i den poppede dialogboks skal du vælge listen over numre, du vil kopiere, og indsætte datarækkerne baseret på, se skærmbillede:

4. Klik derefter på OK knappen, og det specifikke antal rækker er blevet kopieret og indsat under hver originale række, se skærmbilleder:


Kopier og indsæt rækker flere gange baseret på bestemte tal med en fantastisk funktion

Hvis du har Kutools til Excel, Med Kopier rækker / kolonner baseret på celleværdi funktion, kan du hurtigt og nemt indsætte rækker eller kolonner baseret på listen over numre.

Bemærk:At anvende dette Kopier rækker / kolonner baseret på celleværdiFor det første skal du downloade Kutools til Excel, og anvend derefter funktionen hurtigt og nemt.

Efter installation Kutools til Excelskal du gøre som følger:

1. Klik Kutools > indsatte > Kopier rækker / kolonner baseret på celleværdi, se skærmbillede:

2. I Kopier og indsæt rækker og kolonner dialogboksen, vælg Kopier og indsæt rækker valgmulighed i Type sektion, vælg derefter det dataområde, du vil duplikere, og angiv derefter listen over værdier, som du vil kopiere rækker baseret på, se skærmbillede:

4. Klik derefter på Ok or Indløs knappen, får du følgende resultat, som du har brug for:

Download og gratis prøveversion Kutools til Excel nu!

Flere relative artikler:

  • Kopier og indsæt række flere gange eller duplikér række X gange
  • Har du nogensinde i dit daglige arbejde forsøgt at kopiere en række eller hver række og derefter indsætte flere gange under den aktuelle datarække i et regneark? For eksempel har jeg en række celler, nu vil jeg kopiere hver række og indsætte dem 3 gange til den næste række som vist nedenstående skærmbillede. Hvordan kunne du håndtere dette job i Excel?
  • Indsæt tomme rækker, når værdien ændres i Excel
  • Antag at du har en række data, og nu vil du indsætte tomme rækker mellem dataene, når værdien ændres, så du kan adskille de sekventielle samme værdier i en kolonne som følgende skærmbilleder vist. I denne artikel vil jeg tale om nogle tricks til dig for at løse dette problem.
  • Kopier rækker fra flere regneark baseret på kriterier til et nyt ark
  • Antag, du har en projektmappe med tre regneark, der har samme formatering som vist nedenstående skærmbillede. Nu vil du kopiere alle rækkerne fra disse regneark, hvilken kolonne C indeholder teksten "Fuldført" til et nyt regneark. Hvordan kunne du løse dette problem hurtigt og nemt uden at kopiere og indsætte dem en efter en manuelt?

Bedste kontorproduktivitetsværktøjer

🤖 Kutools AI Aide: Revolutionér dataanalyse baseret på: Intelligent udførelse   |  Generer kode  |  Opret brugerdefinerede formler  |  Analyser data og generer diagrammer  |  Aktiver Kutools funktioner...
Populære funktioner: Find, fremhæv eller identificer dubletter   |  Slet tomme rækker   |  Kombiner kolonner eller celler uden at miste data   |   Runde uden formel ...
Super opslag: VLookup med flere kriterier    Multiple Value VLookup  |   VOpslag på tværs af flere ark   |   Fuzzy Lookup ....
Avanceret rulleliste: Opret hurtigt rulleliste   |  Afhængig rulleliste   |  Multivælg rulleliste ....
Column Manager: Tilføj et bestemt antal kolonner  |  Flyt kolonner  |  Skift synlighedsstatus for skjulte kolonner  |  Sammenlign områder og kolonner ...
Fremhævede funktioner: Grid fokus   |  Designvisning   |   Stor Formel Bar    Arbejdsbog & Ark Manager   |  Ressourcebibliotek (Autotekst)   |  Datovælger   |  Kombiner regneark   |  Krypter/Dekrypter celler    Send e-mails efter liste   |  Superfilter   |   Specielt filter (filter fed/kursiv/gennemstreget...) ...
Top 15 værktøjssæt12 tekst Værktøjer (tilføje tekst, Fjern tegn, ...)   |   50 + Chart Typer (Gantt kort, ...)   |   40+ Praktisk formler (Beregn alder baseret på fødselsdag, ...)   |   19 Indsættelse Værktøjer (Indsæt QR-kode, Indsæt billede fra sti, ...)   |   12 Konvertering Værktøjer (Tal til ord, Valutaomregning, ...)   |   7 Flet og del Værktøjer (Avancerede kombinere rækker, Opdel celler, ...)   |   ... og mere

Overlad dine Excel-færdigheder med Kutools til Excel, og oplev effektivitet som aldrig før. Kutools til Excel tilbyder over 300 avancerede funktioner for at øge produktiviteten og spare tid.  Klik her for at få den funktion, du har mest brug for...

Beskrivelse


Fanen Office bringer en grænseflade til et kontor med Office, og gør dit arbejde meget lettere

  • Aktiver redigering og læsning af faner i Word, Excel, PowerPoint, Publisher, Access, Visio og Project.
  • Åbn og opret flere dokumenter i nye faner i det samme vindue snarere end i nye vinduer.
  • Øger din produktivitet med 50 % og reducerer hundredvis af museklik for dig hver dag!
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