有没有内置的功能vba /questions/tagged/vba从一维数组中获取唯一值？只删除重复项怎么样？
如果没有，那么我如何从数组中获取唯一值？
这个帖子 http://www.vbaexpress.com/forum/showthread.php?t=24917包含 2 个示例。我喜欢第二个：
Sub unique()
Dim arr As New Collection, a
Dim aFirstArray() As Variant
Dim i As Long
aFirstArray() = Array("Banana", "Apple", "Orange", "Tomato", "Apple", _
"Lemon", "Lime", "Lime", "Apple")
On Error Resume Next
For Each a In aFirstArray
arr.Add a, a
Next
On Error Goto 0 ' added to original example by PEH
For i = 1 To arr.Count
Cells(i, 1) = arr(i)
Next
End Sub
本文内容由网友自发贡献，版权归原作者所有，本站不承担相应法律责任。如您发现有涉嫌抄袭侵权的内容，请联系:hwhale#tublm.com(使用前将#替换为@)
