Home |
Search |
Today's Posts |
#1
![]()
Posted to microsoft.public.excel.programming
|
|||
|
|||
![]()
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! |
Thread Tools | Search this Thread |
Display Modes | |
|
|
![]() |
||||
Thread | Forum | |||
Macro to delete sheets and saves remaining file does not properly delete module | Excel Programming | |||
Macro to delete sheets and saves remaining file does not properly delete module | Excel Programming | |||
Macro to delete sheets and saves remaining file does not properly delete module | Excel Programming | |||
Macro to delete sheets and saves remaining file does not properly delete module | Excel Programming | |||
Delete every 3rd row, then delete rows 2-7, move info f/every 2nd row up one to the end and delete the row below | Excel Programming |