✨ Отбор уникальных значений из списка
Нетрадиционный способ отбора уникальных значений из списка в VBA Excel. Используем объект Dictionary.

📌 Примеры

1️⃣ Отбор уникальных значений из столбца A и выгрузка их на рабочий лист в столбец B:

Sub Primer1()
Dim myDictionary As Object, myCell As Range, myElement As Variant
    Set myDictionary = CreateObject("Scripting.Dictionary")
        'Отбор уникальных значений из списка в столбце A
        For Each myCell In Range("A1:A20")
          myElement = myDictionary.Item(CStr(myCell))
        Next
    'Выгрузка уникальных значений на рабочий лист в столбец B
    Range("B1").Resize(myDictionary.Count) = Application.Transpose(myDictionary.Keys)
End Sub

Как работает этот код?
🔹 При присвоении переменной myElement значения myDictionary.Item(CStr(myCell)) с несуществующем ключом, значение myCell записывается как ключ, а как значение записывается Empty, которое и присваивается переменной myElement.
🔹 Если значение myCell повторяется, оно игнорируется, так как все ключи в myDictionary должны быть уникальными.
🔹 Списком уникальных значений является полученный список ключей словаря (myDictionary.Keys), которые мы выгружаем на рабочий лист в колонку B.
🔹 Транспонирование (Application.Transpose) необходимо для того, чтобы горизонтальный список ключей словаря вставить в вертикальный список в столбце B.

2️⃣ Отбор уникальных значений из столбца A и выгрузка их в поле со списком (ComboBox):

Sub Primer2()
Dim myDictionary As Object, myCell As Range, myElement As Variant
    Set myDictionary = CreateObject("Scripting.Dictionary")
        'Отбор уникальных значений из списка в столбце A
        For Each myCell In Range("A1:A20")
          myElement = myDictionary.Item(CStr(myCell))
        Next
    'Выгрузка уникальных значений в поле со списком
    With UserForm1
        .ComboBox1.List = myDictionary.Keys
        .Show
    End With
End Sub

#VBA #ExcelVBA #Dictionary #ОтборУникальных #УникальныеЗначения #ComboBox