Range.AutoFilter только с использованием последних критериев? VBA

Question

У меня есть таблица, которую я хочу переместить в другое место, и я хочу удалить значительную часть данных (есть довольно много пробелов или 0, на которые я действительно не забочусь). Вот что у меня есть для кода до сих пор:

Dim srcRange As Range 
Dim copysheet As Worksheet 

Set copysheet = ActiveSheet 

Set srcRange = copysheet.range("B1:D1598") 
srcRange.AutoFilter Field:=3, Criteria1:=Array("#VALUE!", "Count", 0, Empty) 
srcRange.Delete 

С помощью этой установки она только удаляет пробелы, поэтому я проверил это несколько раз со следующими изменениями:

'this code will return only the 0's 
Dim srcRange As Range 
Dim copysheet As Worksheet 

Set copysheet = ActiveSheet 

Set srcRange = copysheet.range("B1:D1598") 
srcRange.AutoFilter Field:=3, Criteria1:=Array("#VALUE!", "Count", 0) 

'this code will return only the "count"'s 
Dim srcRange As Range 
Dim copysheet As Worksheet 

Set copysheet = ActiveSheet 

Set srcRange = copysheet.range("B1:D1598") 
srcRange.AutoFilter Field:=3, Criteria1:=Array("#VALUE!", "Count") 

Так что вывод I пришли к тому, что по какой-то причине инструмент AutoFilter фильтруется только по последним критериям, которые я ввел в критерии1. Кто-нибудь может дать мне некоторое представление о том, почему?

FYI- моя временная работа заключается в том, чтобы запускать 4 команды фильтрации/удаления вместо одного, и он работает нормально - я просто хотел бы немного узнать о причинах этого.

Спасибо!

Answer 1

Вам нужно нужно добавить Operator:=xlFilterValues к вашему Автофильтр вызова:

srcRange.AutoFilter Field:=3, Criteria1:=Array("#VALUE!", "Count"), Operator:=xlFilterValues 

Это фильтр для всех элементов, представленных в факторам1