EXcel VBAやVBScriptで配列の重複を削除する必要があり下記関数を作成しました。
辞書型を使うことで,重複文字列を除外しています。
Function DeleteDupulicate(RamArray)
Set Dic = CreateObject("Scripting.Dictionary")
On Error Resume Next
For i = 0 To UBound(RamArray)
Dic.Add RamArray(i), RamArray(i)
Next
DeleteDupulicate = Dic.Keys
End Function