"склеивание" неповторяющихся ячеек

[Z0RGE]

Добрый день! Имеется функция:
Public function сцепитьвсе (target as range)
For each cl in target.cells
If cl.value <> "" then сцепитьвсе = сцепитьвсе & cl.value & "; "
Next
End function
Извиняюсь, что функция в таком виде, пишу с телефона.
Помогите переделать функцию так, чтобы склеивались только неповторяющиеся ячейки.

[SAS888]

Можно так:

Public Function сцепитьвсе(target As Range)
    Set x = CreateObject("Scripting.Dictionary")
    For Each cl In target
        If cl <> "" Then If Not x.Exists(cl.Value) Then x.Add cl.Value, cl
    Next
    сцепитьвсе = Join(x.Keys, "; ")
End Function

[Z0RGE]

Большое спасибо!