Reply
 
LinkBack Thread Tools Search this Thread Display Modes
  #1   Report Post  
Posted to microsoft.public.excel.programming
external usenet poster
 
Posts: 2,337
Default 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
Search this Thread:

Advanced Search
Display Modes

Posting Rules

Smilies are On
[IMG] code is On
HTML code is Off
Trackbacks are On
Pingbacks are On
Refbacks are On


Similar Threads
Thread Thread Starter Forum Replies Last Post
Finding data amongst empty cells James Excel Discussion (Misc queries) 6 November 10th 09 05:35 PM
Finding First Empty Cell in a Column TomHull Excel Discussion (Misc queries) 5 November 9th 09 02:19 AM
Finding First Empty Cell in a Column TomHull Excel Discussion (Misc queries) 0 November 9th 09 01:21 AM
How do I sort with empty rows between none empty rows? Excel Challenged Excel Worksheet Functions 1 August 17th 06 03:59 PM
Finding Empty Rows Tom Ogilvy Excel Programming 0 July 16th 03 04:54 PM


All times are GMT +1. The time now is 11:48 PM.

Powered by vBulletin® Copyright ©2000 - 2024, Jelsoft Enterprises Ltd.
Copyright ©2004-2024 ExcelBanter.
The comments are property of their posters.
 

About Us

"It's about Microsoft Excel"