Removing Duplicate Rows

Originally Posted by virtualized

Hi Everyone

I have data in following form(also attached in Excel File):

(5,1)
(7,1)
(5,1) Duplicate
(19,1)
(7,1) Duplicate
(33,1)
(41,1)
(33,1) Duplicate

I want to remove duplicate entries from the Data, so that the remaining Data should be:
(5,1)
(7,1)
(19,1)
(33,1)
(41,1)

Can anybody please explain how it should be done?

Best Regards

Column A --> Data -->Remove Duplicate. OK
If you like code, you try thiscode

Sub RemoveDuplicate()
Dim sArray As Variant, RArr(), iRow As Long, i As Long
With Sheets("Sheet1").Range("a2").CurrentRegion
    .Columns("c").ClearContents
    sArray = .Value
End With
ReDim RArr(1 To UBound(sArray), 1 To UBound(sArray, 2))
With CreateObject("Scripting.Dictionary")
    For iRow = 1 To UBound(sArray, 1)
        If Not .exists(sArray(iRow, 1)) Then
            i = i + 1
            .Item(sArray(iRow, 1)) = i
            RArr(i, 1) = sArray(iRow, 1)
        End If
    Next iRow
End With