Bekijk video - Voeg lege rij in na elke rij in Excel
Mensen die met grote datasets werken, hebben vaak behoefte aan simpele dingen zoals het invoegen/verwijderen van rijen of kolommen.
Hoewel er al veel verschillende (en eenvoudige) manieren zijn om rijen toe te voegen in Excel, wordt het een beetje ingewikkeld als het gaat om het invoegen van een lege rij na elke andere rij (of elke derde of vierde rij).
Een lege rij invoegen na elke andere rij
In deze zelfstudie laat ik u enkele heel eenvoudige manieren zien om een lege rij in te voegen na elke rij in de bestaande dataset (of elke n-de rij).
Aangezien er geen directe manier is om rijen tussen rijen toe te voegen, zijn de methoden die in dit artikel worden behandeld, tijdelijke oplossingen om dit te laten gebeuren. En als u vertrouwd bent met VBA, kunt u dit met een enkele klik doen.
Helperkolom en de sorteerfunctie gebruiken
Stel dat u een dataset heeft zoals hieronder weergegeven en u wilt een spatie tussen de bestaande rijen invoegen.
Hieronder vindt u de stappen om lege rijen in te voegen tussen bestaande rijen:
- Voeg een lege kolom toe aan de linkerkant van de gegevensset. Klik hiervoor met de rechtermuisknop op de kolomkop van de meest linkse kolom en klik op Invoegen.
- Voer de tekst 'HelperColumn' in A1 in (u kunt elke gewenste tekst gebruiken)
- Voer 1 in in cel A2 en 2 in cel A3.
- Selecteer beide cellen en plaats de cursor rechtsonder in de selectie. Wanneer de cursor verandert in een pluspictogram, dubbelklikt u erop. Dit zal de hele kolom vullen met oplopende getallen
- Ga naar de laatst gevulde cel in de helperkolom en selecteer vervolgens de cel eronder.
- Voer 1 in in deze cel en 2 in de cel eronder
- Selecteer beide cellen en plaats de cursor rechtsonder in de selectie.
- Wanneer de cursor verandert in een pluspictogram, klikt u erop en sleept u het naar beneden. Hiermee wordt een reeks getallen gevuld (net zoals we in stap 3 hebben gedaan). Zorg ervoor dat u meer getallen krijgt dan in de dataset. Als er bijvoorbeeld 10 records in de dataset zijn, zorg er dan voor dat u in deze stap ten minste 10 cellen vult. Als u klaar bent, ziet uw dataset eruit zoals hieronder weergegeven.
- Selecteer de volledige dataset (inclusief alle cellen in de helperkolom).
- Klik op het tabblad Gegevens
- Klik op de optie Sorteren
- Gebruik in het dialoogvenster Sorteren de volgende instellingen:
- Sorteren op: Helper
- Sorteer op: celwaarde
- Volgorde: Kleinste naar Grootste
- Klik OK. Dit geeft u de dataset zoals hieronder weergegeven.
- Verwijder de helperkolom.
U zou merken dat zodra u op OK klikt in het dialoogvenster Sorteren, de rijen onmiddellijk worden herschikt en dat u nu een lege rij hebt na elke rij van uw gegevensset.
In werkelijkheid is dit niet echt het invoegen van een lege rij. Deze sorteermethode herschikt de gegevens eenvoudig door lege rijen van onder de gegevensset tussen de rijen in de gegevensset te plaatsen.
U kunt dezelfde logica ook uitbreiden naar: een lege rij invoegen na elke twee rijen of elke drie rijen.
Stel dat u de gegevensset heeft zoals hieronder weergegeven en u wilt na elke twee rijen een lege rij.
Hieronder staan de stappen om dit te doen:
- Voeg een lege kolom toe aan de linkerkant van de gegevensset. Klik hiervoor met de rechtermuisknop op de kolomkop van de meest linkse kolom en klik op Invoegen.
- Voer de tekst 'HelperColumn' in A1 in (u kunt elke gewenste tekst gebruiken)
- Voer 1 in in cel A2 en 2 in cel A3.
- Selecteer beide cellen en plaats de cursor rechtsonder in de selectie. Wanneer de cursor verandert in een pluspictogram, dubbelklikt u erop. Dit zal de hele kolom vullen met oplopende getallen
- Ga naar de laatst gevulde cel in de helperkolom en selecteer vervolgens de cel eronder.
- Typ 2 in deze cel en 4 in de cel eronder. We gebruiken getallen in veelvouden van 2 omdat we na elke twee rijen een lege rij willen.
- Selecteer beide cellen en plaats de cursor rechtsonder in de selectie.
- Wanneer de cursor verandert in een pluspictogram, klikt u erop en sleept u het naar beneden. Hiermee wordt een reeks getallen gevuld (net zoals we in stap 3 hebben gedaan). Zorg ervoor dat u een getal krijgt dat groter is dan wat u in de dataset heeft. Als er bijvoorbeeld 10 records in de dataset zijn, zorg er dan voor dat u minimaal tot het getal 10 komt.
- Selecteer de volledige dataset (inclusief alle cellen in de helperkolom).
- Klik op het tabblad Gegevens
- Klik op de optie Sorteren
- Gebruik in het dialoogvenster Sorteren de volgende instellingen:
- Sorteren op: Helper
- Sorteer op: celwaarde
- Volgorde: Kleinste naar Grootste
- Klik OK. Dit geeft u de uiteindelijke dataset zoals hieronder weergegeven (met een lege rij na elke tweede rij van de dataset)
- Verwijder de helperkolom.
Evenzo, als u na elke derde rij een lege rij wilt invoegen, gebruikt u het nummer 3, 6, 9, enzovoort in stap 5.
Een eenvoudige VBA-code gebruiken
Hoewel je veel oplossingen nodig hebt om alternatieve lege rijen in Excel in te voegen, is het met VBA allemaal een fluitje van een cent.
Met een eenvoudige VBA-code hoeft u alleen maar de dataset te selecteren waarin u na elke rij een lege rij wilt invoegen en de code eenvoudig uit te voeren (met een enkele klik).
Hieronder staat de VBA-code die na elke rij in de dataset een lege rij invoegt:
Sub InsertAlternateRows() 'Deze code voegt een rij in na elke rij in de selectie 'Deze code is gemaakt door Sumit Bansal van trumpexcel.com Dim rng As Range Dim CountRow As Integer Dim i As Integer Set rng = Selection CountRow = rng. EntireRow.Count For i = 1 To CountRow ActiveCell.Offset(1, 0).EntireRow.Insert ActiveCell.Offset(2, 0).Selecteer Volgende i End Sub
De bovenstaande code telt het totale aantal rijen in de selectie en gebruikt een For Next-lus om door elke rij te bladeren en een lege rij in te voegen na elke bestaande rij in de gegevensset.
Hier zijn de stappen om deze VBA-code in de VB-editor in Excel te plaatsen:
- Kopieer de bovenstaande code
- Ga naar het tabblad Ontwikkelaars en klik op de optie Visual Basic. Hiermee wordt de VB-editor geopend. U kunt ook de sneltoets gebruiken ALT + F11
- Klik in de VB Editor met de rechtermuisknop op een willekeurig object in de Projectverkenner
- Beweeg de cursor over de optie Invoegen en klik vervolgens op Module. Dit zal een nieuwe module invoegen
- Plak de bovenstaande code in het venster Modulecode.
Zodra u de code in de VB Editor hebt, kunt u deze code nu gebruiken om lege rijen in te voegen na elke andere rij in de dataset.
Hier zijn de stappen om de code te gebruiken om lege rijen in te voegen na elke rij:
- Selecteer de volledige dataset (behalve de koprij)
- Klik op het tabblad Ontwikkelaar (als u het tabblad Ontwikkelaar niet hebt, klik hier om te leren hoe u het kunt krijgen)
- Klik op de optie 'Macro's'
- Selecteer in het dialoogvenster Macro de macro - 'InsertAlternateRows'
- Klik op Uitvoeren
Dat is het!
De bovenstaande stappen zouden onmiddellijk afwisselend lege rijen in de gegevensset invoegen.
Er zijn veel verschillende manieren om een macro in Excel uit te voeren. Als u dit bijvoorbeeld vrij vaak moet doen, kunt u deze macro toevoegen aan de werkbalk Snelle toegang, zodat u deze met één klik kunt uitvoeren.
U kunt hier meer lezen over verschillende manieren om macro's uit te voeren.
Als u na elke tweede rij een lege rij wilt invoegen, kunt u de onderstaande code gebruiken:
Sub InsertBlankRowAfterEvery2ndRow() 'Deze code voegt een rij in na elke tweede rij in de selectie 'Deze code is gemaakt door Sumit Bansal van trumpexcel.com Dim rng As Range Dim CountRow As Integer Dim i As Integer Set rng = Selection CountRow = rng .EntireRow.Count For i = 1 To CountRow/2 ActiveCell.Offset(2, 0).EntireRow.Insert ActiveCell.Offset(3, 0).Select Next i End Sub
Ik hoop dat je deze tutorial nuttig vond.
