Vba 过滤数值字段

我有以下代码：

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

当我点击过滤器并在搜索栏中键入

10*

时，我会得到所有以

10

开头的结果。使用宏时，这不起作用。宏的目标是使用我提供的前两个数字进行过滤

---

您能提供帮助吗？

仅当值为文本时，以下操作才有效：

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

如果值不是文本，则使用“帮助器”列

编辑#1：

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

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

Sub-GoingPostal（）
调光范围
对于范围内的每个r（“E2:E201”）
st=左（右文本，2）
如果st“10”那么
r、 EntireRow.Hidden=True
如果结束
下一个r
端接头

仅当值为文本时，以下操作才有效：

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

如果值不是文本，则使用“帮助器”列

编辑#1：

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

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

Sub-GoingPostal（）
调光范围
对于范围内的每个r（“E2:E201”）
st=左（右文本，2）
如果st“10”那么
r、 EntireRow.Hidden=True
如果结束
下一个r
端接头

问题的核心似乎是试图对数字字段应用文本过滤器。 而不是：

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”）。自动筛选字段：=5，\u
Criteria1:=“>=10000”，运算符：=xlAnd，Criteria2:=”问题的核心似乎是试图对数字字段应用文本过滤器。
而不是：

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”）。自动筛选字段：=5，\u
准则1:=“>=10000”，运算符：=xlAnd，准则2:=“Hi-pnuts:有时自动筛选会对数字/文本产生混淆…………您的建议很好。嗨，这些值是邮政编码格式。我认为这就是它不起作用的原因。您所说的“帮助者”列是什么意思？谢谢Hi-pnuts：有时自动筛选会对数字/文本产生混淆…………您的建议很好。您好，这些值是邮政编码格式的。我认为这就是它不起作用的原因。您所说的“帮助器”列是什么意思？谢谢我尝试了这个方法，但它没有执行以搜索“”开头的、，而是自动选择整个数字，例如我搜索了“10*”和脚本录制，重新编码：，，Criteria1:=“10439”；标准2:=“10943”等。“01*是一个打字错误，我正在另一台没有互联网连接的电脑上写代码。我使用了加里的学生写的下面的代码。问题是我的号码是邮政编码格式，而不是文本。德国邮政编码：，，10965“，，25541“，，10965”，，01127“等等。是的，这很有效，谢谢！我尝试了这个方法，但它没有执行以搜索“”开头的、，而是自动选择整个数字，例如我搜索了“10*”和脚本录制，重新编码：，，Criteria1:=“10439”；标准2:=“10943”等。“01*是一个打字错误，我正在另一台没有互联网连接的电脑上写代码。我使用了加里的学生写的下面的代码。问题是我的号码是邮政编码格式，而不是文本。德国邮政编码：，，10965“，，25541“，，10965“，，01127”等。是的，这是有效的，谢谢！