Как я могу получить уникальный набор значений?

Question

Учитывая какой-то набор значений (массив или коллекция какого-то рода), как я могу сгенерировать набор различных значений?

Answer 1

Используйте Scripting.Dictionary (Инструменты ->Список использованной литературы ... ->Microsoft Scripting среды выполнения):

Function Unique(values As Variant) As Variant() 
    'Put all the values as keys into a dictionary 
    Dim dict As New Dictionary 
    Dim val As Variant 
    For Each val In values 
     dict(val) = 1 
    Next 
    Unique = dict.Keys 'This cannot be done with a Collection, which doesn't expose its keys 
End Function 

В VBScript, или VBA, если вы предпочитаете использовать позднее связывание (переменные без явные типы):

Function Unique(values) 
    Dim dict, val 
    Set dict = CreateObject("Scripting.Dictionary") 
    For Each val In values 
    ... 

Если работает VBA на Mac (который не имеет Microsoft Scripting Runtime), есть drop-in replacement for Dictionary.

Некоторые примеры:

• Extracting the collection of unique values from a filter in VBA
• Delete duplicate entries in a given row
• How to remove duplicate items in listbox
• How to get unique values from a list of values using VBscript?
• VBScript:Remove duplicates from an array
• Word occurrences in VBA
• Find all distinct values in user based selection - Excel VBA

---

Другой вариант (только VBA) является использование Collection. Это немного неудобно, потому что нет никакого способа установить существующий ключ без ошибки броска, и потому, что возвращаемый массив должен быть создан вручную:

Function Unique(values As Variant) As Variant() 
    Dim col As New Collection, val As Variant, i As Integer 
    For Each val In values 
     TryAdd col, val, val 
    Next 
    Dim ret() As Variant 
    Redim ret(col.Count - 1) 
    For i = 0 To col.Count-1 
     ret(i) = col(i+1) 
    Next 
    Unique = ret 
End Function 

Sub TryAdd(col As Collection, item As Variant, key As String) 
    On Error Resume Next 
    col.Add(item, key) 
End Sub