一个VBA自定义函数，使用文本格式连接唯一值单元格

Function ConcatenateUnique(ByRef rngRange As Range, _
         Optional ByVal SeperatorAs String = " ", _
         Optional ByVal Format AsString = "@", _
         Optional ByVal CaseSensitive As Boolean = False) _
         As String
    Dim rng As Range
    Dim strAnswer As String
    Dim strTemp As String
    Dim CompMethod As VbCompareMethod
    '为InStr函数设置文本比较模式
    If CaseSensitive Then
        CompMethod =vbBinaryCompare
    Else
        CompMethod = vbTextCompare
    End If
    For Each rng In rngRange
        strTemp = rng.Value
        '仅处理非空单元格
        If Not strTemp =vbNullString Then
            '应用格式
            strTemp =Application.WorksheetFunction.Text(strTemp, Format)
            '首先初始化结果字符串, 然后合并
            If strAnswer =vbNullString Then
                strAnswer = strTemp
            Else
                '仅合并唯一值
                If InStr(1,Seperator & strAnswer & Seperator, _
                        Seperator& strTemp & Seperator, CompMethod) = 0 Then
                    strAnswer =strAnswer & Seperator & strTemp
                End If
            End If
        End If
    Next rng
    '返回结果字符串
    ConcatenateUnique = strAnswer
End Function