Home |
Search |
Today's Posts |
#1
Posted to microsoft.public.excel.programming
|
|||
|
|||
I need a macro that will delete every other row in excel.
I tried the following but no luck. If I just create a macro to delete a row
it places a 2 where I have the variable row. I just need to increment the row. Sub delete() ' delete Macro ' Dim row, endrow As Integer row = 2 endrow = 120 ' If row < endrow Then Rows("row:row").Select Selection.delete Shift:=xlUp row = row + 1 End If End Sub |
#2
Posted to microsoft.public.excel.programming
|
|||
|
|||
I need a macro that will delete every other row in excel.
Sub delete()
' delete Macro ' Dim startrow as long, endrow As long Dim rw as Long startrow = 2 endrow = 120 ' for rw = endrow to row step -1 Rows(rw).delete Shift:=xlUp Next End If End Sub or Sub Delete() dim startrow as long, endrow as Long startrow = 2 endrow = 120 rows(startrow).Resize(endrow - startrow + 1) _ .entireRow.Delete End Sub -- Regards, Tom Ogilvy "Russ T" <Russ wrote in message ... I tried the following but no luck. If I just create a macro to delete a row it places a 2 where I have the variable row. I just need to increment the row. Sub delete() ' delete Macro ' Dim row, endrow As Integer row = 2 endrow = 120 ' If row < endrow Then Rows("row:row").Select Selection.delete Shift:=xlUp row = row + 1 End If End Sub |
Reply |
Thread Tools | Search this Thread |
Display Modes | |
|
|
Similar Threads | ||||
Thread | Forum | |||
Excel Delete VB Macro | Excel Worksheet Functions | |||
How do i delete a macro in Excel 2003 when delete isn't highlight | Excel Discussion (Misc queries) | |||
Delete records using excel Macro | Excel Programming | |||
Delete records using excel Macro | Excel Programming | |||
How to delete an Excel Macro from VBScript | Excel Programming |