| Home |
| Search |
| Today's Posts |
|
#1
Posted to microsoft.public.excel.misc
|
|||
|
|||
Delete extra empty rows
How can I delete all but one empty row between each row or group of
consecutive rows containing data? Here is portion of my spreadsheet: xxxxxxx xxxxxxx xxxxxxx xxxxxxx xxxxxxx xxxxxxx xxxxxxx xxxxxxx xxxxxxxx xxxxxxxx xxxxxxxx xxxxxxxx xxxxxxxx xxxxxxxx xxxxxxxx xxxxxxxx xxxxxxxx xxxxxxxx xxxxxxxx xxxxxxxx xxxxxxxxx xxxxxxxxx |
|
#2
Posted to microsoft.public.excel.misc
|
|||
|
|||
|
Delete extra empty rows
Sub deleteallbutoneblankrowSAS() Dim i As Long For i = Cells(Rows.Count, 1).End(xlUp).Row To 2 Step -1 If Cells(i, 1) = "" And Cells(i + 1, 1) = "" _ Then Rows(i + 1).Delete Next i End Sub ======= On Feb 13, 12:01*pm, gwc wrote: How can I delete all but one empty row between each row or group of consecutive rows containing data? Here is portion of my spreadsheet: xxxxxxx xxxxxxx xxxxxxx xxxxxxx xxxxxxx xxxxxxx xxxxxxx xxxxxxx xxxxxxxx xxxxxxxx xxxxxxxx xxxxxxxx xxxxxxxx xxxxxxxx xxxxxxxx xxxxxxxx xxxxxxxx xxxxxxxx xxxxxxxx xxxxxxxx xxxxxxxxx xxxxxxxxx |
|
#3
Posted to microsoft.public.excel.misc
|
|||
|
|||
|
Delete extra empty rows
On Feb 13, 12:00*pm, Don Guillett wrote:
Sub deleteallbutoneblankrowSAS() Dim i As Long For i = Cells(Rows.Count, 1).End(xlUp).Row To 2 Step -1 If Cells(i, 1) = "" And Cells(i + 1, 1) = "" _ Then Rows(i + 1).Delete Next i End Sub ======= On Feb 13, 12:01*pm, gwc wrote: How can I delete all but one empty row between each row or group of consecutive rows containing data? Here is portion of my spreadsheet: xxxxxxx xxxxxxx xxxxxxx xxxxxxx xxxxxxx xxxxxxx xxxxxxx xxxxxxx xxxxxxxx xxxxxxxx xxxxxxxx xxxxxxxx xxxxxxxx xxxxxxxx xxxxxxxx xxxxxxxx xxxxxxxx xxxxxxxx xxxxxxxx xxxxxxxx xxxxxxxxx xxxxxxxxx- Hide quoted text - - Show quoted text - Thanks. |
| Reply |
| Thread Tools | Search this Thread |
| Display Modes | |
|
|
Similar Threads
|
||||
| Thread | Forum | |||
| Cannot delete extra rows | Excel Discussion (Misc queries) | |||
| How to delete extra rows from bottom? | Excel Discussion (Misc queries) | |||
| Delete Rows with Empty Cells with empty column 1 | Excel Programming | |||
| how do i delete the extra empty rows and columns that i dont need. | Excel Discussion (Misc queries) | |||
| Delete extra rows at the end of macro run | Excel Programming | |||
Linear Mode
