AutoFilter Criteria中数字通配符的Excel VBA语法？

例：

ActiveSheet.UsedRange.AutoFilter Field:=1, Criteria1:=12345678 ActiveSheet.UsedRange.AutoFilter Field:=1, Criteria1:=1234 & "*" ActiveSheet.UsedRange.AutoFilter Field:=1, Criteria1:=Array(12345678, 12345679, 12345670, ...) 

我的示例条件是以1234开始的八位数值。第一行工作，但第二行和第三行返回一个空白工作表。 我已经尝试了后两行的无数变化，没有一个能够实现。 谢谢！

Answer 1

你可以尝试下面的解决方法，只要你有一个一致的8位结构，你可以检查它是否在12340000和12349999的值范围内，如下面的行：

 ActiveSheet.UsedRange.AutoFilter Field:=1, Criteria1:=">=12340000", Operator:=xlAnd, Criteria2:="<=12349999"