remove the row if all columns are empty

tharusha · Dec 21st 2020

hi guys i looking a code to check a way

if all the columns are empty delete the row

plz find the attachment

Mumps · Dec 21st 2020

Try:

Code

Sub DeleteRows()
    Application.ScreenUpdating = False
    Dim LastRow As Long, x As Long
    LastRow = Cells.Find("*", SearchOrder:=xlByRows, SearchDirection:=xlPrevious).Row
    For x = LastRow To 1 Step -1
        If WorksheetFunction.CountA(Rows(x)) = 0 Then
            Rows(x).Delete
        End If
    Next x
    Application.ScreenUpdating = True
End Sub

Display More

tharusha · Dec 21st 2020

Mumps thanks for the reply but its not removing the top blank row

Mumps · Dec 21st 2020

Please see the revised code in Post #2.

tharusha · Dec 21st 2020

thank Mumps it works

Mumps · Dec 21st 2020

You are very welcome.

tharusha · Dec 21st 2020

can you help me in this also
can i set a range without removing all the blank row because i dont want to remove the last row
Mumps

Mumps · Dec 22nd 2020

Do you want to remove all the blank rows and keep the last row? What is in the last row? Is the cell in column A in the last row blank?

remove the row if all columns are empty

Participate now!

Share

Tags