Excel VisualBasic Script

  1. Home
  2. VisualBasic Script
  3. Excel
  4. Delete empty rows
Sub DeleteEmptyRows()
  Dim rngRow As Range
  For Each rngRow In ActiveSheet.UsedRange.Rows
    If WorksheetFunction.CountA(rngRow) = 0 Then
      rngRow.EntireRow.Delete
    End If
  Next rngRow
End Sub