how to delete alternate rows in a spreadsheet?

  • Thread starter Thread starter SI
  • Start date Start date
S

SI

hello, i have a spreadsheet with about 60,000 data points in it, Excel will
only let me plot 32,000 points!
Is there a way/formular so i can delete everyother row? ie,so instead of
having rows numbered 1,2,3,4,5,6,7,8,9,10. I would end up with 1,3,5,7,9 and
so on!
This would give me around 30,000 points!

Thanks,
Simon.
 
In a helper column put this: =MOD(ROW(),2)
Autofilter the data and select the value that you want to delete and delete
it.
Then delete the helper column.
 
Sub delete_even_rows()
Dim r As Long
Dim rng As Range
Dim numLoops As Long

Set rng = Range("A1:A60000")
numLoops = Int((rng.Rows.Count / 2))
For r = 1 To numLoops
rng(r + 1, 1).entirerow.Delete
Next
End Sub


Gord Dibben MS Excel MVP
 
Hi Simon,

Another option is to copy them to a new sheet thus
leaving your raw data intact.

With your raw data in Sheet1 column A
Put this in Sheet2 column A and drag down 30000 odd rows.
=OFFSET(Sheet1!A$1,(ROWS($1:1)-1)*2,,)
adjust the Sheet name and column to suit.

This will extract every second value from Sheet1 to Sheet2

HTH
Martin
 
Back
Top