Delete duplicate rows based on multiple values

[sharky12345]

I'm using this to delete rows with duplicate values in column B;

For a = Cells(Rows.Count, 2).End(xlUp).Row To 2 Step -1
If WorksheetFunction.CountIf(Range("B2:B" & a), Cells(a, 2)) > 1 Then Rows(a).Delete
Next

What I now need to do is delete rows where the value is the same in columns A, B, C, D and E.

Can someone give me an idea of how to adapt the existing code, or indeed something even simpler?

Thank you!

 

[kevin9999]

Please try the following on a copy of your workbook & see if it does what you want. I'm assuming you mean that the values are the same across all columns (A-E) in multiple rows.

Option Explicit
Sub ZapDupes()
    Dim ws As Worksheet, i As Long
    Set ws = Worksheets("Sheet1")       '<-- *** Change to actual sheet name ***
    With ws.Range("A1").CurrentRegion
        .RemoveDuplicates Columns:=Array(1, 2, 3, 4, 5), Header:=xlYes
    End With
End Sub

 

[sharky12345]

Works a treat - thanks!

 

[kevin9999]

Works a treat - thanks!

Happy to help, and thanks for the feedback

 

[kevin9999]

Actually, you can lose the dim i bit (was part of something else I was looking at)

Option Explicit
Sub ZapDupes()
    Dim ws As Worksheet
    Set ws = Worksheets("Sheet1")       '<-- *** Change to actual sheet name ***
    With ws.Range("A1").CurrentRegion
        .RemoveDuplicates Columns:=Array(1, 2, 3, 4, 5), Header:=xlYes
    End With
End Sub