Ta bort rader i VBA

Anonim

I den här artikeln kommer vi att lära oss hur man tar bort raderna när det inte finns data i hela raden.

Följande är ögonblicksbilden av data vi har:

Konceptet bakom denna handledning är om det finns en fullständig tom rad i det valda intervallet A1: E10, då ska vba -koden ta bort den raden.

Vi måste följa stegen nedan:

  • Klicka på fliken Utvecklare
  • Välj Visual Basic i kodgruppen

  • Ange följande kod i den aktuella kalkylbladsmodulen

Sub DeleteEntireRow ()

Dim i As Long

'Beräkning och skärmuppdatering stängs av för att påskynda makrot

Med ansökan

.Calculation = xlCalculationManual

.ScreenUpdating = Falskt

För i = Selection.Rows.Count till 1 steg -1

Om WorksheetFunction.CountA (Selection.Rows (i)) = 0 Då

Selection.Rows (i) .EntireRow.Delete

Avsluta om

Nästa i

.Calculation = xlCalculationAutomatic

.ScreenUpdating = Sant

Sluta med

Avsluta Sub

  • Låt oss först radera data manuellt i rad för att testa vår kod.
  • Efter att ha kopierat koden; välj intervallet A1: E10 & radera alla rader manuellt

  • Kör nu makrot med ALT + F8 -tangenten och välj DeleteEntireRow

  • Den tomma raden har raderats och alla nedanstående rader flyttas uppåt.

På detta sätt kan vi ta bort rader med hjälp av vba i Microsoft excel.

Ladda ner-radera rader i VBA