Based on multiple same column data i want to retrieve only unique data row records

[aligahk06]

Dear All,

I want to keep only unique records based on column J data. Since Column J has multiple same data .
I want to keep only one record and same data shold be deleted.

Any Help,

Thanks,
aligahk06

 

[hiker95]

aligahk06,

So that we can get it right on the first try, can we see what your actual raw data workbook/worksheet looks like?

And, can we see what the results, manually formatted by you on another worksheet, should look like.

You can post your workbook/worksheets to the following free site (sensitive data changed), mark the workbook for sharing, and, provide us with a link to your workbook:

https://dropbox.com

 

[Fluff]

How about

Sub RemoveDupes()
   Dim Cl As Range
   Dim Rng As Range
   
   Set Rng = Range("J" & Rows.Count).End(xlUp).Offset(1)
   With CreateObject("scripting.dictionary")
      For Each Cl In Range("J2", Range("J" & Rows.Count).End(xlUp))
         If Not .exists(Cl.Value) Then
            .Add Cl.Value, Nothing
         Else
            Set Rng = Union(Rng, Cl)
         End If
      Next Cl
   End With
   Rng.EntireRow.Delete
End Sub