过滤数字字段

我有以下代码：

ActiveSheet.Range("$A$1:$P$201").AutoFilter Field:=5, Criteria1:="=10"* 

当我点击filter并在search栏中input10*我得到所有以10开头的结果。 当使用macros，这是行不通的。 目标是让macros使用我提供的前两个数字进行过滤。

你能帮忙吗？

Answer 1

问题的核心似乎一直在试图将文本filter应用于数字字段。 代替：

 ActiveSheet.Range("$A$1:$P$201").AutoFilter Field:=5 ActiveSheet.Range("$A$1:$P$201").AutoFilter Field:=5, Criteria1:="=10"* 

只是：

 ActiveSheet.Range("$A$1:$P$201").AutoFilter Field:=5, _ Criteria1:=">=10000", Operator:=xlAnd, Criteria2:="<=10999" 

似乎工作。

Answer 2

以下内容仅适用于文本值 ：

 Sub Macro2() ActiveSheet.Range("$A$1:$P$201").AutoFilter Field:=5, Criteria1:="=10*", _ Operator:=xlAnd End Sub 

如果这些值不是文本，则使用“助手”列。

编辑＃1 ：

对于列E中的邮政编码，这将过滤（隐藏）不包含“10 *”代码的行：

 Sub GoingPostal() Dim r As Range For Each r In Range("E2:E201") st = Left(r.Text, 2) If st <> "10" Then r.EntireRow.Hidden = True End If Next r End Sub