Slet rækker i VBA

I denne artikel lærer vi, hvordan du sletter rækker, når der ikke er data i hele rækken.

Følgende er et øjebliksbillede af data, vi har:

Konceptet bag denne vejledning er, hvis der findes en komplet tom række i det valgte område A1: E10, så skal vba -koden slette den række.

Vi skal følge nedenstående trin:

• Klik på fanen Udvikler
• Vælg Visual Basic i kodegruppen

• Indtast følgende kode i det aktuelle regnearksmodul

Sub DeleteEntireRow ()

Dim i så længe

'Beregning og skærmopdatering er slået fra for at fremskynde makroen

Med ansøgning

.Calculation = xlCalculationManual

.ScreenUpdating = Falsk

For i = Selection.Rows.Count til 1 trin -1

Hvis WorksheetFunction.CountA (Selection.Rows (i)) = 0 Herefter

Selection.Rows (i) .EntireRow.Delete

Afslut Hvis

Næste i

.Calculation = xlCalculationAutomatic

.ScreenUpdating = Sandt

Afslut med

Afslut Sub

• Lad os først manuelt slette dataene i træk for at teste vores kode.
• Efter kopiering af koden; vælg området A1: E10 & slet enhver række manuelt

• Kør nu makroen ved hjælp af ALT + F8 -tasten, og vælg DeleteEntireRow

• Den tomme række er blevet slettet, og alle nedenstående rækker flyttes opad.

På denne måde kan vi slette rækker ved hjælp af vba i Microsoft excel.

Download-Slet rækker i VBA