delete row

macropod · #1 10-04-2012, 11:52 PM

Try:

Code:

lastRow = Cells(Rows.Count, 1).End(xlUp).Row
For Z = lastRow to 2 Step -1







  If Cells(Z, 4) = "" Then Cells(Z, 4).EntireRow.Delete
Next Z

The problem with a forward-working For .. Next loop when you're deleting items is that, upon deletion, the next item moves into the deleted item's position and doesn't get tested on the next iteration, because it's no longer at its former location.

PS: When posting code, please use the code tags. They're on the 'Go Advanced' tab.

Similar Threads
Thread	Thread Starter	Forum	Replies	Last Post
Delete Space	mariadanmark	Excel	2	05-17-2012 02:53 AM
cannot delete these lines!	userman	Word	4	05-02-2012 12:34 AM
Delete option greyed out when trying to delete row 1	tpcervelo	Excel	2	11-15-2011 06:48 AM
Cannot delete folders	klingenfelter	Outlook	10	02-04-2011 01:35 PM
delete email message via blackberry and have it delete on my pop3 and my outlook	Iamthestorm	Outlook	2	10-28-2010 12:21 AM