Hoe voeg je 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
Om een rij in te voegen op basis van een celwaarde door een VBA-code uit te voeren, volg dan de onderstaande stappen:
1. Druk tegelijkertijd op Alt + F11, en er verschijnt een Microsoft Visual Basic for Applications-venster.
2. Klik op Invoegen > Module, en plak vervolgens de onderstaande VBA-code in het Module-venster dat verschijnt.
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 F5 of op de Uitvoeren knop. Er verschijnt een dialoogvenster waarin je de kolom selecteert die nullen bevat. Zie screenshot:
4. Klik OK. Daarna worden er lege rijen onder de waarde nul ingevoegd.
Tip:
1. Als je rijen wilt invoegen op basis van een andere waarde, kun je 0 wijzigen naar elke gewenste waarde in de VBA-code: If Rng.Value = "0" Then.
2. Als je rijen boven nul of een andere waarde wilt invoegen, kun je de onderstaande VBA-code gebruiken.
VBA: Rij boven invoegen bij waarde nul:
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
Als je niet bekend bent met VBA, kun je proberen Kutools voor Excel's Specifieke cellen selecteren-hulpprogramma te gebruiken, en vervolgens rijen boven invoegen.
Nadat je Kutools voor Excel hebt geïnstalleerd, volg dan de onderstaande stappen:
1. Selecteer de lijst waaruit je de specifieke cellen wilt vinden, en klik Kutools > Selecteren > Specifieke cellen selecteren. Zie screenshot:
2. Schakel in het pop-updialoogvenster de optie Volledige rij in, en ga vervolgens naar Is gelijk aan selecteren vanuit Specificeer type lijst, en voer vervolgens de waarde in die je wilt vinden in het tekstvak aan de rechterkant. Zie screenshot:
3. Klik op OK, en er verschijnt een dialoogvenster dat je herinnert aan het aantal geselecteerde rijen; sluit het gewoon.
4. Plaats de cursor op één geselecteerde rij, klik met de rechtermuisknop en selecteer Invoegen vanuit het contextmenu. Zie screenshot:
Nu zijn de rijen boven ingevoegd op basis van een specifieke waarde.
Rijen boven invoegen op basis van celwaarde
Gerelateerde artikelen:
Beste productiviteitstools voor Office
Verbeter je Excel-vaardigheden met Kutools voor Excel en ervaar ongeëvenaarde efficiëntie. Kutools voor Excel biedt meer dan300 geavanceerde functies om je productiviteit te verhogen en tijd te besparen. Klik hier om de functie te kiezen die je het meest nodig hebt...
Office Tab brengt een tabbladinterface naar Office en maakt je werk veel eenvoudiger
- Activeer tabbladbewerking en -lezen in Word, Excel, PowerPoint, Publisher, Access, Visio en Project.
- Open en maak meerdere documenten in nieuwe tabbladen van hetzelfde venster, in plaats van in nieuwe vensters.
- Verhoog je productiviteit met50% en bespaar dagelijks honderden muisklikken!
Alle Kutools-invoegtoepassingen. Eén installatieprogramma
Kutools for Office-suite bundelt invoegtoepassingen voor Excel, Word, Outlook & PowerPoint plus Office Tab Pro, ideaal voor teams die werken met Office-toepassingen.
- Alles-in-één suite — invoegtoepassingen voor Excel, Word, Outlook & PowerPoint + Office Tab Pro
- Eén installatieprogramma, één licentie — in enkele minuten geïnstalleerd (MSI-ready)
- Werkt beter samen — gestroomlijnde productiviteit over meerdere Office-toepassingen
- 30 dagen volledige proef — geen registratie, geen creditcard nodig
- Beste prijs — bespaar ten opzichte van losse aanschaf van invoegtoepassingen