vba遍历数组_Excel VBA中如何对数组进行去重

在使用Excel VBA的过程中，经常需要使用数组(Array)将数据进行存放，但防止数据出现重复成文了一个问题。这是就可以用到对数组进行去重。

现在我们有一个数组分别是a 这个数组中有部分重复数值，我们希望保留不相同的部分

Dim a As Variant

Dim result As Variant

a = Array(1,2,3,4,5,6,7,1,2,9,21,7)

接下来，我们需要设置一个字典

Set Dic = createObject("Scripting.dictionary") '设置字典

接下来将数组的每一个值都作为字典的Key导入

For i = lbound(a) to Ubound(a)

temp = Dic(a(i))

Next

result = Dic.Keys

这个方法利用了字典的Keys不能重复的原理，自动将重复的结果去除。如果需要对多个数组进行处理，可以将每个需要遍历的数组的值放在单元格中，如A1:(1,2,3,4,5,6,7,1,2), A2：(6,9,7,3,185,13), A3:(1,8,7,8)，同时由于需要将多个值放入字典，因此需要确保每次都将值放在数组中一个未占用的位置上，因此这里引入amount对字典中的值进行计数，并放入未占用的位置。

整体代码如下

Dim a As Variant

Dim temp as Variant

Dim result As Variant

amount = 0

For k = 1 to 3

a = Range("A" & k).value

For i = lbound("a" & k) to Ubound("a" & k)

temp(amount) = Dic(a(i))

amount = amount + 1

Next

Next

result = Dic.Keys

Range("A:A").value = Application.WorksheetFunction.Transpose(temp) '最后将结果输出到指定区域

在输出结果的时候使用了Transpose函数，可以省去写循环将数组内的每一个值都导出的步骤。