| Home |
| Search |
| Today's Posts |
|
#1
Posted to microsoft.public.excel.programming
|
|||
|
|||
Remove all empty rows in a worksheet
*-is there a way in VBA to remove all empty rows in a worksheet 'Sheet1'?-* +-------------------------------------------------------------------+ |Filename: Remove all empty rows in a worksheet.zip | |Download: http://www.excelforum.com/attachment.php?postid=4326 | +-------------------------------------------------------------------+ -- wrangler ------------------------------------------------------------------------ wrangler's Profile: http://www.excelforum.com/member.php...o&userid=31048 View this thread: http://www.excelforum.com/showthread...hreadid=508980 |
|
#2
Posted to microsoft.public.excel.programming
|
|||
|
|||
|
Remove all empty rows in a worksheet
Assume if the cell in column A is empty, then the row should be removed
Dim rng as Range On Error Resume Next set rng = ActiveSheet.Columns(1).SpecialCells(xlBlanks) On Error goto 0 if not rng is nothing then rng.EntireRow.Delete End if -- Regards, Tom Ogilvy "wrangler" wrote in message ... *-is there a way in VBA to remove all empty rows in a worksheet 'Sheet1'?-* +-------------------------------------------------------------------+ |Filename: Remove all empty rows in a worksheet.zip | |Download: http://www.excelforum.com/attachment.php?postid=4326 | +-------------------------------------------------------------------+ -- wrangler ------------------------------------------------------------------------ wrangler's Profile: http://www.excelforum.com/member.php...o&userid=31048 View this thread: http://www.excelforum.com/showthread...hreadid=508980 |
|
#3
Posted to microsoft.public.excel.programming
|
|||
|
|||
|
Remove all empty rows in a worksheet
Tom Ogilvy Wrote: Assume if the cell in column A is empty, then the row should be removed Dim rng as Range On Error Resume Next set rng = ActiveSheet.Columns(1).SpecialCells(xlBlanks) On Error goto 0 if not rng is nothing then rng.EntireRow.Delete End if -- Regards, Tom Ogilvy "wrangler" wrote in message ... *-is there a way in VBA to remove all empty rows in a worksheet 'Sheet1'?-* +-------------------------------------------------------------------+ |Filename: Remove all empty rows in a worksheet.zip | |Download: http://www.excelforum.com/attachment.php?postid=4326 | +-------------------------------------------------------------------+ -- wrangler ------------------------------------------------------------------------ wrangler's Profile: http://www.excelforum.com/member.php...o&userid=31048 View this thread http://www.excelforum.com/showthread...hreadid=508980 Thank you for replying and I appreciate your effort, but your VBA do not fit my Requirement, If you Please Refer to the attachment File, yo will be aple to see my Dilemma. wrangler Thank -- wrangle ----------------------------------------------------------------------- wrangler's Profile: http://www.excelforum.com/member.php...fo&userid=3104 View this thread: http://www.excelforum.com/showthread.php?threadid=50898 |
| Reply |
| Thread Tools | Search this Thread |
| Display Modes | |
|
|
Similar Threads
|
||||
| Thread | Forum | |||
| How do I remove 10,000+ empty rows below my table? | Excel Discussion (Misc queries) | |||
| how to remove empty rows? | Excel Discussion (Misc queries) | |||
| How do I remove empty Rows | Excel Discussion (Misc queries) | |||
| VBA - remove all empty rows in a worksheet | Excel Programming | |||
| Remove empty rows | Excel Programming | |||
Linear Mode
