Автофильтр в Excel

[Maks the best]

Такой вопрос
Нет варианта из списка автофильтра все значения которые там вытянуть ?

[Gloom]

Я юзаю AdvancedFilter:

Код: Выделить всё

Function GetUniqueValues(sourceRange As Range) As Variant
    Dim w As Worksheet
    Dim r As Range
   
    With Application
        .ScreenUpdating = False
        .DisplayAlerts = False
    End With
    Set w = Worksheets.Add
    Set r = w.Range("A1")
    sourceRange.AdvancedFilter Action:=xlFilterCopy, CopyToRange:=r, Unique:=True
    r.CurrentRegion.Sort r, xlAscending
    GetUniqueValues = Application.Transpose(r.CurrentRegion.Value)
    w.Delete
    With Application
        .ScreenUpdating = True
        .DisplayAlerts = True
    End With
End Function

[Maks the best]

спасибо !!!

слушай, а куда эту функцию засунуть чтоб употребить в работу, скажем мне надо эти значения в столбец D забить ...

[Gloom]

спасибо !!!

слушай, а куда эту функцию засунуть чтоб употребить в работу, скажем мне надо эти значения в столбец D забить ...

Тут и функция не нужна:

Код: Выделить всё

Columns(1).AdvancedFilter Action:=xlFilterCopy, CopyToRange:=Columns(4), Unique:=True

[Maks the best]

Спасибо тебе огромное