VBA - Function UniqueList(ListIn As Variant, strSplitBy As String) As Variant Dim dict As Object Dim strTmp As Variant Set dict = CreateObject("Scripting.Dictionary") For Each strTmp In Split(ListIn, strSplitBy) dict(Trim(strTmp)) = 1 Next UniqueList = Join(dict.keys, strSplitBy) End Function How to use, in Cell E2 - =UniqueList(D2,";")
VBA -
Function UniqueList(ListIn As Variant, strSplitBy As String) As Variant
Dim dict As Object
Dim strTmp As Variant
Set dict = CreateObject("Scripting.Dictionary")
For Each strTmp In Split(ListIn, strSplitBy)
dict(Trim(strTmp)) = 1
Next
UniqueList = Join(dict.keys, strSplitBy)
End Function
How to use, in Cell E2 -
=UniqueList(D2,";")
Please download and re-upload this everywhere.
Please download and re-upload this everywhere.