Delete duplicate rows based on multiple columns - excel

Question

Bascially I have found the below formula which is perfect except it only filters duplicates out based on column A, whereas I only want the rows deleted if Col A, B and C are all duplicated.
Sub removeDupes()
Dim i As Long
Dim ws As Worksheet
Set ws = ActiveSheet 'This can be changed to a specific sheet: Worksheets("sheetName")
With ws
For i = .Cells(.Rows.Count, 1).End(xlUp).Row To 3 Step -1
If .Cells(i, 1).Value = .Cells(i + 1, 1).Value Then
.Rows(i).Delete
End If
Next i
End With
End Sub
How can I edit this code so it applies to 3 columns?

Answer 1

Remove Duplicates
Before
After
Option Explicit
Sub RemoveDupesShort()
With ActiveSheet.UsedRange
.Range("A3", .Cells(.Rows.Count, .Columns.Count)) _
.RemoveDuplicates (VBA.Array(1, 2, 3))
End With
MsgBox "Duplicates removed.", vbInformation
End Sub
Sub RemoveDupes()
' Define constants.
Const FirstCellAddress As String = "A3"
Dim DupeCols() As Variant: DupeCols = VBA.Array("A", "B", "C")
' Reference the worksheet ('ws').
Dim ws As Worksheet: Set ws = ActiveSheet ' improve!
' For worksheet 'Sheet1' in the workbook containing this code, instead use:
'Set ws = ThisWorkbook.Worksheets("Sheet1")
' Reference the range ('rg').
Dim rg As Range
With ws.UsedRange
Set rg = ws.Range(FirstCellAddress, .Cells(.Rows.Count, .Columns.Count))
End With
' Write the column numbers to a zero-based variant array ('Cols').
Dim cUpper As Long: cUpper = UBound(DupeCols)
Dim Cols() As Variant: ReDim Cols(0 To cUpper)
Dim c As Long
For c = 0 To cUpper
Cols(c) = ws.Columns(DupeCols(c)).Column
Next c
' Remove duplicates.
rg.RemoveDuplicates (Cols)
' Note that the array of column numbers also needs to be evaluated:
' '(Cols)' which is short for 'Evaluate(Cols)'
' Inform.
MsgBox "Duplicates removed.", vbInformation
End Sub