Excel VBA Remove Duplicates

Excel VBA Remove Duplicate Values In Row With Loop

         The duplicate values in the column can be deleted with a simple For-Next loop. For example, column A was taken as the basis in this template. The used loop's codes :

Sub remove()
Dim a As Long
For a = Cells(Rows.Count, 1).End(xlUp).Row To 1 Step -1
If WorksheetFunction.CountIf(Range("A1:A" & a), Cells(a, 1)) > 1 Then Rows(a).Delete
Next
End Sub