Removing Duplicate Rows

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

Dim lastrow As Long
Dim i As Long
    
    Application.ScreenUpdating = False

    With ActiveSheet
    
        lastrow = .Cells(Rows.Count, "A").End(xlUp).Row
        For i = lastrow To 2 Step -1
        
            If Not IsError(Application.Match(.Cells(i, "A").Value, .Range("A1").Resize(i - 1), 0)) Then
            
                .Rows(i).Delete
            End If
        Next i
    End With
    
    Application.ScreenUpdating = True

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

Hi

Thanks a lot.

Best Regards