在Excel中一次应用多个自动筛选器

我写了一个简单的VBScript来根据input值过滤列值。 工作表中有多列,目前我只在一列上进行筛选。 但是我也必须在过滤标准中包含其他列。

假设,我必须在filter中包含第一列(Capitals)。 这个列的值是Y,X,Z 。 而除了Z ,我必须select所有的值。 因此,首先将在ProcessName上进行筛选,然后在Capitals列上进行筛选。之后,应该根据第三列进行筛选,其中值可以是New或Blanks。不确定如何在此处添加或调整。

我目前的代码:

 strPath="C:\Users\Desktop\Code.xlsx" Dim ProcessName ProcessName=Trim(InputBox("Process Name:")) Set objExcel= CreateObject("Excel.Application") objExcel.Visible= True objExcel.Workbooks.Open(strPath) With objExcel.Activeworkbook.Sheets("All") .Range("A1").AutoFilter 19,"="&ProcessName .Range("A1").AutoFilter 1,"<>"&"z" .Range("A1").AutoFilter 7,"="&"New" or "="&"(Blanks)" <-- throwing error End With 

请build议。