Home |
Search |
Today's Posts |
#1
Posted to microsoft.public.excel.programming
|
|||
|
|||
How you decimate data using EXCEl (i.e., remove every second or t.
I have a data file (over 9000 rows and 10 columns worth of data), and I would
like to remove every fifth row to reduce the amount of data. How do i accomplish this? |
#2
Posted to microsoft.public.excel.programming
|
|||
|
|||
How you decimate data using EXCEl (i.e., remove every second or t.
Blue,
Try the macro below. HTH, Bernie MS Excel MVP Sub RemoveEveryFifthRow() Dim myRows As Long Range("A1").EntireColumn.Insert Range("A1").FormulaR1C1 = _ "=IF(MOD(ROW(),5)=0,""Trash"",""Keep"")" myRows = ActiveSheet.UsedRange.Rows.Count Range("A1").Copy Range("A1:A" & myRows) With Range(Range("A1"), Range("A1").End(xlDown)) .Copy .PasteSpecial Paste:=xlValues End With Cells.Select Selection.Sort Key1:=Range("A1"), Order1:=xlAscending Columns("A:A").Find(What:="Trash", After:=Range("A1")).Select Range(Selection, Selection.End(xlDown)).EntireRow.Delete Range("A1").EntireColumn.Delete End Sub "littlebluesoul" wrote in message ... I have a data file (over 9000 rows and 10 columns worth of data), and I would like to remove every fifth row to reduce the amount of data. How do i accomplish this? |
#3
Posted to microsoft.public.excel.programming
|
|||
|
|||
How you decimate data using EXCEl (i.e., remove every second or t.
One way:
Sub DeleteEveryFifthRow() Dim lRow As Long lRow = Range("A65536").End(xlUp).Row Do While lRow 0 Cells(lRow, 1).EntireRow.Delete lRow = lRow - 5 Loop End Sub "littlebluesoul" wrote: I have a data file (over 9000 rows and 10 columns worth of data), and I would like to remove every fifth row to reduce the amount of data. How do i accomplish this? |
Reply |
Thread Tools | Search this Thread |
Display Modes | |
|
|
Similar Threads | ||||
Thread | Forum | |||
decimate rows in Excel 2007 | Excel Discussion (Misc queries) | |||
How do I remove data in a row in excel without losing all data in | Excel Worksheet Functions | |||
How do I remove the text qualifier (') from my data in Excel? | Excel Discussion (Misc queries) | |||
how do I remove repeated data in excel | Excel Worksheet Functions | |||
Excel 97-remove link but keep data | Excel Discussion (Misc queries) |