Inhoudsopgave
In deze korte handleiding wordt uitgelegd hoe u elke andere rij in Excel kunt verwijderen door te filteren of met VBA-code. U leert ook hoe u elke 3e, 4e of elke andere N-de rij kunt verwijderen.
Er zijn veel situaties waarin u alternatieve rijen in Excel-werkbladen moet verwijderen. U wilt bijvoorbeeld gegevens bewaren voor even weken (rijen 2, 4, 6, 8, enz.) en alle oneven weken (rijen 3, 5, 7, enz.) naar een ander blad verplaatsen.
In het algemeen komt het verwijderen van elke andere rij in Excel neer op het selecteren van alternatieve rijen. Zodra de rijen zijn geselecteerd, kan een enkele streep op de knop Verwijder Verderop in dit artikel leert u enkele technieken om snel elke andere of elke N-de rij in Excel te selecteren en te verwijderen.
Hoe elke andere rij in Excel te verwijderen door te filteren
In wezen is een gebruikelijke manier om elke andere rij in Excel te wissen de volgende: eerst filtert u alternatieve rijen, vervolgens selecteert u ze en verwijdert u ze allemaal tegelijk. De gedetailleerde stappen volgen hieronder:
- In een lege kolom naast uw oorspronkelijke gegevens voert u een reeks nullen en enen in. U kunt dit snel doen door in de eerste cel een 0 en in de tweede cel een 1 te typen, vervolgens de eerste twee cellen te kopiëren en in de kolom te plakken tot de laatste cel met gegevens.
U kunt ook deze formule gebruiken:
=MOD(ROW(),2)De logica van de formule is heel eenvoudig: de ROW-functie geeft het huidige rijnummer, de MOD-functie deelt het door 2 en geeft de rest afgerond op het gehele getal.
Als resultaat heb je 0 in alle even rijen (omdat ze gelijkmatig door 2 gedeeld worden zonder rest) en 1 in alle oneven rijen:
- Afhankelijk van of u even of oneven rijen wilt verwijderen, filtert u enen of nullen uit.
Om dit te laten doen, selecteer je een willekeurige cel in je Helper kolom, ga je naar de Gegevens tab> Sorteren en filteren groep, en klik op de Filter De drop-down filterpijlen verschijnen in alle kopcellen. U klikt op de pijlknop in de kolom Helper en vinkt een van de vakjes aan:
- 0 om even rijen te verwijderen
- 1 om oneven rijen te verwijderen
In dit voorbeeld gaan we de rijen met "0"-waarden verwijderen, dus filteren we ze:
- Nu alle "1"-rijen verborgen zijn, selecteert u alle zichtbare "0"-rijen, klikt u met de rechtermuisknop op de selectie en klikt u op Rij verwijderen :
- De bovenstaande stap heeft je een lege tabel opgeleverd, maar maak je geen zorgen, de "1" rijen zijn er nog steeds. Om ze weer zichtbaar te maken, verwijder je gewoon het autofilter door op de Filter knop opnieuw:
- De formule in kolom C berekent opnieuw voor de resterende rijen, maar u hebt hem niet meer nodig. U kunt de Helper-kolom nu veilig verwijderen:
Daardoor blijven alleen de even weken over in ons werkblad, de oneven weken zijn weg!
Tip. Als je elke andere rij wilt verplaatsen naar een andere plaats in plaats van ze helemaal te verwijderen, kopieer dan eerst de gefilterde rijen en plak ze op een nieuwe plaats, en verwijder dan de gefilterde rijen.
Hoe alternatieve rijen in Excel verwijderen met VBA
Als u niet bereid bent uw tijd te verspillen aan een triviale taak zoals het verwijderen van elke andere rij in uw Excel-werkbladen, kan de volgende VBA-macro het proces voor u automatiseren:
Sub Delete_Alternate_Rows_Excel() Dim SourceRange As Range Set SourceRange = Application.Selection Set SourceRange = Application.InputBox( "Range:" , "Selecteer het bereik" , SourceRange.Address, Type :=8) If SourceRange.Rows.Count>= 2 Then Dim FirstCell As Range Dim RowIndex As Integer Application.ScreenUpdating = False For RowIndex = SourceRange.Rows.Count - (SourceRange.Rows.Count Mod 2) To 1Stap -2 Set FirstCell = SourceRange.Cells(RowIndex, 1) FirstCell.EntireRow.Delete Next Application.ScreenUpdating = True End If End SubHoe verwijder je elke andere rij in Excel met behulp van de macro
Voeg de macro op de gebruikelijke manier in uw werkblad in via de Visual Basic Editor:
- Druk op Alt + F11 om het venster Visual Basic for Applications te openen.
- Klik in de bovenste menubalk op Plaats > Module en plak de bovenstaande macro in de Module
- Druk op F5 om de macro uit te voeren.
- Er verschijnt een dialoogvenster waarin u wordt gevraagd een bereik te selecteren. Selecteer uw tabel en klik op OK:
Elke andere rij in het geselecteerde bereik is verwijderd:
Hoe verwijder je elke N-de rij in Excel
Voor deze taak gaan we de filtertechniek uitbreiden die we hebben gebruikt om elke andere rij te verwijderen. Het verschil zit in de formule waarop de filtering is gebaseerd:
MOD(ROW()- m , n )Waar:
- m is het rijnummer van de eerste cel met gegevens min 1
- n de N-de rij is die u wilt verwijderen
Laten we zeggen dat uw gegevens beginnen in rij 2 en dat u elke derde rij wilt verwijderen. Dus, in uw formule n is gelijk aan 3, en m is gelijk aan 1 (rij 2 min 1):
=MOD(RIJ() - 1, 3)
Als onze gegevens begonnen in rij 3, dan m zou gelijk zijn aan 2 (rij 3 min 1), enzovoort. Deze correctie is nodig om de rijen opeenvolgend te nummeren, te beginnen met het getal 1.
Wat de formule doet is een relatief rijnummer delen door 3 en na deling de rest teruggeven. In ons geval levert het nul op voor elke derde rij, omdat elk derde getal deelt door 3 zonder rest (3,6,9, enz.):
En nu voert u de reeds bekende stappen uit om "0" rijen te filteren:
- Selecteer een willekeurige cel in uw tabel en klik op de Filter knop op de Gegevens
- Filter de Helper kolom om alleen "0" waarden te tonen.
- Selecteer alle zichtbare "0"-rijen, klik met de rechtermuisknop en kies Rij verwijderen uit het contextmenu.
- Verwijder het filter en verwijder de kolom Helper.
Op soortgelijke wijze kunt u in Excel elke 4e, 5e of elke andere N-de rij verwijderen.
Tip. Als u rijen met irrelevante gegevens moet verwijderen, is de volgende handleiding handig: Hoe rijen verwijderen op basis van celwaarde.
Ik dank u voor het lezen en hoop u volgende week weer op onze blog te zien.
