ciao
non è necessario, come vedi nel foglio Tabella per esempio, in F12 c'è lo stesso risultato, basta una piccola modifica. Vedi allegato
Function Unisci(rng As Range) As String
Dim mColl As New Collection
Set sh = Worksheets(rng.Parent.Name)
For j = 10 To 12
mstr = mstr & sh.Cells(j, 9) & ","
Next
mstr = Left(mstr, Len(mstr) - 1)
msplit = Split(mstr, ",")
For j = 0 To UBound(msplit)
On Error Resume Next
mColl.Add msplit(j), msplit(j)
Next j
mstr = ""
For j = 1 To mColl.Count
mstr = mstr & mColl(j) & ","
Next j
Unisci = Left(mstr, Len(mstr) - 1)
End Function saluti
Domenico
Win 10 - Excel 2016