vba:从数组中获取唯一值 [英] vba: get unique values from array
本文介绍了vba:从数组中获取唯一值的处理方法,对大家解决问题具有一定的参考价值,需要的朋友们下面随着小编来一起学习吧!
问题描述
vba 从一维数组中获取唯一值?仅仅摆脱重复怎么样?
Is there any built-in functionality in vba to get unique values from a one-dimensional array? What about just getting rid of duplicates?
如果没有,那么我如何从数组中获取唯一值?
If not, then how would I get the unique values from an array?
推荐答案
Thispost 包含 2 个示例.我喜欢第二个:
This post contains 2 examples. I like the 2nd one:
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
这篇关于vba:从数组中获取唯一值的文章就介绍到这了,希望我们推荐的答案对大家有所帮助,也希望大家多多支持IT屋!
查看全文