Home |
Search |
Today's Posts |
#4
![]()
Posted to microsoft.public.excel.programming
|
|||
|
|||
![]() How about... Sub DelBlanks() On error resume next set rng =Range("a1:a" & [a65536].End(xlUp).Row) rng.SpecialCells(xlCellTypeBlanks).Delete End sub -- davidm ------------------------------------------------------------------------ davidm's Profile: http://www.excelforum.com/member.php...o&userid=20645 View this thread: http://www.excelforum.com/showthread...hreadid=485716 |
Thread Tools | Search this Thread |
Display Modes | |
|
|
![]() |
||||
Thread | Forum | |||
remove duplicates except blanks | Excel Worksheet Functions | |||
remove blanks using formula | Excel Worksheet Functions | |||
Condense list (remove blanks) | Excel Worksheet Functions | |||
Concatenate and remove blanks | Excel Worksheet Functions | |||
Macro to remove blanks in text | Excel Programming |