Excel VBA如何删除数组中重复的值？

使用集合Collection的key唯一性除去重复的值
Sub A()
Dim A(1 To 100)
Dim b As New Collection
Dim i As Integer

A(1) = 1
A(2) = 3
A(3) = 5
A(4) = 7
A(5) = 3
A(6) = 5
A(7) = 2
On Error Resume Next
For i = 1 To 100
b.Add A(i), Str(A(i))
Next i
For i = 1 To b.Count
A(i) = b(i)
Next i
End Sub

温馨提示：答案为网友推荐，仅供参考

当前网址：https://verywind.cn/ee/v3rfrf22rj2e23r37xx.html