从VBA集合中获取唯一值

Question

我有一个包含数组的集合。键是不同的，但值是重复的..我想从此集合中获取唯一值

以下是样本

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' and 'txt2'

的单个实例

结果可以是包含'txt', 'num' , 'nu2' and 'txt2'

的字符串数组

Answer 1

您可以使用此hack将集合转移到字典： vba: get unique values from array

这将删除重复项。