работа с AutoFilter

[Calvin]

Привет, уважаемые. Помогите разобраться по некот. вопросам, связанными с автофильтром. Я хочу узнать сколько критериев в каждом из полей фильтров (даже если ни один из критериев не выбран).
Пробовал что-то типа

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

Crc = Worksheets("Sheet1").AutoFilter.Filters.Item(1).Item.Count
или
c2 = Worksheets("Sheet1").AutoFilter.Filters(1).Item.Count
(без разницы)


мало того, что это не получается, так в дальнейшем хотелось бы считать значение каждого критерия каждого поля и занести их допустим в ListBox........

[Calvin]

Мда, что-то до сих пор я не смог разобраться с этим.....хэлпы перерыл - и все без толку........ Люди, может АПИхи есть какие-нибудь?
ЗЫ в противном случае прийдется другими способами определять уникальные значения, но это уже перебором.........

[Vitaly1]

мало того, что это не получается, так в дальнейшем хотелось бы считать значение каждого критерия каждого поля и занести их допустим в ListBox........

Вообщето, если нет пустых строк, то все значения в текущем столбце, и еще "Все"