如何使用VBscript從值列表中獲取唯一值？

Question

假設Excel工作表有一個名爲的學生姓名，並且該列有重複的值。說，

Student 
======= 

Arup 
John 
Mike 
John 
Lisa 
Arup 

使用VBScript，我如何獲得獨特的值如下？

Arup 
John 
Lisa 
Mike 

Answer 1

VBScript的工具，獲得獨特的物品是一本字典：添加的所有項目，如鑰匙字典和dictionary.Keys（）返回的數組 - 每個definitionem - 唯一的密鑰。在代碼：

Dim aStudents : aStudents = Array("Arup", "John", "Mike", "John", "Lisa", "Arup") 
    WScript.Echo Join(aStudents) 
    Dim aUniqStudents : aUniqStudents = uniqFE(aStudents) 
    WScript.Echo Join(aUniqStudents) 

' returns an array of the unique items in for-each-able collection fex 
Function uniqFE(fex) 
    Dim dicTemp : Set dicTemp = CreateObject("Scripting.Dictionary") 
    Dim xItem 
    For Each xItem In fex 
     dicTemp(xItem) = 0 
    Next 
    uniqFE = dicTemp.Keys() 
End Function 

輸出：

Arup John Mike John Lisa Arup 
Arup John Mike Lisa