Question : Dlete rows with blanks and space " " vba
Answered by : inquisitive-ibis-phcecwu8srcd
Dim iCounter As Long
With Application
.Calculation = xlCalculationManual
.ScreenUpdating = False
For iCounter = Selection.Rows.Count To 1 Step -1
If WorksheetFunction.CountA(Selection.Rows(iCounter)) = 0 Then
Selection.Rows(iCounter).EntireRow.Delete
End If
Next iCounter
.Calculation = xlCalculationAutomatic
.ScreenUpdating = True
End With
Source : https://powerspreadsheets.com/macros-delete-blank-rows/ | Last Update : Fri, 18 Dec 20
Question : excel vba delete empty rows
Answered by : vastemonde
' Deletes empty rows
dim rRange As Range, rowsCount As Long, i As Long
Set rRange = ActiveSheet.Range("A1:B100")
rowsCount = rRange.rows.Count
For i = rowsCount To 1 Step -1 If WorksheetFunction.CountA(rRanges.rows(i)) = 0 Then rRange.rows(i).Delete End If
Next
Source : https://stackoverflow.com/questions/9379673/excel-vba-delete-empty-rows | Last Update : Tue, 16 Feb 21