Rijen verwijderen in VBA

In dit artikel zullen we leren hoe u de rijen kunt verwijderen als er geen gegevens in de hele rij staan.

Hieronder volgt de momentopname van de gegevens die we hebben:

Het concept achter deze zelfstudie is dat als er een volledige lege rij wordt gevonden in het geselecteerde bereik A1: E10, de vba-code die rij moet verwijderen.

We moeten de onderstaande stappen volgen:

Klik op het tabblad Ontwikkelaar
Selecteer in de codegroep Visual Basic

Voer de volgende code in de huidige werkbladmodule in:

Sub DeleteEntireRow()

Dim ik zo lang

'Berekening en schermupdate is uitgeschakeld om de macro te versnellen'

Met toepassing

.Berekening = xlBerekeningHandmatig

.ScreenUpdating = False

Voor i = Selectie. Rijen. Tellen tot 1 Stap -1

Als WorksheetFunction.CountA(Selection.Rows(i)) = 0 Then

Selectie.Rijen(i).VolledigeRij.Verwijderen

Stop als

volgende i

.Berekening = xlBerekeningAutomatisch

.ScreenUpdating = True

Eindigt met

Einde sub

Laten we eerst handmatig de gegevens op een rij verwijderen om onze code te testen.
Na het kopiëren van de code; selecteer het bereik A1:E10 & verwijder handmatig een rij