如何使用VBscript从值列表中获取唯一值？

假设Excel工作表有一个名为的学生姓名，并且该列有重复的值。说，如何使用VBscript从值列表中获取唯一值？

Student 
======= 

Arup 
John 
Mike 
John 
Lisa 
Arup

使用VBScript，我如何获得独特的值如下？

Arup 
John 
Lisa 
Mike

来源

2012-12-06 Arup Rakshit

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

来源

2012-12-06 12:55:48

你好霍纳，是否有在VBScript任何直接的函数或方法，可以给数据填充任何特定的列有多少行？ –

@ user1878162 - 请发布一个新问题。 –

请帮我在我的下面的帖子 - http://stackoverflow.com/questions/13823912/to-move-the-cell-values-in-a-group-from-right-to-left-if-any-group -of-cells- –

如何使用VBscript从值列表中获取唯一值？

回答

相关问题