Slett rader i VBA

Anonim

I denne artikkelen lærer vi hvordan du sletter radene når det ikke er data i hele raden.

Følgende er øyeblikksbildet av dataene vi har:

Konseptet bak denne opplæringen er at hvis det er en fullstendig tom rad i det valgte området A1: E10, bør vba -koden slette den raden.

Vi må følge trinnene nedenfor:

  • Klikk på kategorien Utvikler
  • Velg Visual Basic fra kodegruppen

  • Skriv inn følgende kode i gjeldende regnearkmodul

Sub DeleteEntireRow ()

Dim i As Long

'Beregning og skjermoppdatering er slått av for å øke makroen

Med søknad

.Calculation = xlCalculationManual

.ScreenUpdating = Falsk

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

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

Selection.Rows (i) .EntireRow.Delete

Slutt om

Neste jeg

.Calculation = xlCalculationAutomatic

.ScreenUpdating = True

Slutt med

Slutt Sub

  • La oss først slette dataene på rad manuelt for å teste koden vår.
  • Etter å ha kopiert koden; velg området A1: E10 og slett alle rader manuelt

  • Kjør nå makroen med ALT + F8 -tasten og velg DeleteEntireRow

  • Den tomme raden er slettet, og alle radene nedenfor flyttes oppover.

På denne måten kan vi slette rader ved hjelp av vba i Microsoft excel.

Last ned-slett rader i VBA