Warning: file_get_contents(/data/phpspider/zhask/data//catemap/0/vba/14.json): failed to open stream: No such file or directory in /data/phpspider/zhask/libs/function.php on line 167

Warning: Invalid argument supplied for foreach() in /data/phpspider/zhask/libs/tag.function.php on line 1116

Notice: Undefined index: in /data/phpspider/zhask/libs/function.php on line 180

Warning: array_chunk() expects parameter 1 to be array, null given in /data/phpspider/zhask/libs/function.php on line 181
从VBA集合中获取唯一值_Vba_Excel - Fatal编程技术网

从VBA集合中获取唯一值

从VBA集合中获取唯一值,vba,excel,Vba,Excel,我有一个包含数组的集合。键不同,但值重复。。我希望从此集合中获取唯一值 这是样品 Dim MyCollection As New Collection MyCollection.Add Array(A1,txt),A1 MyCollection.Add Array(A2,txt),A2 MyCollection.Add Array(A3,txt),A3 MyCollection.Add Array(A4,txt),A4 MyCollection.Add Array(A5,num),A5 M

我有一个包含数组的集合。键不同,但值重复。。我希望从此集合中获取唯一值

这是样品

Dim MyCollection As New Collection


MyCollection.Add Array(A1,txt),A1
MyCollection.Add Array(A2,txt),A2
MyCollection.Add Array(A3,txt),A3
MyCollection.Add Array(A4,txt),A4

MyCollection.Add Array(A5,num),A5
MyCollection.Add Array(A6,num),A6
MyCollection.Add Array(A7,num),A7
MyCollection.Add Array(A8,nu2),A8

MyCollection.Add Array(B1,nu2),B1
MyCollection.Add Array(B2,nu2),B2
MyCollection.Add Array(B3,txt2),B3
MyCollection.Add Array(B4,txt2),B4
MyCollection.Add Array(B5,txt2),B5
我想获得单个实例的
'txt',num',nu2'和'txt2'


结果可以是一个字符串数组,其中包含
'txt'、'num'、'nu2'和'txt2'

您可以使用以下技巧将收藏转移到字典:

这将删除重复项