Home |
Search |
Today's Posts |
#1
Posted to microsoft.public.excel.misc
|
|||
|
|||
simple row deletion
simple request:
after using the auto filter tool, the rows that got sorted out have a height = 0. I just want a program to delete rows in which the height is 0. or is there sia way to set up the auto filter to do this, even better. Sub row_delete() For i = 1 To 1000 If Rows(i).RowHeight = 0 Then Rows("i").Delete Shift:=xlUp Next i End Sub |
#2
Posted to microsoft.public.excel.misc
|
|||
|
|||
simple row deletion
Two things. You have to do it backwards or consecutive rows of zero height
won't be deleted and the quotes aren't required:- Sub row_delete() For i = 1000 To 1 Step -1 If Rows(i).RowHeight = 0 Then Rows(i).Delete Next i End Sub Mike "lawson" wrote: simple request: after using the auto filter tool, the rows that got sorted out have a height = 0. I just want a program to delete rows in which the height is 0. or is there sia way to set up the auto filter to do this, even better. Sub row_delete() For i = 1 To 1000 If Rows(i).RowHeight = 0 Then Rows("i").Delete Shift:=xlUp Next i End Sub |
#3
Posted to microsoft.public.excel.misc
|
|||
|
|||
simple row deletion
Try going up instead of down. James
Sub RowsOut() Dim k As Long For k = 1000 To 1 Step -1 If Rows(k).EntireRow.RowHeight = 0 Then Rows(k).EntireRow.Delete Next k End Sub "lawson" wrote in message ... simple request: after using the auto filter tool, the rows that got sorted out have a height = 0. I just want a program to delete rows in which the height is 0. or is there sia way to set up the auto filter to do this, even better. Sub row_delete() For i = 1 To 1000 If Rows(i).RowHeight = 0 Then Rows("i").Delete Shift:=xlUp Next i End Sub |
#4
Posted to microsoft.public.excel.misc
|
|||
|
|||
simple row deletion
It's probably a little faster to do just one delete:
Sub DelZeroHeightRowsAfterAutoFilter() Dim Cell As Range Dim DelRows As Range For Each Cell In Range("_FilterDatabase").Columns(1).Cells If Cell.RowHeight = 0 Then If DelRows Is Nothing Then Set DelRows = Cell Else Set DelRows = Union(DelRows, Cell) End If End If Next If Not DelRows Is Nothing Then DelRows.EntireRow.Delete End Sub -- Jim "lawson" wrote in message ... | simple request: | | after using the auto filter tool, the rows that got sorted out have a height | = 0. I just want a program to delete rows in which the height is 0. or is | there sia way to set up the auto filter to do this, even better. | | Sub row_delete() | | For i = 1 To 1000 | | If Rows(i).RowHeight = 0 Then Rows("i").Delete Shift:=xlUp | | Next i | | End Sub | | |
Reply |
Thread Tools | Search this Thread |
Display Modes | |
|
|
Similar Threads | ||||
Thread | Forum | |||
Simple problem, simple formula, no FUNCTION ! | Excel Worksheet Functions | |||
simple deletion won't work for me | Excel Discussion (Misc queries) | |||
On deletion of rows | Excel Discussion (Misc queries) | |||
Simple Simple Excel usage question | Excel Discussion (Misc queries) | |||
Make it more simple or intuitive to do simple things | Charts and Charting in Excel |