Hoe voegt u automatisch een rij in op basis van een celwaarde in Excel?
Rij onder invoegen op basis van celwaarde met VBA
Rij boven invoegen op basis van celwaarde met Kutools voor Excel
Rij onder invoegen op basis van celwaarde met VBA
Voer de volgende stappen uit om een rij in te voegen op basis van een celwaarde met behulp van VBA:
1. Druk tegelijkertijd op Alt + F11, waarna het venster Microsoft Visual Basic for Applications verschijnt.
2. Klik op Invoegen > Module en plak vervolgens de onderstaande VBA-code in het verschijnende Module-venster.
VBA: Rij onder invoegen op basis van celwaarde.
Sub BlankLine()
'Updateby20150203
Dim Rng As Range
Dim WorkRng As Range
On Error Resume Next
xTitleId = "KutoolsforExcel"
Set WorkRng = Application.Selection
Set WorkRng = Application.InputBox("Range", xTitleId, WorkRng.Address, Type: = 8)
Set WorkRng = WorkRng.Columns(1)
xLastRow = WorkRng.Rows.Count
Application.ScreenUpdating = False
For xRowIndex = xLastRow To 1 Step - 1
Set Rng = WorkRng.Range("A" & xRowIndex)
If Rng.Value = "0" Then
Rng.Offset(1, 0).EntireRow.Insert Shift: = xlDown
End If
Next
Application.ScreenUpdating = True
End Sub
3. Klik op F5 of op de knop Uitvoeren. Vervolgens verschijnt er een dialoogvenster waarin u de kolom met nullen kunt selecteren. Zie de schermafbeelding:
4. Klik op OK. Vervolgens worden lege rijen ingevoegd onder de nulwaarde.
Tip:
1. Als u Rijen wilt invoegen op basis van een andere waarde, wijzigt u 0 in de gewenste waarde in de VBA-regel: If Rng.Value = "0" Then.
2. Als u rijen wilt invoegen boven nul of een andere waarde, kunt u de onderstaande VBA-code gebruiken.
VBA: Rij boven nulwaarde invoegen:
Sub BlankLine()
'Updateby20150203
Dim Rng As Range
Dim WorkRng As Range
On Error Resume Next
xTitleId = "KutoolsforExcel"
Set WorkRng = Application.Selection
Set WorkRng = Application.InputBox("Range", xTitleId, WorkRng.Address, Type: = 8)
Set WorkRng = WorkRng.Columns(1)
xLastRow = WorkRng.Rows.Count
Application.ScreenUpdating = False
For xRowIndex = xLastRow To 1 Step - 1
Set Rng = WorkRng.Range("A" & xRowIndex)
If Rng.Value = "0" Then
Rng.EntireRow.Insert Shift: = xlDown
End If
Next
Application.ScreenUpdating = True
End Sub
Rij boven invoegen op basis van celwaarde met Kutools voor Excel
Bent u niet bekend met VBA? Probeer dan het hulpprogramma Kutools voor Excel – Specifieke cellen selecteren – en voeg er eenvoudig rijen boven in.
Na installatie van Kutools voor Excel, voert u het volgende uit:
1. Selecteer de lijst waarin u specifieke cellen wilt zoeken en klik op Kutools > Selecteren > Specifieke cellen selecteren. Zie schermafbeelding:
2. Schakel in het verschijnende dialoogvenster de optie Gehele rij in, selecteer vervolgens Gelijk aan uit de lijst Specificeer type en voer de gewenste waarde in het tekstvak rechts in. Zie schermafbeelding:
3. Klik op Ok, waarna een dialoogvenster verschijnt met het aantal geselecteerde rijen. Sluit dit venster gewoon.
4. Plaats de cursor op een van de geselecteerde rijen, klik met de rechtermuisknop en kies Invoegen in het contextmenu. Zie schermafbeelding:
Nu zijn de rijen boven de opgegeven waarde ingevoegd.
Rijen invoegen boven op basis van celwaarde
Gerelateerde artikelen:
Beste Office-productiviteitshulpmiddelen
Geef uw Excel-vaardigheden een boost met Kutools voor Excel en ervaar efficiëntie zoals nooit tevoren.Kutools voor Excel biedt meer dan 300 geavanceerde functies om de productiviteit te verhogen en Tijd besparen.Klik hier om de functie te krijgen die u het meest nodig heeft...
Office Tab brengt een tabbladinterface naar Office en maakt uw werk veel eenvoudiger
- Schakel tabbladbewerking en -lezen in voor Word, Excel, PowerPoint, Publisher, Access, Visio en Project.
- Open en maak meerdere documenten aan in nieuwe tabbladen binnen hetzelfde venster, in plaats van in afzonderlijke vensters.
- Verhoogt uw productiviteit met 50 % en bespaart u dagelijks honderden muisklikken!
Alle Kutools-add-ins in één installatieprogramma.
Kutools for Office bundelt add-ins voor Excel, Word, Outlook en PowerPoint, plus Office Tab Pro—ideaal voor teams die met meerdere Office-apps werken.
- Alles-in-één suite— add-ins voor Excel, Word, Outlook & PowerPoint plus Office Tab Pro
- Één installatieprogramma, één licentie— binnen enkele minuten klaar (MSI-geschikt)
- Werkt beter samen— gestroomlijnde productiviteit in alle Office-apps
- 30 dagen volledig functionele proefversie— geen registratie, geen creditcard
- Beste prijs-kwaliteitverhouding— bespaar ten opzichte van het afzonderlijk kopen van add-ins