Home |
Search |
Today's Posts |
#1
Posted to microsoft.public.excel.programming
|
|||
|
|||
Finding Empty Rows
work backwards
Sub RowBeGone1() 'When you delete rows, it's a good idea to do it backwards! Deleting rows 'going forwards causes problems because suppose you delete row 2. Now what 'WAS row 3 is now row 2. Your code doesn't account for this. Try: Application.ScreenUpdating = False 'For i = 5000 To 4 Step -1 For i = Cells(Rows.Count, "A").End(xlUp).Row To 2 Step -1 If Cells(i, 1).Value = "" Then Rows(i).Delete Next Application.ScreenUpdating = True End Sub -- Don Guillett SalesAid Software Granite Shoals, TX "Kevin G" wrote in message ... I have a spreadsheet with approx. 25,000 rows in it. Some of those rows are completely blank. I wrote a FOR/NEXT loop to find and delete those rows, but it's not working exactly how I want. Here's what I wrote: range("a2:a25001").select dim acell as range for each acell in selection if acell = "" then acell.entirerow.delete end if next acell After running this it seems that it finds a few of the empty rows, deletes them, and then stops looking. Am I doing something wrong?? Any help would be appreciated. Thanks, Kevin |
Reply |
Thread Tools | Search this Thread |
Display Modes | |
|
|
Similar Threads | ||||
Thread | Forum | |||
Finding data amongst empty cells | Excel Discussion (Misc queries) | |||
Finding First Empty Cell in a Column | Excel Discussion (Misc queries) | |||
Finding First Empty Cell in a Column | Excel Discussion (Misc queries) | |||
How do I sort with empty rows between none empty rows? | Excel Worksheet Functions | |||
Finding Empty Rows | Excel Programming |