處理給定數組，使該數組中沒有重複元素

Function unique(astrArray)
    Dim strResult as String
    Dim strMacro as String
    Dim i as Integer
    strResult = |"+astrArray(0)+"|
    For i =1 to Ubound(astrArray)
        strResult = strResult + |:"| + astrArray(i) + |"|
    Next
    strMacro = |@unique(| + strResult + |)|
    unique = Evaluate(strMacro)
End Function