Mega Code Archive

 

Categories / VisualBasic Script / Excel

 

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