пользовательский фильтр

[dzaymko]

как сделать пользовательский фильтр - "показать строки которые не содержат (перечислены список слов) " на дно слово можно а на список ????

пример:

список:
4F FILTERS
4max
4SEASONS
A.B.S.
A.L. FILTER
A.P.
AB COMPONENTS
Abakus
ABAL
ABB
ABEX
ABG
AC
ACDelco
ACERBI
ACI - AVESA
ACKERMANN
ACL
ACROLCAR
ACTM
ACURA

надо сделать сортировку
по списку:
4max
A.B.S.
ABAL
ABB
ABEX
ABG
AC
ACDelco
ACERBI

а все остальное чтобы выводило снизу !

[shanemac51]

пример ---пример---пример
---------------------------------

зачем нам угадывать ваши нюансы

10 строк
из которых надо выбросить 5 слов

[Казанский]

Расширенный фильтр, условие задается формулой.
Присоединяюсь к shanemac51 - нужен пример.

[Hugo121]

Что-то вроде этого?

Sub tt()
    Set Rng = Sheets(1).Range("$A$1:$A$10")

    Sheets(1).AutoFilterMode = 0
    Rng.AutoFilter Field:=1, Criteria1:="*" & "h" & "*"
    Set Rng = Rng.SpecialCells(xlCellTypeVisible)
    Sheets(1).AutoFilterMode = 0

    Rng.EntireRow.Hidden = True
    Rng.EntireRow.Hidden = False

End Sub

Гонять пошагово

Хотя приспособить для списка слов не получается...

[dzaymko]

пример:

список:
4F FILTERS
4max
4SEASONS
A.B.S.
A.L. FILTER
A.P.
AB COMPONENTS
Abakus
ABAL
ABB
ABEX
ABG
AC
ACDelco
ACERBI
ACI - AVESA
ACKERMANN
ACL
ACROLCAR
ACTM
ACURA

надо сделать сортировку
по списку:
4max
A.B.S.
ABAL
ABB
ABEX
ABG
AC
ACDelco
ACERBI

а все остальное чтобы выводило снизу !

[Казанский]

Не понял насчет сортировки, а вот как реализуется исходная задача
"показать строки которые не содержат (перечислены список слов) "
См. Данные - Фильтр - Расширенный фильтр в 2000 или Данные - Фильтр - Дополнительно в 2007.
Список исключаемых слов можно расположить и на этом же листе.

[IgorGO]

Казанский,
не смог добавить репутации... хотя за такие ответы - надо бы!