vba получить список без дубликатов от listobject

Question

Существует ли команда vba для непосредственного получения списка без дубликатов из заголовка автофильтр объекта списка.

Мой ввод этот список , и я ищу способ получить этот список без дубликатов из моего объекта ListObject в vba

Заранее спасибо.

Answer 1

Вы можете использовать эту вспомогательную функцию :

Function GetUniqueValues(rng As Range) As Variant
    Dim cell As Range

    With CreateObject("Scripting.Dictionary")
        For Each cell In rng
            .Item(cell.Value) = 1
        Next
        GetUniqueValues = .keys
    End With
End Function

вызывается вашим "основным" модулем следующим образом:

Option Explicit

Sub main()
    Dim uniqueValues As Variant

    uniqueValues = GetUniqueValues(ActiveSheet.ListObjects(1).ListColumns(1).DataBodyRange)

    '... rest of your code
End Sub

просто измените ActiveSheet, ListObjects(1) и ListColumns(1) ссылки в соответствии с вашими потребностями