仅连接唯一值

我有这个功能

Public Function CONCATENATESPECIAL(rng As Range) As String
Dim rng1 As Range

CONCATENATESPECIAL = ""

For Each rng1 In rng
    If (Not Rows(rng1.Row).Hidden) And (rng1.Value <> "") Then
    CONCATENATESPECIAL = CONCATENATESPECIAL & rng1.Text & "|"
    End If
Next rng1

End Function

它基本上将某个范围内的值与“ |”连接。

我需要的是-是否可以对其进行编辑-如果在该范围内存在一些重复值，则仅将其包含一次？总结-仅连接唯一值。

提前致谢

我可能会这样处理。我会将所有内容添加到集合中，并将键设置为等于范围值。on error resume next当它尝试将重复项放入集合时，该位将阻止它出错。我需要更多的验证，但是在大多数情况下应该足够了。

Public Function concatenatespecial(rng As Range) As String

Dim col As New Collection
Dim rng1 As Range
Dim str As String
Dim itm As Variant

On Error Resume Next
For Each rng1 In rng
    If rng1 <> "" Then
        col.Add rng1.Value, rng1.Value
    End If
Next rng1
On Error GoTo 0

For Each itm In col
    str = str & "|" & itm
Next itm

concatenatespecial = str

End Function