Remove Duplicates with in a column

[Blessy Clara]

Hi

I have an excel sheet - Column A contains Phone Numbers separated by a "||" Symbol -
Requirement - I want to remove the repeat occurrence of a number with in a cell and retain only one occurrence

[TABLE="width: 500"]
<tbody>[TR]
[TD]Occurence[/TD]
[TD]Post Dedup - Result[/TD]
[/TR]
[TR]
[TD]18002821376 || 18005675803 || 18002687708 || 18005675803


[/TD]
[TD]18002821376 || 18005675803 || 18002687708 || [/TD]
[/TR]
[TR]
[TD]18882733488 || 18667585678 || 18665543456 ||18882733488 || 18667585678 || 18665543456


[/TD]
[TD]18882733488 || 18667585678 || 18665543456[/TD]
[/TR]
</tbody>[/TABLE]


Thank you

 

[Fluff]

How about

Sub BlessyClara()
   Dim Cl As Range
   Dim Sp As Variant
   Dim i As Long
   
   With CreateObject("scripting.dictionary")
      For Each Cl In Range("A2", Range("A" & Rows.Count).End(xlUp))
         Sp = Split(Cl, "||")
         For i = 0 To UBound(Sp)
            .Item(Trim(Sp(i))) = Empty
         Next i
         Cl.Value = join(.Keys, "||")
         .RemoveAll
      Next Cl
   End With
End Sub