Deleting alternae rows [Solved/Closed]

Question

Deleting alternae rows [Solved/Closed]

Report

abthak - Feb 14, 2010 at 03:12 AM
rizvisa1

Posts: 4476
Registration date: Thursday January 28, 2010
Status: Contributor
Last seen: August 2, 2020

- Feb 14, 2010 at 08:41 AM

Hello,
I want to delete every alternate rows from my work sheet. I tried recording macro, but it only deletes a particular row as shown in macro below (Rows 4:4). Can we do something to it so that i can delete alternate rows with no hassles.. Since I am not trained as a programmer, I will appreciate if anybody can help me out in doing so..
below is the macro i recorded

Sub Macro3()
'
' Macro3 Macro
'
' Keyboard Shortcut: Ctrl+q
'
Rows("4:4").Select
Selection.Delete Shift:=xlUp
End Sub

Deleting alternae rows
Excel - A macro to delete alternate rows - How-To - Office Software
How to delete a row in a table in word - How-To - Word
Delete cells/rows but keep row info intact ✓ - Forum - Excel
Macro to Deleting Multiple Rows ✓ - Forum - Excel
Macro to delete blank rows? ✓ - Forum - Excel

1 reply

Ask a question

rizvisa1 · Accepted Answer · 2010-02-14T07:50:00-0500

Answer 1 / 1

rizvisa1

Posts: 4476
Registration date: Thursday January 28, 2010
Status: Contributor
Last seen: August 2, 2020

767
Feb 14, 2010 at 07:50 AM

Sub deleteAlternateRow()

Dim startAtRow, endAtRow, rowCounter As Long

startAtRow = 2
endAtRow = 100


For rowCounter = startAtRow To endAtRow
    Rows(rowCounter).Select
    Selection.Delete Shift:=xlUp
Next
End Sub

Report

abthak
Feb 14, 2010 at 08:23 AM

Wow!!!!....
It has worked.
Thanks a lot. :)

Report

rizvisa1

Posts: 4476
Registration date: Thursday January 28, 2010
Status: Contributor
Last seen: August 2, 2020

767 > abthak
Feb 14, 2010 at 08:41 AM

Glad it worked out for you. I have just mailed you the bill :p~~ kidding

Deleting alternae rows [Solved/Closed]

1 reply

Your reply

Subscribe To Our Newsletter!