Как отфильтровать уже отфильтрованные значения таблице Excel

@oleggy · Регистрация: 14.03.2013

Студворк — интернет-сервис помощи студентам

Привет.
С помошью команды:

Visual Basic
1
Workbooks("file.xls").Worksheets("Sheet1").UsedRange.AutoFilter Field:=1, Criteria1:=filter, Operator:=xlFilterValues

автоматически отфильтровал по первому полю таблицу с данными (UsedRange) по значению из массива filter.

А теперь как мне из этого отфильтрованного объема данных отфильтровать дополнительно но уже по другому полю (например №2)?

@oleggy · 26.04.2013, 20:31 **[ТС]**

Сообщение от oleggy

Может кто подскажет, почему так?

Первый раз я прменил автофильтр и отфильтровал колонку №1 по массиву filter_1, так:

.AutoFilter Field:=1, Criteria1:=filter_1, Operator:=xlFilterValues

Далее из полученного списка отфильтрованных значений из колонки №2, я сформировал новый массив фильтрации - filter_2, и применил фильтр повторно к колонке №2, командой:

.AutoFilter Field:=2, Criteria1:=filter_2, Operator:=xlFilterValues

На выходе получилось что автофильтр отфильтровал некорректно. Точнее, в колонке №2 по всем данным были сняты галочки. Вот, смотрите на рисунке.

А должно было что бы стояли галочки напротив данных которые были в массие filter_2.

Может я чего то непонял?

Разобрался, из-за чего повторная фильтрация не шла в уже отфильтрованном фильтре.
Оказывается для фильтрации критерии должны передаваться в автофильтр в виде строковых значений (а не цифровых) и причем в том же формате в котором они у нас хранились ячейках.
Т.е. при сохранении в массив критериев (для последующей передачи в автофильтр) они должны быть сохранены в таком виде:

Visual Basic
1
Format(cel.Value, cel.DisplayFormat.NumberFormat)

@oleggy · 29.04.2013, 08:22 **[ТС]**

Сообщение от Hugo121

Сообщение от oleggy

Спасибо, существует код котрый перебирает скрытые ячейки?

Visual Basic
1
2
3
4
Set r = .AutoFilter.Range.Сolumns(1).SpecialCells(xlCellTypeVisible)
for each сel in r
 ' работаю с cel
next

к сожалению свойства противоположного - xlCellTypeVisible, я не нашел..

Я помню делал так - сперва
set r=видимые
затем отображал всё, скрывал r - получаем видимыми ранее скрытые.

Такой способ подразумевает активные действия над ячейками (отображать и скрывать).
Мне же нужен способ который не будет изменять отображение ячеек.

Добавлено через 2 часа 23 минуты

Сообщение от Казанский

Отфильтрованные ячейки - это видимые ячейки. Диапазон, включая заголовок, можно получить так:

Visual Basic
1
set rng=Workbooks("file.xls").Worksheets("Sheet1").autofilter.range.columns(2).specialcells(xlcelltypevisible)

Или перебирать все ячейки из .columns(2) и проверять свойство .entirerow.hidden.

Казанский, что за свойство это и что оно дает?
В чем его отличие от Range.Hidden?

@Andrelol · 20.03.2017, 15:46

Други, всё прочитал, но туплю.
1.Есть таблица, автофильтром по первому столбцу отфильтровал данные, но никак не пойму как мне выбрать/использовать допустим 2-е отфильтрованное значение во втором столбце напрямую без массивов, переборов.
Это возможно или нужно обязательно заносить значения в массив или копировать список на другой лист, а там выбирать нужное значение.
У меня поучилось только:

Visual Basic
1
2
AutoFilter.Range.Columns(2).Copy
Sheets(2).Paste ' А дальше обращаюсь к ячейкам, но это как то через одно место.

По простому присвоить значения в массив не получилось, ошибка 13"Type mismatch"

Visual Basic
1
arr = Sheets(1).AutoFilter.Range.Offset(1).Resize(Sheets(1).AutoFilter.Range.Rows.Count -1)Columns(2)

Новые блоги и статьи Все статьи Все блоги /
Nekobox - outbounds[0].transport: unknown transport type: raw damix 01.10.2026 Фикс ошибки Правым кликом по серверу -> отладочная информация -> edit Заменить "net": "raw", на "net": "tcp", Нажать кнопку reload.	Программный домашний кинотеатр russiannick 27.09.2026 Сподобился на программный домашний кинотеатр. В качестве ЯВУ по традиции выбрал js. В помощники взял Яндекс-Алису. Было создано три зала на разные интересы. исторические и ретро сериал Хичкок. . .	Беседа с ИИ о программистах, недопускающих к созданию и правке кода генеративные ИИ и причины этого zorxor 21.09.2026 Раньше я радовался или получал некоторые эмоции, пусть небольшие, но всё же, от самого процесса написания кода, рекомпиляции и запуска, видя постепенное развитие программы и прочее. А теперь лень. . .	Мобильное приложение ColorStep pavlinmavlin 17.09.2026 Реализовал приложение Красный, Зеленый, Синий в Unity3d + c#. Название изменил на ColorStep. Приложение прошло модерацию и теперь доступно для скачивания. Делал его сам, шаг за шагом — и вот,. . .
Запрет дублирования строк в табличной части Maks 13.09.2026 Реализация из решения ниже выполнена на нетиповом справочнике "Нормы ТО" с табличной часть "Виды ТО", разработанного в КА2, со следующими реквизитами: - ВидТО (СправочникСсылка. ВидыТО); - ВидГСМ. . .	Скрипты Tampermonkey для CyberForum, ChatGPT, Claude и пр. Jin X 06.09.2026 Скрипты Tampermonkey для CyberForum, ChatGPT, Claude и пр. Работая с форумом и нейросетями в браузере часто хочется что-то подкорректировать или добавить какого-то функционала. Ниже прикреплён. . .	Программа опроса у.з. расходомера SLS-720F Argus19 02.09.2026 Программа опроса у. з. расходомера SLS-720F Программа опрашивает один раз в минуту три ультразвуковых расходомера SLS-720F через интерфейс RS-485 по протоколу Modbus RTU. Опрашиваются регистры. . .	Hyper-V: Компьютер должен поддерживать доверенный платформенный модуль 2.0. Maks 31.08.2026 При установке Windows 11 на виртуальную машину Hyper-V 2-го поколения вылезла такая ошибка: Решение: в параметрах виртуальной машины, в разделе "Безопасность" (Security) активировать флаг. . .