Quick way of deleting alternate rows

[Binty]

A data logger was unfortunately set to a very high sample rate, thus creating a huge file of mainly replicate data, which is too large to put into a single simple graph.

Is there an easy way of thinning out this file in excel, i.e. deleting every other line, to half the file size?
I only know how to do it longhand and the macros I tried to write haven’t been too successful!

It's probably quite simple, but obviously beyond my capabilities! - Any help appreciated, thanks.

 

[onlyadrafter]

Hello,

Try this code, it is a slight workaround but works.

Sub Macro1()
Range("a1&quot.Select
Do Until ActiveCell = ""
Selection.Offset(1, 0).Select
Selection.EntireRow.Delete
Loop
End Sub



Hope this helps.

----------------------------------

maybe only a drafter
but the best user at this company!

 

[onlyadrafter]

Hello,

An alternative, should you have any blank cells

Sub Macro1()
Range("a1&quot.Select
For Count = 1 To Range("a65536&quot.End(xlUp).Row
Selection.Offset(1, 0).Select
Selection.EntireRow.Delete
Next Count
End Sub




Hope this helps.

----------------------------------

maybe only a drafter
but the best user at this company!

 

[Binty]

Maybe only a drafter but my hero today! Many thanks

 

[philruh]

another alternate:
add a column
enter 1 2 1 2
do a sort, and delete the 2's

 

[ergon]

If the order of data is important then philruh may want to add another column B filled with sequential integers. Sort by column A (1 2 1 2 ... )then by column B (1 2 3 4 ...) to preserve the original order. Then delete the 2's.

 

[cpretty]

Activate the Data Analysis Tool that comes with Excel. This allows you to sample your dataset with a period of your choosing. This can then be output to a new sheet, or to a new workbook.

Cheers, Craig

 

[mmartens]

Yes Maybe "only a drafter" but today you saved but! Many thanks

 

[aas1]

ASAP-utilities.com has a free application add-in that is pretty cool that automates many routine tasks in EXCEL. You should check it out.