在Excel中一次应用多个自动过滤器

时间:2015-12-15 14:57:15

标签: excel vbscript

我编写了一个简单的VBScript来根据输入值过滤列值。工作表中有多列,目前我只在一列上过滤。但我必须在过滤条件中包含其他列。

假设我必须在过滤器中包含第一列(Capitals)。此列的值为Y,X,Z。除了Z,我必须选择所有值。因此,首先它将在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

请建议。

0 个答案:

没有答案