Hoe voeg ik een specifiek aantal rijen in met vaste intervallen in Excel?
In een Excel-werkblad kunt u een lege rij tussen bestaande rijen invoegen met de functie Invoegen. Maar als u een groot gegevensbereik heeft en u moet na elke derde of n-de rij twee lege rijen invoegen, hoe kunt u deze taak dan snel en gemakkelijk voltooien?
- Voeg een specifiek aantal lege rijen in het gegevensbereik in met vaste intervallen met VBA-code
- Voeg een specifiek aantal lege rijen in het gegevensbereik in op basis van celwaarden met VBA-code
- Voeg een specifiek aantal lege rijen in het gegevensbereik in met vaste intervallen met een handige functie
- Kopieer en voeg rijen meerdere keren in op basis van specifieke nummers met VBA-code
- Kopieer en voeg rijen meerdere keren in op basis van specifieke nummers met een geweldige functie
Voeg een specifiek aantal lege rijen in het gegevensbereik in met vaste intervallen met VBA-code
De volgende VBA-code kan u helpen om een specifiek aantal rijen in te voegen na elke n-de rij in bestaande gegevens. Ga als volgt te werk:
1. Houd de ALT + F11 toetsen in Excel, en het opent het Microsoft Visual Basic voor toepassingen venster.
2. Klikken Invoegen > Moduleen plak de volgende code in het Module Venster.
VBA-code: voeg een specifiek aantal rijen in gegevens in met vaste intervallen
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. Druk na het plakken van deze code op F5 toets om deze code uit te voeren, verschijnt er een promptvenster om u eraan te herinneren het gegevensbereik te selecteren dat u lege rijen wilt invoegen, zie screenshot:
4. Klikken OK knop, er verschijnt een ander promptvenster, voer het aantal rij-intervallen in, zie screenshot:
5. Blijf klikken OK knop, voer in het volgende uitgeklapte promptvenster het aantal lege rijen in dat u wilt invoegen, zie screenshot:
6. Dan klikken OK, en de lege rijen zijn met regelmatige tussenpozen in de bestaande gegevens ingevoegd, zie screenshots:
 |
 |
 |
Voeg een specifiek aantal lege rijen in het gegevensbereik in op basis van celwaarden met VBA-code
Soms moet u de lege rijen invoegen op basis van een lijst met celwaarden, in dit geval kan de onderstaande VBA-code u een plezier doen, doe dit als volgt:
1. Houd de ALT + F11 toetsen in Excel, en het opent het Microsoft Visual Basic voor toepassingen venster.
2. Klikken Invoegen > Moduleen plak de volgende code in het Module Venster.
VBA-code: voeg een specifiek aantal lege rijen in op basis van een lijst met nummers:
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. Druk na het plakken van deze code op F5 sleutel om deze code uit te voeren, selecteer in het uitgeklapte dialoogvenster de lijst met nummers waarop u lege rijen wilt invoegen op basis van, zie screenshot:
4. Dan klikken OK, en je krijgt de resultaten die je nodig hebt als volgende screenshots getoond:
 |
|
 |
Voeg een specifiek aantal lege rijen in het gegevensbereik in met vaste intervallen met een handige functie
Als u niet bekend bent met bovenstaande VBA-code, Kutools for Excel kan u ook helpen, zijn Voeg lege rijen en kolommen in feature kan snel en gemakkelijk een specifiek aantal rijen of kolommen invoegen in bestaande gegevens met vaste intervallen.
Na het installeren van Kutools for Excelgaat u als volgt te werk:
1. Selecteer het gegevensbereik waarvoor u met intervallen lege rijen wilt invoegen.
2. Klikken Kutools > Invoegen > Voeg lege rijen en kolommen in, zie screenshot:
3. In de Voeg lege rijen en kolommen in dialoogvenster, kies Lege rijen optie van de Type invoegenen geef vervolgens het aantal intervalrijen en lege rijen op dat u wilt gebruiken, zoals in het volgende screenshot wordt getoond:
4. Dan klikken OK knop, en de lege rijen zijn met een specifiek interval in het geselecteerde bereik ingevoegd zoals in het volgende screenshot:
|
|
|
Download en gratis proef Kutools voor Excel nu!
Kopieer en voeg rijen meerdere keren in op basis van specifieke nummers met VBA-code
Stel dat je een reeks tada's hebt, en nu wil je elke rij kopiëren en meerdere keren in de volgende rij plakken op basis van een lijst met getallen zoals hieronder weergegeven schermafbeeldingen. Hoe kan deze taak in het Excel-werkblad worden opgelost?
 |
|
 |
Om deze klus te klaren, zal ik een nuttige code voor je introduceren, voer de volgende stappen uit:
1. Houd de ALT + F11 toetsen in Excel, en het opent het Microsoft Visual Basic voor toepassingen venster.
2. Klikken Invoegen > Moduleen plak de volgende code in het Module Venster.
VBA-code: kopieer en voeg rijen meerdere keren in op basis van specifieke nummers:
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. Druk na het plakken van deze code op F5 sleutel om deze code uit te voeren, selecteer in het uitgeklapte dialoogvenster de lijst met nummers die u wilt kopiëren en voeg de gegevensrijen in op basis van, zie screenshot:
4. Dan klikken OK knop, en het specifieke aantal rijen is gekopieerd en geplakt onder elke originele rij, zie screenshots:
|
|
|
Kopieer en voeg rijen meerdere keren in op basis van specifieke nummers met een geweldige functie
Als je Kutools for Excel, Met Dubbele rijen / kolommen op basis van celwaarde functie, kunt u de rijen of kolommen snel en gemakkelijk invoegen op basis van de lijst met getallen.
Na het installeren van Kutools for Excelgaat u als volgt te werk:
1. Klikken Kutools > Invoegen > Dubbele rijen / kolommen op basis van celwaarde, zie screenshot:
2. In de Kopieer en voeg rijen en kolommen in dialoogvenster, selecteer Kopieer en voeg rijen in optie in het Type sectie, selecteer vervolgens het gegevensbereik dat u wilt dupliceren en specificeer vervolgens de lijst met waarden waarop u rijen wilt kopiëren op basis van, zie screenshot:
4. Dan klikken Ok or Solliciteer knop, krijg je het volgende resultaat als je nodig hebt:
|
|
|
Download en gratis proef Kutools voor Excel nu!
Meer relatieve artikelen:
- Kopieer en voeg rij meerdere keren in of dupliceer de rij X keer
- Heeft u in uw dagelijkse werk ooit geprobeerd een rij of elke rij te kopiëren en vervolgens meerdere keren onder de huidige gegevensrij in een werkblad in te voegen? Ik heb bijvoorbeeld een celbereik, nu wil ik elke rij kopiëren en ze 3 keer in de volgende rij plakken zoals in het volgende screenshot. Hoe kon je deze klus in Excel afhandelen?
- Voeg lege rijen in wanneer waarde verandert in Excel
- Stel dat u een gegevensbereik heeft en u wilt nu lege rijen tussen de gegevens invoegen wanneer de waarde verandert, zodat u de opeenvolgende dezelfde waarden in één kolom kunt scheiden, zoals in de volgende schermafbeeldingen. In dit artikel zal ik enkele trucs voor je bespreken om dit probleem op te lossen.
- Voeg een lege rij in na specifieke tekst in Excel
- Als u lege rijen na een specifieke tekst wilt invoegen zoals in de onderstaande schermafbeelding wordt getoond, hoe kunt u er dan snel en gemakkelijk mee omgaan zonder ze een voor een handmatig in te voegen?
- Kopieer rijen van meerdere werkbladen op basis van criteria naar een nieuw blad
- Stel dat u een werkmap heeft met drie werkbladen met dezelfde opmaak als onderstaand screenshot. Nu wilt u alle rijen van deze werkbladen, waarvan kolom C de tekst "Voltooid" bevat, naar een nieuw werkblad kopiëren. Hoe kunt u dit probleem snel en gemakkelijk oplossen zonder ze een voor een handmatig te kopiëren en te plakken?
Beste Office-productiviteitstools
Geef uw Excel-vaardigheden een boost met Kutools voor Excel en ervaar efficiëntie als nooit tevoren. Kutools voor Excel biedt meer dan 300 geavanceerde functies om de productiviteit te verhogen en tijd te besparen. Klik hier om de functie te krijgen die u het meest nodig heeft...
Office-tabblad Brengt een interface met tabbladen naar Office en maakt uw werk veel gemakkelijker
- Schakel bewerken en lezen met tabbladen in Word, Excel, PowerPoint in, Publisher, Access, Visio en Project.
- Open en maak meerdere documenten in nieuwe tabbladen van hetzelfde venster in plaats van in nieuwe vensters.
- Verhoogt uw productiviteit met 50% en vermindert honderden muisklikken voor u elke dag!
