根據單元格值過濾條件

Question

我想根據單元格值過濾范圍：

有用：

ThisWorkbook.Worksheets("Cost Table").Range("$A$38:$O$68").AutoFilter Field:=2, Criteria1:=Array("LATAM", "NOAM"), Operator:=xlFilterValues

不起作用：

ThisWorkbook.Worksheets("Cost Table").Range("$A$38:$O$68").AutoFilter Field:=2, Criteria1:=ThisWorkbook.Worksheets("Cost Table").Range("Q100").Value, Operator:=xlFilterValues

Q100 = "LATAM", "NOAM"

標准所需的輸入是什么？

Answer 1

您可以將LATAM放在Q100中， NOAM Q101中的NOAM放在Q101中（均不帶引號），並使用Criteria1:=ThisWorkbook.Worksheets("Cost Table").Range("Q100:Q101").Value作為條件。

Answer 2

如果要應用一個以上的值，則必須創建一個數組。

dim crit() as string
crit = split(ThisWorkbook.Worksheets("Cost Table").Range("Q100").Value, ",")
ThisWorkbook.Worksheets("Cost Table").Range("$A$38:$O$68").AutoFilter Field:=2 Criteria1:=crit, Operator:=xlFilterValues

注意：如果您的單元格Q100包含引號，則必須刪除它：

 crit = split(replace(ThisWorkbook.Worksheets("Cost Table").Range("Q100").Value, """",""), ",")