Pull unique values from comma delimited text string into adjacent cell

[CF64]

Hello, Could someone please advise on a formula or macro which could pull out the unique values in a comma delimited cell which may have duplicate text strings into an adjacent cell?

For example in Cell A1 I have:
dog, cat, rabbit, dog, deer, owl, deer, fox, cat, owl

And I would like to put see in cell B1:
dog, cat, rabbit, deer, owl, fox

cell B1 would only pull in cell A1's unique values

Thank you

 

[Fluff]

How about

=TEXTJOIN(", ",,UNIQUE(TRIM(TEXTSPLIT(A1,,","))))

 

[CF64]

Thank you!

 

[Fluff]

You're welcome & thanks for the feedback.

 

[JoeMo]

For those not using the 365 version of Excel, here's a UDF that should run in earlier versions.

Book1
	A	B
1	dog, cat, rabbit, dog, deer, owl, deer, fox, cat, owl	dog, cat, rabbit, deer, owl, fox
Sheet1

Cell Formulas
Range	Formula
B1	B1	=unqvals(A1)

Function UnqVals(S As String)
Dim V, d As Object
V = Split(S, ", ")
Set d = CreateObject("Scripting.dictionary")
For i = LBound(V) To UBound(V)
If Not d.exists(V(i)) Then d.Add V(i), d.Count + 1
Next i
UnqVals = Join(d.keys, ", ")
End Function

 

[NdNoviceHlp]

Hi CF64. This split bubble sort seems to work. HTH. Dave

Sub test()
Dim Splitter As Variant, Splitter2 As Variant
Dim Cnt10 As Integer, Cnt11 As Integer
Splitter = Split(Sheets("Sheet1").Range("A" & 1).Value, ",")
Sheets("Sheet1").Range("B" & 1).Value = Splitter(UBound(Splitter)) & ","
For Cnt10 = UBound(Splitter) To LBound(Splitter) Step -1
Splitter2 = Split(Sheets("Sheet1").Range("B" & 1).Value, ",")
For Cnt11 = UBound(Splitter2) To LBound(Splitter2) Step -1
' more than one entry
If LCase(Splitter(Cnt10)) = LCase(Splitter2(Cnt11)) Then
GoTo bart
End If
Next Cnt11
Sheets("Sheet1").Range("B" & 1).Value = Sheets("Sheet1").Range("B" & 1).Value & Splitter(Cnt10) & ","
bart:
Next Cnt10
Sheets("Sheet1").Range("B" & 1).Value = Left(Sheets("Sheet1").Range("B" & 1).Value, _
                                             Len(Sheets("Sheet1").Range("B" & 1).Value) - 1)

End Sub

Edit: late to the party. Fluff and JoeMo's solution are much more elegant.