Macro to find duplicate in specific column and delete the entire row

[deepakga123]

Hi Team,

Appreciate your help here,

I need a Macro to find duplicate in column C and delete the entire row. range should be dynamic so that I can use for larger data.
Below is the image of data for reference.

 

[Fluff]

Do you want to delete all the duplicates, or do you want to keep the first occurrence?

 

[deepakga123]

I want delete all duplicates
for eg in my image "566|DISCOUNT 112" is getting repeated I want to keep one data and delete the duplicate one the entire row.

 

[Fluff]

You are contradicting yourself.
Do you want to keep one instance of each value, or delete all duplicated values?

 

[deepakga123]

Wanted to delete all duplicate values

 

[Fluff]

Ok, how about

Sub deepakga()
   Dim Cl As Range, Rng As Range
   
   With CreateObject("scripting.dictionary")
      For Each Cl In Range("C2", Range("C" & Rows.Count).End(xlUp))
         If Not .exists(Cl.Value) Then
            .Add Cl.Value, Cl
         Else
            If Not Rng Is Nothing Then Set Rng = Union(Cl, .Item(Cl.Value)) Else Set Rng = Union(Rng, Cl)
         End If
      Next Cl
   End With
   If Not Rng Is Nothing Then Rng.EntireRow.Delete
End Sub

 

[deepakga123]

Thanks Fluff,
Appreciate your help, I will check the code let you know.

 

[Fluff]