Quick way of deleting alternate rows

Question

Quick way of deleting alternate rows

Binty (Materials)

(OP)

19 Nov 03 05:47

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 (Mechanical) · Answer 1 · 2003-11-19 06:02:10

Hello,

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

Sub Macro1()
Range("a1").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 (Mechanical) · Answer 2 · 2003-11-19 06:07:48

Hello,

An alternative, should you have any blank cells

Sub Macro1()
Range("a1").Select
For Count = 1 To Range("a65536").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 (Materials) · Answer 3 · 2003-11-19 11:25:23

Maybe only a drafter but my hero today! Many thanks

philruh (Mechanical) · Answer 4 · 2003-11-23 08:09:09

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

ergon (Electrical) · Answer 5 · 2003-11-24 17:54:03

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 (Mechanical) · Answer 6 · 2003-11-25 18:15:11

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 (Mechanical) · Answer 7 · 2004-02-10 12:24:13

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

aas1 (Civil/Environmental) · Answer 8 · 2004-02-25 10:28:36

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.

Come Join Us!

Posting Guidelines

Quick way of deleting alternate rows