Home |
Search |
Today's Posts |
#1
Posted to microsoft.public.excel.programming
|
|||
|
|||
Delete rows
Here's a real simple one.
Starting in the row where the cursor is, I'd like to delete every other row. Can someone give me the code for this? |
#2
Posted to microsoft.public.excel.programming
|
|||
|
|||
Delete rows
Hi,
Do it from the bottom up. Select the bottom row to be deleted. Sub DelRows() Dim Rw Rw = ActiveCell.Row Do Rows(Rw).Delete Rw = Rw - 2 Loop Until Rw < 1 End Sub regards, Don "ArthurJon" wrote in message ... Here's a real simple one. Starting in the row where the cursor is, I'd like to delete every other row. Can someone give me the code for this? |
Reply |
Thread Tools | Search this Thread |
Display Modes | |
|
|
Similar Threads | ||||
Thread | Forum | |||
Hpw do I delete multiple empty rows found between filled rows? | Excel Worksheet Functions | |||
How to Delete empty rows in excel in b/w rows with values | Excel Worksheet Functions | |||
Cut filtered rows, paste into next empty row of new sheet, and delete cut rows | Excel Worksheet Functions | |||
How to delete rows when List toolbar's "delete" isnt highlighted? | Excel Worksheet Functions | |||
delete empty rows between rows with text | Excel Discussion (Misc queries) |