Hoe lege rijen invoegen wanneer de 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 lege rijen in wanneer de waarde verandert met de functie Subtotaal
Voeg lege rijen in wanneer de waarde verandert met hulpkolommen
Voeg lege rijen in wanneer de waarde verandert met VBA-code
Voeg een specifiek aantal lege rijen in wanneer de waarde verandert met een krachtige functie
Voeg lege rijen in wanneer de waarde verandert met de functie Subtotaal
Met de Subtotaal functie, kunt u lege rijen tussen de gegevens invoegen wanneer de waarde verandert als volgt:
1. Selecteer het gegevensbereik dat u wilt gebruiken.
2. Klikken Data > Subtotaal om de te openen Subtotaal dialoogvenster en in het Subtotaal dialoog, voer dan de volgende opties uit:
 |
1: Selecteer de kolomnaam waarvan u lege rijen wilt invoegen op basis van wanneer de waarde verandert onder Bij elke verandering in sectie;
2: Kies de Tellen van de Gebruiksfunctie keuzelijst;
3: Vink de kolomnaam aan waarin u het subtotaal wilt invoegen in het Voeg subtotaal toe aan keuzelijst
|
3. Dan klikken OK, de subtotaallijnen zijn tussen de verschillende producten ingevoegd en de overzichtssymbolen worden links van de tabel weergegeven, zie screenshot:
4. En klik vervolgens op het cijfer 2 bovenaan het overzichtssymbool om alleen de subtotaalregels weer te geven.
5. Selecteer vervolgens de gegevens van het subtotaalbereik en druk op Alt +; sneltoetsen om alleen de zichtbare rijen te selecteren, zie screenshot:
6. Nadat u alleen de zichtbare rijen hebt geselecteerd, drukt u op Verwijder toets op het toetsenbord, en alle subtotaalrijen zijn verwijderd.
7. Klik vervolgens op een andere cel en ga terug Data > degroeperen > Duidelijke omtrek zie screenshot om de contouren te verwijderen:
8. De overzichtssymbolen zijn onmiddellijk gewist en u kunt zien dat er lege rijen tussen de gegevens zijn ingevoegd wanneer de waarde verandert, zie screenshot:
9. Eindelijk kunt u kolom A naar behoefte verwijderen.
Voeg pagina-einde, lege rijen, onderrand of vulkleur in wanneer de waarde snel verandert
Als je Kutools for Excel's Onderscheid verschillen functie, kunt u snel pagina-einde, lege rijen, onderrand of opvulkleur invoegen wanneer de waarde naar behoefte verandert. Zie de onderstaande demo. Klik om Kutools voor Excel te downloaden!
Voeg lege rijen in wanneer de waarde verandert met hulpkolommen
Met de hulpkolommen kunt u eerst een formule invoegen en vervolgens de Zoeken en vervangen functie, voeg ten slotte de lege rijen in tussen de veranderende waarden. Ga als volgt te werk:
1. Voer deze formule in een lege cel C3 in = A3 = A2, en voer in cel D4 deze formule in = A4 = A3, zie screenshot:
2. Selecteer vervolgens C3: D4 en sleep de vulgreep naar het bereik waarop u deze formules wilt toepassen, en u krijgt Waar or Niet waar zie screenshot in de cellen:
3. En druk vervolgens op Ctrl + F toetsen om de te openen Zoeken en vervangen dialoogvenster, voer in het uitgeklapte dialoogvenster Juist in de Zoeken naar tekstvak onder Vind tab en klik Opties knop om dit dialoogvenster uit te vouwen, en kies Values van de Kijk in vervolgkeuzelijst, zie screenshot:
4. Klik Vind alle knop en druk vervolgens op Ctrl + A om alle resultaten van het vinden te selecteren, zijn alle FALSE cellen tegelijk geselecteerd, zie screenshot:
6. Sluit de Zoeken en vervangen dialoogvenster, volgende stap, kunt u lege rijen invoegen door op te klikken Home > Invoegen > Voeg bladrijen in, en er zijn lege rijen in de gegevens ingevoegd wanneer de waarde verandert op basis van kolom A, zie screenshots:
 |
|
 |
7. Ten slotte kunt u de hulpkolom C en D naar behoefte verwijderen.
Voeg lege rijen in wanneer de waarde verandert met VBA-code
Als u het gebruik van de bovenstaande methoden beu bent, is hier een code die u ook kan helpen om lege rijen in één keer tussen de gewijzigde waarden in te voegen.
1. Houd de ALT + F11 toetsen om de te openen Microsoft Visual Basic for Applications-venster.
2. Klikken Invoegen > Moduleen plak de volgende code in het Module Venster.
VBA-code: voeg lege rijen in 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 F5 sleutel om deze code uit te voeren, en er verschijnt een promptvenster waarin u één kolomgegevens kunt selecteren die u lege rijen wilt invoegen wanneer de waarde verandert waarop u bent gebaseerd, zie screenshot:
4. En klik vervolgens op OK, zijn de lege rijen tussen de gegevens ingevoegd wanneer de waarde verandert op basis van kolom A.
Voeg een specifiek aantal lege rijen in wanneer de waarde verandert met een krachtige functie
Als u de bovenstaande lastige methoden probeert, zal ik hier een handig hulpmiddel introduceren, Kutools for Excel's Onderscheid verschillen kan u helpen bij het invoegen van pagina-einde, lege rijen, onderrand of opvulkleur wanneer de celwaarde snel en gemakkelijk verandert.
Tips:Om dit toe te passen Onderscheid verschillen -functie, ten eerste moet u de Kutools for Excelen pas de functie vervolgens snel en gemakkelijk toe.
Na het installeren van Kutools for Excel, doe dit als volgt:
1. Klikken Kutools > Formaat > Onderscheid verschillen, zie screenshot:
2. In de Onderscheid verschillen per sleutelkolom dialoogvenster, voer dan de volgende bewerkingen uit:
- Selecteer het gegevensbereik dat u wilt gebruiken en kies vervolgens de sleutelkolom waarop u lege rijen wilt invoegen op basis van;
- Controleer dan Lege rij optie van de Opties sectie en voer het aantal lege rijen in dat u wilt invoegen.
3. Dan klikken Ok knop, en het specifieke aantal lege rijen is in de gegevens ingevoegd als de celwaarde verandert, zie screenshots:
 |
|
 |
Klik om Kutools voor Excel en nu gratis uit te proberen!
De beste tools voor kantoorproductiviteit
Kutools voor Excel lost de meeste van uw problemen op en verhoogt uw productiviteit met 80%
- visfuik: Snel invoegen complexe formules, grafieken en alles wat je eerder hebt gebruikt; Versleutel cellen met wachtwoord; Maak een mailinglijst en stuur e-mails ...
- Super Formula-balk (bewerk eenvoudig meerdere regels tekst en formule); Lay-out lezen (gemakkelijk grote aantallen cellen lezen en bewerken); Plakken in gefilterd bereik...
- Voeg cellen / rijen / kolommen samen zonder gegevens te verliezen; Gespleten cellen inhoud; Combineer dubbele rijen / kolommen... Voorkom dubbele cellen; Vergelijk Ranges...
- Selecteer Dupliceren of Uniek Rijen; Selecteer lege rijen (alle cellen zijn leeg); Super zoeken en fuzzy zoeken in veel werkboeken; Willekeurige selectie ...
- Exacte kopie Meerdere cellen zonder de formuleverwijzing te wijzigen; Maak automatisch verwijzingen naar meerdere bladen; Plaats kogels, Selectievakjes en meer ...
- Extraheer tekst, Tekst toevoegen, Verwijderen op positie, Ruimte verwijderen; Paging-subtotalen maken en afdrukken; Converteren tussen celinhoud en opmerkingen...
- Super filter (bewaar en pas filterschema's toe op andere bladen); Geavanceerd sorteren per maand / week / dag, frequentie en meer; Speciaal filter door vet, cursief ...
- Combineer werkmappen en werkbladen; Tabellen samenvoegen op basis van sleutelkolommen; Gegevens splitsen in meerdere bladen; Batch Converteer xls, xlsx en PDF...
- Meer dan 300 krachtige functies. Ondersteunt Office / Excel 2007-2021 en 365. Ondersteunt alle talen. Eenvoudig te implementeren in uw onderneming of organisatie. Volledige functies Gratis proefperiode van 30 dagen. 60 dagen geld-terug-garantie.
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!
