macro to delete entire rows when column A is blank ...a quick macro

  • Thread starter Thread starter vikram
  • Start date Start date
V

vikram

a macro which can quickly delete entire row when column A is blank

please help me with this
thank u so much frnd
 
Hi
one way:
Sub delete_rows()
Dim RowNdx As Long
Dim LastRow As Long
Application.ScreenUpdating = False
LastRow = ActiveSheet.Cells(Rows.Count, "A").End(xlUp).row
For RowNdx = LastRow To 1 Step -1
with Cells(RowNdx, "A")
if .value = "" then
Rows(RowNdx).Delete
End If
end with
Next RowNdx
Application.ScreenUpdating = True
End Sub
 
try this
Sub RowBeGone()
Columns("A").SpecialCells(xlCellTypeBlanks).EntireRow.Delete
End Sub
 
thank u so much


u guys are amazing
thank u so much
my macro was very slow
thanks agai
 
You must log in or register to reply here.

Ask a Question

Want to reply to this thread or ask your own question?

You'll need to choose a username for the site, which only take a couple of moments. After that, you can post your question and our members will help you out.

Ask a Question

Similar Threads

Macro - Import, Delete, Concatenate 2
Simple Macro 1
Delete all rows where column A is blank 6
Macro delete columns satring row 23 3
Delete rows if column looks blank 4
delete entire row with condition 7
Sum - to end 5
Clearing contents 4

Back
Top