Dlete rows with blanks and space ” ” vba excel vba delete empty rows

The solution for “Dlete rows with blanks and space ” ” vba excel vba delete empty rows” can be found here. The following code will assist you in solving the problem.

Get the Code! 
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

‘ 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

Thank you for using DeclareCode; We hope you were able to resolve the issue.

More questions on [categories-list]

Similar Posts

.net crash app

Bym0nxt3r

The solution for “.net crash app” can be found here. The following code will assist you in solving the problem.Thank you for using DeclareCode; We hope you were able to resolve the issue. More questions on [categories-list]

msgbox vb

Bym0nxt3r

The solution for “msgbox vb” can be found here. The following code will assist you in solving the problem.Thank you for using DeclareCode; We hope you were able to resolve the issue. More questions on [categories-list]