Delete Row if value in row changes
 

this code removes rows that match for the first 7 columns. No point in
filter for column "G" as if it differs, it won't be deleted and you'll see
it anyways

Option Explicit
Sub removeDupes()
Dim matched As Boolean
Dim cl As Long ' column counte
Dim rw As Long ' row counter
For rw = 2000 To 2 Step -1
matched = True
For cl = 1 To 7
If Cells(rw, cl) < Cells(rw - 1, cl) Then
matched = False
Exit For
End If
Next
If matched Then
Rows(rw).Delete
End If
Next rw
End Sub




"jscorsone" wrote in message
...
I have a workbook with duplicate rows where multiple columns may remain
the
same, but column F may change from row to row.

I'm trying to delete all rows that are direct duplicates of the row above
it
so I can view just the rows where column F is different (if all other
columns
are similar as row above.)

Thanks for any assistance!