Hoe voegt u lege rijen in wanneer de waarde verandert in Excel?
 |  |  |
Stel dat u een gegevensbereik hebt en lege rijen wilt invoegen tussen de gegevens telkens wanneer de waarde verandert, zodat u opeenvolgende gelijke waarden in één kolom kunt scheiden — zoals te zien is op de volgende schermafbeeldingen. In dit artikel bespreek ik enkele handige trucs om dit probleem op te lossen.
Lege rijen invoegen wanneer de waarde verandert met de functie Subtotaal
Specifiek aantal Lege rijen invoegen wanneer de waarde verandert met een krachtige functie
Lege rijen invoegen wanneer de waarde verandert met hulpkolommen
Lege rijen invoegen wanneer de waarde verandert met VBA-code
Lege rijen invoegen wanneer de waarde verandert met de functie Subtotaal
Met de Subtotaal-functie kunt u Lege rijen tussen de gegevens invoegen wanneer de waarde verandert, zoals in de volgende stappen wordt beschreven:
1. Selecteer het gegevensbereik dat u wilt gebruiken.
2. Klik op Gegevens > Subtotaal om het dialoogvenster Subtotaal te openen. Voer in het dialoogvenster Subtotaal de volgende instellingen uit:
3. Klik vervolgens op OK. De subtotaalrijen worden dan automatisch tussen de verschillende producten ingevoegd en de overzichtssymbolen links van de tabel verschijnen, zie schermafbeelding:
4. Klik daarna op het cijfer 2 bovenaan het overzichtsymbool om alleen de subtotaalrijen weer te geven.
5. Selecteer vervolgens het subtotaalbereik en druk op Alt+; om alleen de zichtbare rijen te selecteren. Zie schermafbeelding:
6. Nadat u alleen de zichtbare rijen hebt geselecteerd, drukt u op de Verwijderen-toets op het toetsenbord om alle subtotaalrijen te verwijderen.
7. Klik vervolgens op een andere cel en ga naar Gegevens > Groepering opheffen > Overzicht wissen om de overzichten te verwijderen, zie schermafbeelding:
8. De overzichtssymbolen zijn in één keer gewist en u ziet dat er lege rijen zijn ingevoegd tussen de gegevens wanneer de waarde verandert, zie de schermafbeelding:
9. Tot slot kunt u kolom A verwijderen, indien gewenst.
Specifiek aantal Lege rijen invoegen wanneer de waarde verandert met een krachtige functie
Bent u de bovenstaande omslachtige methoden zat? Dan introduceer ik hier een handige tool: met Kutools voor Excel en de functie Markeer wijzigingen in kolom voegt u razendsnel en eenvoudig een pagina-einde, lege rijen, een onderste rand of vulkleur in zodra de celwaarde verandert.
Tips:Om deze Markeer wijzigingen in kolom-functie toe te passen, dient u eerst de Kutools voor Excelte downloaden en vervolgens de functie snel en eenvoudig toe te passen.
Na installatie van Kutools voor Excel, gaat u als volgt te werk:
1. Klik op Kutools > Opmaak > Markeer wijzigingen in kolom, zie schermafbeelding:
2. Voer in het dialoogvenster Markeer wijzigingen in kolom de volgende handelingen uit:
- Selecteer de Gegevensbereik die u wilt gebruiken en kies vervolgens de Sleutelkolom waarop u Lege rijen wilt invoegen;
- Vink vervolgens de optie Lege rij aan in het gedeelte Opties en voer het aantal lege rijen in dat u wilt invoegen.
3. Klik vervolgens op de knop Ok en het opgegeven aantal lege rijen wordt ingevoegd in de gegevens telkens wanneer de celwaarde verandert. Zie de schermafbeeldingen:
 | |  |
Klik hier om Kutools voor Excel nu te downloaden en gratis uit te proberen!
Lege rijen invoegen wanneer de waarde verandert met hulpkolommen
Met hulpkolommen voert u eerst een formule in, past u vervolgens de functie Zoeken en Vervangen toe en voegt u ten slotte lege rijen tussen de veranderende waarden in. Ga als volgt te werk:
1. Voer in een lege cel C3 de formule =A3=A2 in en in cel D4 de formule =A4=A3, zie schermafbeelding:
2. Selecteer vervolgens C3:D4 en sleep de vulgreep naar het bereik waarop u deze formules wilt toepassen. U krijgt dan WAAR of ONWAAR in de cellen, zie schermafbeelding:
3. Druk vervolgens op Ctrl + F om het dialoogvenster Zoeken en Vervangen te openen. Voer in het verschijnende dialoogvenster ONWAAR in het tekstvak Zoeken naar onder het tabblad Zoeken in en klik op de knop Opties om dit dialoogvenster uit te breiden. Kies Waarden uit de vervolgkeuzelijst Zoeken in, zie schermafbeelding:
4. Klik op de knop Alles zoeken en druk vervolgens op Ctrl + A om alle zoekresultaten te selecteren. Alle ONWAAR-cellen zijn nu tegelijkertijd geselecteerd, zie schermafbeelding:
6. Sluit het dialoogvenster Zoeken en Vervangen en klik vervolgens op Start > Invoegen > Werkbladrijen invoegen om lege rijen in te voegen. Er zijn nu lege rijen ingevoegd in de gegevens wanneer de waarde in kolom A verandert. Zie de schermafbeeldingen:
 | |  |
7. Ten slotte kunt u, indien gewenst, de hulpkolommen C en D verwijderen.
Lege rijen invoegen wanneer de waarde verandert met VBA-code
Als u de bovenstaande methoden zat bent, helpt de volgende code u ook om in één keer lege rijen tussen de gewijzigde waarden in te voegen.
1. Houd de toetsen ALT + F11 ingedrukt om het venster Microsoft Visual Basic for Applications te openen.
2. Klik op Invoegen > Module en plak de volgende code in het Modulevenster.
VBA-code: Lege rijen invoegen wanneer de waarde verandert
Sub InsertRowsAtValueChange()
'Update by Extendoffice
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)
Application.ScreenUpdating = False
For i = WorkRng.Rows.Count To 2 Step -1
If WorkRng.Cells(i, 1).Value <> WorkRng.Cells(i - 1, 1).Value Then
WorkRng.Cells(i, 1).EntireRow.Insert
End If
Next
Application.ScreenUpdating = True
End Sub
3. Druk vervolgens op de toets F5 om deze code uit te voeren. Er verschijnt een meldingsvenster waarin u één kolom met gegevens kunt selecteren waarop lege rijen worden ingevoegd telkens wanneer de waarde verandert. Zie de schermafbeelding:
4. Klik vervolgens op OK en er worden lege rijen ingevoegd tussen de gegevens wanneer de waarde in kolom A verandert.
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