Home |
Search |
Today's Posts |
#1
Posted to microsoft.public.excel.worksheet.functions
|
|||
|
|||
how do i find and delete all empty rows in an excel worksheet
how do i find and delete all empty rows in an excel worksheet that was
created by exporting a double spaced crystal report ? |
#2
Posted to microsoft.public.excel.worksheet.functions
|
|||
|
|||
how do i find and delete all empty rows in an excel worksheet
If for sure you have a blank row between each data row.
Select a column. F5SpecialBlanksOK EditDeleteEntire Row Gord Dibben MS Excel MVP On Thu, 31 Aug 2006 16:25:02 -0700, AinSF wrote: how do i find and delete all empty rows in an excel worksheet that was created by exporting a double spaced crystal report ? |
#3
Posted to microsoft.public.excel.worksheet.functions
|
|||
|
|||
how do i find and delete all empty rows in an excel worksheet
Yes thanks but this seems limited to the selected column. The worksheet has
rows that may have blank cells in some columns but not all. What I need to delete are all empty rows only. "Gord Dibben" wrote: If for sure you have a blank row between each data row. Select a column. F5SpecialBlanksOK EditDeleteEntire Row Gord Dibben MS Excel MVP On Thu, 31 Aug 2006 16:25:02 -0700, AinSF wrote: how do i find and delete all empty rows in an excel worksheet that was created by exporting a double spaced crystal report ? |
#4
Posted to microsoft.public.excel.worksheet.functions
|
|||
|
|||
how do i find and delete all empty rows in an excel worksheet
Sub DeleteEmptyRows()
''only if entire row is blank lastrow = ActiveSheet.UsedRange.Row - 1 + _ ActiveSheet.UsedRange.Rows.Count Application.ScreenUpdating = False For r = lastrow To 1 Step -1 If Application.CountA(Rows(r)) = 0 Then Rows(r).Delete Next r End Sub If not familiar with VBA and macros, see David McRitchie's site for more on "getting started". http://www.mvps.org/dmcritchie/excel/getstarted.htm In the meantime.......... First...create a backup copy of your original workbook. To create a General Module, hit ALT + F11 to open the Visual Basic Editor. Hit CRTL + R to open Project Explorer. Find your workbook/project and select it. Right-click and InsertModule. Paste the code in there. Save the workbook and hit ALT + Q to return to your workbook. Run the macro by going to ToolMacroMacros. You can also assign this macro to a button or a shortcut key combo. Gord On Thu, 31 Aug 2006 16:57:02 -0700, AinSF wrote: Yes thanks but this seems limited to the selected column. The worksheet has rows that may have blank cells in some columns but not all. What I need to delete are all empty rows only. "Gord Dibben" wrote: If for sure you have a blank row between each data row. Select a column. F5SpecialBlanksOK EditDeleteEntire Row Gord Dibben MS Excel MVP On Thu, 31 Aug 2006 16:25:02 -0700, AinSF wrote: how do i find and delete all empty rows in an excel worksheet that was created by exporting a double spaced crystal report ? Gord Dibben MS Excel MVP |
Reply |
Thread Tools | Search this Thread |
Display Modes | |
|
|
Similar Threads | ||||
Thread | Forum | |||
how do i find and delete duplicates in excel worksheet? | Excel Discussion (Misc queries) | |||
[excel 2003] Delete empty rows | Excel Worksheet Functions | |||
How can I use find and replace to delete a word in Excel? | Excel Discussion (Misc queries) | |||
How do I find duplicate rows in a list in Excel, and not delete it | Excel Discussion (Misc queries) | |||
How can I delete rows from Pivot Tables in Excel 2000 as in 97 | Excel Discussion (Misc queries) |