VBA Help - Removing Duplicates horizontally

[Preccor]

Hello All

Is it possible to delete duplicate values horizontally? Attached is a spreadsheet. The goal is to use VBA to remove all duplicates in cells horizontally leaving one unique value across the cells.

For example:
In row 2 ,Phone Number Only, No Email Address, No Last Name, Miscellaneous are found in cells A2:H2. I would like each one to show only once, essentially deleting duplicates in the row.

Thanks in advance.

 

[BSALV]

formula

=TRANSPOSE(UNIQUE(TRANSPOSE(A2:H2)))

VBA

Sub duplicates()
     Set dict = CreateObject("scripting.dictionary")
     dict.CompareMode = vbTextCompare                           'not case sensitive
     For Each c In Range("A2:H2").Cells
          dict(c.Value) = 1
     Next

     arr = dict.keys
     MsgBox Join(arr, vbLf), , "no duplicates"
     Range("J2").Resize(, UBound(arr) + 1).Value = arr

End Sub

 

[Preccor]

I will give it a try tomorrow. Thank you!

 

[Preccor]

Amazing. Perfect. The formula only is necessary for my purposes. Thank you!