vba：从数组中获取唯一的值

问题描述

vba中是否有内置的功能来从一维数组中获取唯一的值？那么如何摆脱重复？

如果没有，那么我将如何从数组中获得唯一的值？

解决方案

包含2个例子。我喜欢第二个：

  Sub unique（）
 Dim arr As New Collection，a 
 Dim aFirstArray（）As Variant 
 Dim i As Long 
 
 aFirstArray（）= Array（Banana，Apple，Orange，Tomato，Apple，_ 
柠檬，柠檬，柠檬，苹果）
 
关于错误简历Next 
对于每个a在aFirstArray 
 arr.Add a，a 
下一个
 
对于i = 1到arr.Count 
单元格（i，1）= arr（i）
下一个
 
 End Sub 
  

is there 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?

解决方案

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

  For i = 1 To arr.Count
     Cells(i, 1) = arr(i)
  Next

End Sub

这篇关于vba：从数组中获取唯一的值的文章就介绍到这了，希望我们推荐的答案对大家有所帮助，也希望大家多多支持！