Macros to Delete Rows in Excel 2007Solved/Closed

Question

Hello, 

I want to delete the rows which contains number less than value 1000 in one column.

For instance, I have column AJ which shows the value. I wanted to delete the entire row where column AJ Value contains < 1000.

Please help me on the same.

Thanks in Advance.



Configuration: Windows XP / Internet Explorer 7.0

TrowaD · Answer

Hi Shiva,

Try this code:
Sub DeleteRows()
lRow = Range("AJ" & Rows.Count).End(xlUp).Row
Set MR = Range("AJ1:AJ" & lRow)
For Each cell In MR
If cell.Value < 1000 And cell.Value <> "" Then cell.EntireRow.Delete
    Next
End Sub
Do let me know how this works out for you and if any adjustments are needed.

Best regards,
Trowa

Macros to Delete Rows in Excel 2007

1 response

Similar discussions

Subscribe To Our Newsletter!