/VBA/Dlete rows with blanks and space " " vba

Dlete rows with blanks and space " " vba

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: powerspreadsheets.com

Similar codes

1 vote156 views1 answer
Vba ubound array 2-dimensional
VBA
0 vote171 views1 answer
Return na vba
VBA
0 vote159 views1 answer
Compare dates vb
VBA
0 vote170 views1 answer
Vba listbox remove all items
VBA
1 vote167 views1 answer
How to INPUT text in shape with enter and spacein vba
VBA
0 vote166 views1 answer
Vba find sub dictionary
VBA
0 vote191 views2 answers
Get unique random number in vb.net
VBA
0 vote162 views1 answer
Vba collection contains
VBA
3 votes165 views1 answer
Vba request json
VBA
0 vote165 views1 answer
Supprimer la valeur de celule vba
VBA