chỉ nối các giá trị duy nhất

Tôi có chức năng này

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

Về cơ bản, nó kết hợp các giá trị trong một số phạm vi với "|".

Những gì tôi cần là - có thể chỉnh sửa nó, thành - nếu có, trong phạm vi đó một số giá trị trùng lặp, chỉ bao gồm một lần? Để tổng hợp - chỉ ghép các giá trị duy nhất.

Cảm ơn trước

Tôi có thể sẽ đi về nó theo cách này. Tôi sẽ thêm mọi thứ vào một bộ sưu tập và đặt khóa bằng với giá trị phạm vi. Các on error resume nextbit sẽ ngăn chặn nó từ erroring khi nó cố gắng để đưa một bản sao trong bộ sưu tập. Tôi sẽ cần xác nhận thêm một chút, nhưng đối với hầu hết các phần nó nên đủ.

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