vba:从数组中获取唯一值

本文介绍了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