使用數組在列上應用自動篩選器值

Question

我正在檢索特定列的所有值並將所有值存儲在數組中，以便我可以使用這些值應用自動篩選器。

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不解析字符串內的變量。當您將a(i-2)放在雙引號中時，它將成爲字符串"a(i-2)"而不是數組a的字段i-2的值。

將.AutoFilter 2, "=a(i-2)"更改爲.AutoFilter 2, "=" & a(i-2)問題就會消失。