使用数组值对列应用自动filter

我正在检索特定列的所有值并将所有值存储在数组中，以便我可以使用这些值应用自动筛选器。

rowcount=objExcel.Activeworkbook.Sheets(1).UsedRange.Rows.count Dim a() Redim Preserve a(rowcount) 'msgbox rowcount 'Storing all column values in an array' for i=2 to rowcount a(i-2) = objSrcWorksheet.Cells(i,7).Value Next 'Checking values of array' for i=2 to rowcount msgbox a(i-2) 'Applying Autofilter' With objSrcWorksheet .Range("G1").AutoFilter 2,"=a(i-2)" 'Problem is here' '.Range("G1").AutoFilter 2,"=2" 'While hardcoded values are working' End With Next 

Answer 1

VBScript不parsingstring内的variables。 当你把a(i-2)放在双引号中时，它将变成一个string"a(i-2)"而不是数组a的字段i-2的值。

将.AutoFilter 2, "=a(i-2)"更改为.AutoFilter 2, "=" & a(i-2) ，问题就会消失。