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!

Hi there,

Try the following:

Sub DeleteDublicatedRowsAtoE()
Dim Sht As Worksheet
Dim ColsStr1 As String, ColsStr2 As String
Dim LastRow As Long
Dim i As Long

Set Sht = ThisWorkbook.Worksheets("Sheet1")
With Sht
LastRow = .Cells(.Rows.Count, 1).End(xlUp).Row


For i = LastRow To 2 Step -1
ColsStr1 = _
.Cells(i, 1) & _
.Cells(i, 2) & _
.Cells(i, 3) & _
.Cells(i, 4) & _
.Cells(i, 5)

ColsStr2 = _
.Cells(i - 1, 1) & _
.Cells(i - 1, 2) & _
.Cells(i - 1, 3) & _
.Cells(i - 1, 4) & _
.Cells(i - 1, 5)

If ColsStr1 = ColsStr2 Then .Rows(i).Delete
Next i
End With
End Sub

"jscorsone" <(E-Mail Removed)> wrote in message
news:1C04C19A-C053-49C7-9566-(E-Mail Removed)...
>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!
>
>

Thank you so much for the speedy response.

Exactly what I was looking for, thanks again.

"Patrick Molloy" wrote:

> 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" <(E-Mail Removed)> wrote in message
> news:1C04C19A-C053-49C7-9566-(E-Mail Removed)...
> > 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!
> >
> >
>