LinkBack URL
About LinkBacks
This is the best that I can do for getting rid of blank rows. It's a little bit slow, and alternatively I would like to move all the text upward into any empty spaces without deleting rows. Any ideas?
Please Login or Register to view this content.
This is the best that I can do for getting rid of blank rows. It's a little bit slow, and alternatively I would like to move all the text upward into any empty spaces without deleting rows. Any ideas?
Please Login or Register to view this content.
why not delete het empty (blanc) rows?
Please Login or Register to view this content.
Notice my main language is not English.
I appreciate it, if you reply on my solution.
If you are satisfied with the solution, please mark the question solved.
You can add reputation by clicking on the star * add reputation.
To be honest, you just need one line
Range("A1:A2400").SpecialCells(xlCellTypeBlanks).EntireRow.Delete
aHAA. JieJenn - I had no idea it was that easy. Thanks.
@JieJenn
In your code (#3) you need to hard code the range.
In my found code (#2) it automatic counts all rows.
I think (#2) is easier for common use.
By the way, I think one line is not always better than more lines.
If it is easier to read to code if it is more lines, i prefer the last one.
In that case it is easier to change (to my opinion)
You can always it do dynamic range
Range("A1:A" & Cells(Rows.count,1).end(xlup).row).SpecialCells(xlCellTypeBlanks).EntireRow.Delete
There are currently 1 users browsing this thread. (0 members and 1 guests)
Posting Permissions
Register To Reply
Bookmarks