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
- Indsæt specifikt antal tomme rækker i dataområdet baseret på celleværdier med VBA-kode
- Indsæt specifikt antal tomme rækker i dataområdet med faste intervaller med en praktisk funktion
- Kopier og indsæt rækker flere gange baseret på bestemte tal med VBA-kode
- Kopier og indsæt rækker flere gange baseret på bestemte tal med en fantastisk funktion
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.
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.
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.
- Indsæt en tom række efter specifik tekst i Excel
- Hvis du vil indsætte tomme rækker efter en bestemt tekst som vist nedenstående skærmbillede, hvordan håndteres det hurtigt og nemt uden at indsætte dem manuelt en efter en?
- 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
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...
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!