Does anyone have code for selecting a group of rows, checking one column for
the highest/lowest value of the group, deleting the other rows -- then moving
to the next group?

Just trying to save some time. Thanks!

Sub ABC()
Dim rng As Range, rng1 As Range
Dim lastrow As Long, i As Long
Dim dMax As Double, icol As Long
Dim j as Long
' set column to find max value
icol = 3
lastrow = Cells(Rows.Count, 1).End(xlUp).Row
For i = lastrow To 10 Step -10
Set rng = Cells(i, 1)
Set rng = rng.Offset(-9, 0).Resize(10, 1).EntireRow
Set rng1 = Intersect(rng.EntireRow, Columns(icol))
dMax = Application.Max(rng1)
For j = i To i - 9 Step -1
If Cells(j, icol) < dMax Then
rows(j).Delete
End If
Next j
Next i
End Sub

--
Regards,
Tom Ogilvy


"Eric" wrote:

Does anyone have code for selecting a group of rows, checking one column for
the highest/lowest value of the group, deleting the other rows -- then moving
to the next group?

Just trying to save some time. Thanks!