Hoe snel elke andere rij in Excel verwijderen?

Als u snel elke andere rij of kolom in Excel wilt verwijderen, is het belangrijkste punt hoe u eerst elke andere rij of kolom snel kunt selecteren en vervolgens de verwijderingsbewerking erop kunt toepassen. Dit artikel laat u enkele handige methoden zien over hoe u eerst elke andere rij of kolom kunt selecteren en deze vervolgens snel kunt verwijderen.

Elke andere rij in Excel verwijderen met Filteropdracht

Elke andere rij in Excel verwijderen met VBA-code

Elke andere rij of kolom in Excel verwijderen met Kutools voor Excel

Elke andere rij in Excel verwijderen met Filteropdracht

Het Filtercommando van Microsoft Excel kan u helpen om snel elke andere rij te filteren en deze vervolgens in één keer te verwijderen. Volg de volgende stappen:

1. Voer in een lege kolom naast de originele gegevens 0,1,0,1…,0,1 in. In dit geval voeren we de nummers in hulpprogrammakolom C in. Zie de volgende schermafbeelding:

2. Selecteer kolom C en klik op de knop Filter onder het tabblad Gegevens. Klik vervolgens op de pijlknop naast C1 en vink alleen de 0 aan onder de optie Alles selecteren. Zie schermafbeelding:

3. Alle rijen met 1 worden dan verborgen. Selecteer de zichtbare rijen met 0 en klik op Start > Verwijderen > Werkbladrijen verwijderen om deze rijen te verwijderen. Vervolgens verwijdert het elke andere rij en moet u opnieuw op de knop Filter klikken om alleen de rijen met 1 weer te geven. Zie schermafbeeldingen:

4. Ten slotte kunt u de hulpkolom C verwijderen indien nodig.

Elke andere rij in Excel verwijderen met VBA-code

Eigenlijk is een VBA-macro ook een goede keuze om dit probleem op te lossen.

1. Houd de toetsen Alt + F11 ingedrukt in Excel, en het venster Microsoft Visual Basic for Applications wordt geopend.

2.  Klik op Invoegen > Module, en plak de volgende macro in het Modulevenster.

VBA-code: Elke andere rij in de selectie verwijderen:

Sub DeleteEveryOtherRow()
'Updateby Extendoffice
Dim rng As Range
Dim InputRng As Range
xTitleId = "KutoolsforExcel"
Set InputRng = Application.Selection
Set InputRng = Application.InputBox("Range :", xTitleId, InputRng.Address, Type:=8)
Application.ScreenUpdating = False
For i = InputRng.Rows.Count To 1 Step -2
    Set rng = InputRng.Cells(i, 1)
    rng.EntireRow.Delete
Next
Application.ScreenUpdating = True
End Sub

3. Druk op de F5-toets om deze macro uit te voeren. Er verschijnt een dialoogvenster om een bereik te selecteren. Zie schermafbeelding:

4.  Klik vervolgens op OK, elke andere rij in het geselecteerde bereik vanaf de tweede rij wordt onmiddellijk verwijderd, zie schermafbeelding:

Elke andere rij of kolom in Excel verwijderen met Kutools voor Excel

Voor een beginnende gebruiker van Microsoft Excel is het gebruik van een VBA-macro een beetje ingewikkeld. De functie Selecteer Interval Rijen & Kolommen van Kutools voor Excel kan u helpen om elke andere rij snel te verwijderen.

Nadat u Kutools voor Excel heeft geïnstalleerd, volgt u de volgende stappen:

1. Selecteer het bereik waaruit u elke andere rij wilt verwijderen, en pas deze functie toe door te klikken op Kutools > Selecteren > Selecteer Interval Rijen & kolommen….

2. In het dialoogvenster Selecteer Interval Rijen & Kolommen, specificeer de instellingen zoals in de volgende schermafbeelding weergegeven, en klik op de knop OK om eerst elke andere rij te selecteren.

3. Vervolgens wordt elke andere rij in de selectie geselecteerd en gemarkeerd. Zie schermafbeelding:

4. Vervolgens kunt u de geselecteerde elke andere rij snel verwijderen door te klikken op Start > Verwijderen > Werkbladrijen verwijderen om al deze rijen te verwijderen. Zie schermafbeeldingen:

Met deze functie kunt u ook elke n-de rij of kolom verwijderen zoals u nodig hebt.

Download en probeer Kutools voor Excel nu gratis uit!