เชื่อมต่อค่าที่ไม่ซ้ำกันเท่านั้น

ฉันมีฟังก์ชั่นนี้

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