Delete blank rows Macro
Using MS Excel 2000.
Help creating a macro please. I need to search the range A1:A10000 and if the cell is blank I want to delete the entire row. Thanks in advance. -- Richard |
Delete blank rows Macro
"Richard" wrote in message ... Using MS Excel 2000. Help creating a macro please. I need to search the range A1:A10000 and if the cell is blank I want to delete the entire row. Thanks in advance. -- Richard Something like Sub DeleteRowsIfBlank() Dim lrow as Long For lRow = 10000 to 1 step -1 If IsEmpty(Range("A"&lrow)) then Range("A"&lrow).Entirerow.Delete Next lRow End Sub Probably not the most efficient code but should work I think. You may want to specify the worksheet object in which Range resides, for safety. |
Delete blank rows Macro
Richard
Does it have to be a macro? Sort the data by columnA and then the blanks will be at the bottom, then select these rows and delete. If you need a macro post back and we'll go that route -- HTH Nick Hodge Microsoft MVP - Excel Southampton, England www.nickhodge.co.uk HIS "Richard" wrote in message ... Using MS Excel 2000. Help creating a macro please. I need to search the range A1:A10000 and if the cell is blank I want to delete the entire row. Thanks in advance. -- Richard |
Delete blank rows Macro
Additionally, if you want the data back as it was pre-sort then run an index
down a blank column by entering a 1 in the top cell, 2 in the next, then select both and double click the 'fill handle'. (Square in bottom right of second cell) -- HTH Nick Hodge Microsoft MVP - Excel Southampton, England www.nickhodge.co.uk HIS "Richard" wrote in message ... Using MS Excel 2000. Help creating a macro please. I need to search the range A1:A10000 and if the cell is blank I want to delete the entire row. Thanks in advance. -- Richard |
All times are GMT +1. The time now is 07:11 PM. |
Powered by vBulletin® Copyright ©2000 - 2024, Jelsoft Enterprises Ltd.
ExcelBanter.com