Deleting Multiple Rows...URGENT

[gjtaylor10]

I have over 40,000 rows of information that i need to be trimmed down. Is there a easy way to delete every OTHER row of information? I need help fast.

 

[JustinStarry]

Sub DeleteRows()
StartRow = 1 '<-- Enter First Row To Be Deleted
EndRow = 100 '<-- Enter Last Row To Be Deleted
 
currR = StartR - 2
Do
    currR = currR + 2
    Rows(currR).Delete Shift:=xlUp
Loop Until currR > EndR - 2
End Sub

By the way... Always save your data before you run code that deletes data... THERE IS NO UNDO FOR MACROS

 

[gjtaylor10]

Where do i go about to write this code? Could you give me guided steps on where to do this. Thank you?

 

[GRCArizona]

does this help?

Sub Delete_Everyother_Row()
Dim rng As Range
Application.ScreenUpdating = False
Columns("A:A").Insert
Set rng = Range("A10:A40000")
With rng
.FormulaR1C1 = "=IF(MOD(ROW(),2)=0,1,"""")"
.SpecialCells(xlCellTypeFormulas, 2).EntireRow.ClearContents
End With
Columns("A:A").Delete
Application.ScreenUpdating = True
End Sub

 

[AlphaFrog]

Alt+F11 to open the VBA editor
From the VBA menu select Insert\ Module
Paste the code below in the VBA Edit window

Test this on a copy of your data to make sure it's what you really want.

Sub Delete_Everey_Other_Row()

    Dim Lastrow As Long, r As Long
    
    Lastrow = Cells.Find("*", SearchOrder:=xlByRows, SearchDirection:=xlPrevious).Row
    
    Application.ScreenUpdating = False
    For r = Lastrow To 1 Step -2
        Rows(r).Delete
    Next r
    Application.ScreenUpdating = False
    
End Sub

 

[gjtaylor10]

Im unaware on how to work with Macros. I have windows 7 with excel 2007. How do i run the macro or enter the code.

 

[JustinStarry]

Im unaware on how to work with Macros. I have windows 7 with excel 2007. How do i run the macro or enter the code.

With your Excel sheet active... go to

Tools... Macro... Macros