data reduction

**Leal72** · 03-24-2008, 04:27 PM

I have a text file that I need to reduce by deleting rows of data.

I get the data file which I am able to open just like I would a .csv file.

Each of these files contains the results for 5 parts on average, the sample below only has 2.

I need to reduce the rows of data per part by keeping only every fifth row of data.

I have attatched a sample of the file I need to reduce

**fiate2000** · 03-24-2008, 04:32 PM

You need a simple macro to do it. How is your VBA?

**Leal72** · 03-24-2008, 04:47 PM

my VBA is not very good.

**fiate2000** · 03-26-2008, 12:27 PM

You can use a macro similar to the following

Sub reduce_data()
    
    Dim first_cell As Range
    Dim last_row As Long
    
    
    last_row = ActiveCell.End(xlDown).Row
    
    While (ActiveCell.Row <= last_row - 5)
        ActiveCell.Offset(1, 0).Select
        For i = 1 To 5
            ActiveCell.EntireRow.Delete
            last_row = last_row - 1
        Next

    
    Wend
    
    
    
End Sub

Select any cell on first row of your data and run it. It will keep fifth row till it reaches the first empty row.