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

Occurence	Post Dedup - Result
18002821376 || 18005675803 || 18002687708 || 18005675803	18002821376 || 18005675803 || 18002687708 ||
18882733488 || 18667585678 || 18665543456 ||18882733488 || 18667585678 || 18665543456	18882733488 || 18667585678 || 18665543456

<tbody>
</tbody>

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