从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

您可以使用以下技巧将您的收藏集转移到字典中： vba：从数组中获取唯一值

这将删除重复项。