Hoe elke andere rij in Excel te verwijderen (of elke N-de rij)

Bekijk video - Verwijder elke andere rij in Excel

Soms moet u elke andere rij (d.w.z. alternatieve rijen) of elke derde/vierde/vijfde rij in Excel verwijderen.

Een use-case hiervan kan zijn wanneer u wekelijkse gegevens heeft en u de gegevens alleen voor even weken of oneven weken wilt. Een ander voorbeeld kan zijn wanneer u een gegevensdump uit een database krijgt en alle nuttige gegevens zich alleen in elke tweede of derde rij bevinden.

Hoewel je altijd de mogelijkheid hebt om handmatig rijen te selecteren en te verwijderen, is dit inefficiënt als je een grote dataset hebt.

Er zijn betere manieren om dit te doen.

In deze zelfstudie laat ik je een aantal manieren zien om elke andere rij in Excel te verwijderen met behulp van een eenvoudige filtertechniek. En als je cool bent met het gebruik van een VBA-macrocode, heb ik ook een korte VBA-code gegeven die het met een enkele klik doet. De methoden die in deze zelfstudie worden getoond, werken voor alle versies van Excel (2007, 2010, 2013 en 2016)

Hoewel het verwijderen van elke andere rij in Excel vrij eenvoudig kan zijn, kan het een uitdaging zijn om elke andere kolom te verwijderen. Dit komt omdat je in Excel geen kolommen kunt filteren (zoals je wel rijen kunt filteren). In het laatste gedeelte van deze tutorial laat ik je ook enkele manieren zien om alternatieve kolommen (of elke N-de kolom) in Excel te verwijderen.

Verwijder elke andere rij door de gegevensset te filteren (met formule)

Als je op de een of andere manier alle even rijen of de oneven rijen zou kunnen filteren, zou het super eenvoudig zijn om deze rijen/records te verwijderen.

Hoewel er geen ingebouwde functie is om dit te doen, kunt u een hulpkolom gebruiken om de rijen eerst in oneven en even te verdelen en vervolgens te filteren op basis van de waarde van de hulpkolom.

Stel dat u een dataset heeft zoals hieronder weergegeven, met verkoopgegevens voor elke verkoper voor twee regio's (de VS en Canada) en u wilt de gegevens voor Canada verwijderen.

Hieronder vindt u de stappen om eerst elke andere rij te filteren en vervolgens te verwijderen (die gegevens bevat voor Canada):

1. Voer in de cel naast de laatste kolomkop de tekst in HelperKolom (of elke koptekst die u in de helperkolom wilt hebben)
2. Voer in de cel onder de kop van de helperkolom de volgende formule in: =ISEVEN(RIJ()). Kopieer deze formule voor alle cellen. Deze formule retourneert TRUE voor alle even rijen en FALSE voor alle ONEVEN rijen
3. Selecteer de volledige dataset (inclusief de cellen waar we de formule in de bovenstaande stap hebben ingevoerd).
4. Klik op het tabblad Gegevens
5. Klik op het filterpictogram. Dit zal een filter toepassen op alle koppen in de dataset
6. Klik op het pictogram Filter in de cel HelperColumn.
7. Deselecteer de TRUE-optie (zodat alleen de FALSE-optie is geselecteerd)
8. Klik OK. Hierdoor worden de gegevens gefilterd en worden alleen die records weergegeven waarvan de waarde van de HelperColumn ONWAAR is.
9. Selecteer alle gefilterde cellen in de helperkolom (exclusief de koptekst)
10. Klik met de rechtermuisknop op een van de geselecteerde cellen en klik op 'Rij verwijderen'
11. Klik in het dialoogvenster dat wordt geopend op OK. Hiermee worden alle zichtbare records verwijderd en ziet u vanaf nu alleen de koprij.
12. Klik op het tabblad Gegevens en klik vervolgens op het pictogram Filter. Hiermee wordt het filter verwijderd en kunt u alle resterende records zien.

De bovenstaande stappen filteren elke tweede rij in de gegevensset en verwijderen vervolgens die rijen.

Maak je in dit stadium geen zorgen over de waarden van de helperkolom. De resulterende gegevens bevatten alleen de rijen voor de VS en alle rijen voor Canada zijn verwijderd. U kunt de helperkolom nu verwijderen.

Als u elke andere rij vanaf de eerste rij wilt verwijderen, selecteert u de optie TRUE in stap 7 en deselecteert u de optie FALSE.

Opmerking: wanneer u de rijen in Excel verwijdert met behulp van de bovenstaande methode, worden ook alle gegevens verwijderd die u mogelijk in het geheel hebt (behalve die in de gegevensset). Wanneer u deze methode gebruikt, zorg er dan voor dat u niets links en rechts heeft van de dataset die u verwijdert.

Hoewel de bovenstaande methode geweldig is, heeft deze twee nadelen:

1. U moet een nieuwe kolom toevoegen (de HelperKolom in ons voorbeeld hierboven)
2. Het kan tijdrovend zijn als u alternatieve rijen moet verwijderen, doe dit vaak

Gerelateerde tutorial: Rijen verwijderen op basis van een celwaarde (of voorwaarde) in Excel

Verwijder elke N-de rij door de gegevensset te filteren (met behulp van formule)

In de bovenstaande methode heb ik je laten zien hoe je elke andere rij (alternatieve rij) in Excel kunt verwijderen.

En u kunt dezelfde logica gebruiken om ook elke derde of vierde rij in Excel te verwijderen.

Stel je hebt een dataset zoals hieronder weergegeven en je wilt elke derde rij verwijderen.

De stappen om elke derde rij te verwijderen zijn bijna dezelfde als die in de bovenstaande sectie (voor het verwijderen van alternatieve rijen). Het enige verschil zit in de formule die in stap 2 is gebruikt.

Hieronder staan ​​de stappen om dit te doen:

1. Voer in de cel naast de laatste kolomkop de tekst in HelperKolom (of elke koptekst die u in de helperkolom wilt hebben)
2. Voer in de cel onder de kop van de helperkolom de volgende formule in: =MOD(RIJ(),3)=1. Deze formule retourneert TRUE voor elke derde rij en ONWAAR voor elke andere rij.
3. Selecteer de volledige dataset (inclusief de cellen waar we de formule in de bovenstaande stap hebben ingevoerd).
4. Klik op het tabblad Gegevens
5. Klik op het filterpictogram. Dit zal een filter toepassen op alle koppen in de dataset
6. Klik op het pictogram Filter in de cel HelperColumn.
7. Deselecteer de TRUE-optie (zodat alleen de FALSE-optie is geselecteerd)
8. Klik OK. Hierdoor worden de gegevens gefilterd en worden alleen die records weergegeven waarvan de waarde van de HelperColumn ONWAAR is.
9. Selecteer alle cellen in de helperkolom
10. Klik met de rechtermuisknop op een van de geselecteerde cellen en klik op Rij verwijderen
11. Klik in het dialoogvenster dat wordt geopend op OK. Hiermee worden alle zichtbare records verwijderd en ziet u vanaf nu alleen de koprij.
12. Klik op het tabblad Gegevens en klik vervolgens op het pictogram Filter. Hiermee wordt het filter verwijderd en kunt u alle resterende records zien.

De bovenstaande stappen zouden elke derde rij uit de dataset verwijderen en u zou de resulterende gegevens krijgen zoals hieronder weergegeven.

Maak je in dit stadium geen zorgen over de waarden van de helperkolom. U kunt de helperkolom nu verwijderen.

De formule die in stap 2 wordt gebruikt, gebruikt de MOD-functie - die de rest geeft als het ene getal door het andere wordt gedeeld. Hier heb ik de ROW-functie gebruikt om het rijnummer te krijgen en het is gedeeld door 3 (omdat we elke derde rij willen verwijderen).

Omdat onze dataset vanaf de tweede rij begint (d.w.z. rij #2 bevat het eerste record), gebruik ik de volgende formule:=MOD(RIJ(),3)=1

Ik stel het gelijk aan 1 en voor elke derde rij geeft de MOD-formule de rest als 1.

U kunt de formule dienovereenkomstig aanpassen. Als de eerste record van uw dataset bijvoorbeeld vanaf de derde rij begint, zou de formule zijn: =MOD(RIJ(),3)=2

Verwijder automatisch elke andere rij (of N-de rij) met behulp van VBA-macro (snelle methode)

Als u vrij vaak om de andere rij (of elke nde rij) moet verwijderen, kunt u een VBA-code gebruiken en deze beschikbaar hebben in de werkbalk Snelle toegang. Hiermee kunt u snel alternatieve rijen verwijderen met een enkele klik.

Hieronder vindt u de code die u eerst vraagt ​​om het bereik te selecteren waarin u alternatieve rijen wilt verwijderen en vervolgens elke tweede rij in de geselecteerde gegevensset te verwijderen.

Sub Delete_Every_Other_Row() Dim Rng As Range Set Rng = Application.InputBox("Select the Range (Exclude headers)", "Range Selection", Type:=8) For i = Rng.Rows.Count To 1 Step -2 If i Mod 2 = 0 Dan Rng.Rows(i).Delete End If Next i End Sub

Wanneer u de bovenstaande code uitvoert, wordt u eerst gevraagd om het cellenbereik te selecteren. Nadat u de selectie hebt gemaakt, gaat deze door elke rij en verwijdert deze elke tweede rij.

Als u in plaats daarvan elke derde rij wilt verwijderen, kunt u de onderstaande code gebruiken:

Sub Delete_Every_Third_Row() Dim Rng As Range Set Rng = Application.InputBox("Select the Range (Exclude headers)", "Range Selection", Type:=8) For i = Rng.Rows.Count To 1 Step -3 If i Mod 3 = 0 Dan Rng.Rows(i).Delete End If Next i End Sub

Waar plaats je deze VBA-macrocode?

Deze code moet je in een reguliere module in de VB-editor in Excel plaatsen.

Hieronder staan ​​de stappen om de Vb Editor te openen, een module toe te voegen en de code erin te plaatsen:

1. Kopieer de bovenstaande VBA-code.
2. Ga naar het tabblad Ontwikkelaars.
3. Klik op Visual Basic.
4. Klik in de VB-editor met de rechtermuisknop op een van de werkmapobjecten.
5. Ga naar Invoegen en klik op Module.
6. Plak de bovenstaande VBA-code in de module.
7. Sluit de VB-editor.

Zodra u de code in de VB Editor hebt, kunt u de volgende methoden gebruiken om de code uit te voeren:

• Voer een macro uit vanuit de VB Editor (door op de groene afspeelknop in de VB Editor-werkbalk te klikken)
• Door de cursor op een willekeurige regel in de code te plaatsen en de F5-toets te gebruiken
• Door de macro toe te wijzen aan een knop/vorm
• Door de macro toe te voegen aan de werkbalk Snelle toegang

Hier is een gedetailleerde zelfstudie over het uitvoeren van een macro in Excel.

Als u dit vaak moet doen, kunt u overwegen de VBA-code toe te voegen aan de Personal Macro Workbook. Op deze manier is het altijd voor u beschikbaar voor gebruik in alle werkmappen.

Wanneer u een VBA-code in een werkmap hebt, moet u deze opslaan als een bestand met macro's (met de extensie .XLSM)

Opmerking: aangezien alle wijzigingen die door de VBA-code zijn aangebracht, onomkeerbaar zijn, kunt u het beste eerst een reservekopie van de werkmap/het werkblad maken en vervolgens deze code uitvoeren.

Verwijder elke andere kolom (of elke N-de kolom)

Het verwijderen van elke alternatieve rij of elke derde/vierde rij is gemakkelijk gemaakt omdat u de filteroptie kunt gebruiken. Het enige dat u hoeft te doen, is een formule gebruiken die alternatieve rijen identificeert (of elke derde/vierde rij) en deze rijen filtert.

Helaas werkt dezelfde methode niet met kolommen - omdat u kolommen niet kunt filteren op de manier waarop u rijen filtert.

Dus als je elke andere kolom (of elke derde/vierde/Ne kolom) moet verwijderen, moet je wat creatiever zijn.

In deze sectie laat ik je twee methoden zien die je kunt gebruiken om elke andere kolom in Excel te verwijderen (en je kunt dezelfde methode gebruiken om elke derde/vierde/Ne kolom te verwijderen als je wilt).

Alternatieve kolommen verwijderen met formules en sorteermethode

Stel dat u een dataset heeft zoals hieronder weergegeven en u wilt elke andere kolom verwijderen (exclusief de kopkolom A)

De truc hier zou zijn om alternatieve kolommen te identificeren met behulp van een formule en vervolgens de kolommen te sorteren op basis van die formule. Zodra u de gesorteerde kolommen bij elkaar heeft, kunt u deze handmatig selecteren en verwijderen.

Hieronder vindt u de stappen om elke andere kolom in Excel te verwijderen:

1. Voeg een rij in boven de koprij (klik met de rechtermuisknop op een cel in de kop, klik op Invoegen en klik vervolgens op de optie Hele rij)
2. Voer de volgende formule in de cel boven de meest linkse kolom in de gegevensset in en kopieer deze voor alle cellen: =MOD(KOLOM(),2)
3. Converteer de formulewaarden naar getallen. Kopieer hiervoor de cellen, klik met de rechtermuisknop en ga naar Plakken speciaal -> Waarden plakken.
4. Selecteer de volledige dataset (exclusief eventuele koppen in de kolom). In dit voorbeeld heb ik B1:G14 geselecteerd (en NIET kolom A)
5. Klik op het tabblad Gegevens
6. Klik op het pictogram Sorteren
7. Breng in het dialoogvenster Sorteren de volgende wijzigingen aan:
   • Klik op de knop 'Opties' en in het dialoogvenster dat wordt geopend, klik op 'Sorteer van links naar rechts' en klik vervolgens op OK
   • Selecteer in de vervolgkeuzelijst Sorteren op Rij 1. Dit is de rij met de formuleresultaten
   • Selecteer in de vervolgkeuzelijst Bestelling de optie Kleinst naar Grootst.
8. Klik OK

De bovenstaande stappen sorteren alle kolommen en brengen alle alternatieve kolommen samen op één plaats (aan het einde).

Nu kunt u al deze kolommen (waarvoor de formulewaarde 1 is) selecteren en deze verwijderen.

Hoewel dit niet de beste oplossing is, wordt het werk toch gedaan.

Als u elke derde kolom of elke vierde kolom wilt verwijderen, moet u de formule dienovereenkomstig aanpassen.

Gerelateerde tutorial: SORTEREN in Excel (op rijen, kolommen, kleuren, datums en getallen)

Alternatieve kolommen verwijderen met VBA

Een andere snelle manier om alternatieve kolommen te verwijderen, is door de onderstaande VBA-code te gebruiken:

Sub Delete_Every_Other_Column() Dim Rng As Range Set Rng = Application.InputBox("Select the Range (Exclude headers)", "Range Selection", Type:=8) For i = Rng.Columns.Count To 1 Step -2 If i Mod 2 = 0 Dan Rng.Columns(i).Delete End If Next i End Sub

De bovenstaande code vraagt ​​u om een ​​celbereik te selecteren met de kolommen. Hier moet u de kolommen selecteren, behalve degene met de kop.

Nadat u het cellenbereik met de gegevens hebt opgegeven, gebruikt het een For Loop en verwijdert het elke andere kolom.

Als u elke derde kolom wilt verwijderen, kunt u de onderstaande code gebruiken (en dienovereenkomstig aanpassen om de N-de kolom te verwijderen)

Sub Delete_Every_Third_Column() Dim Rng As Range Set Rng = Application.InputBox("Select the Range (Exclude headers)", "Range Selection", Type:=8) For i = Rng.Columns.Count To 1 Step -3 If i Mod 3 = 0 Dan Rng.Columns(i).Delete End If Next i End Sub

De stappen voor het plaatsen van deze VBA-code en het gebruik ervan worden behandeld in de bovenstaande sectie met de titel - "Verwijder automatisch elke andere rij (of N-de rij) met VBA-macro (snelle methode)"

Ik hoop dat je deze Excel-zelfstudie nuttig vond.