带选项 "begins with" 的过滤器编号

Question

当我在组合框的框 "search" 处过滤时，我们能否使用选项 "begins with" 过滤 excel 中的数字，例如：15*。没关系，但在我使用 "begins with" 的 Number Filters/Custom 过滤器中它不起作用。我尝试在代码的组合框中使用 "search" 的方式记录宏，但这是不可能的。

如何为此编写 VBA 代码。谢谢，这是录制的宏

ActiveSheet.Range("$A:$AF94").AutoFilter Field:=12, Criteria1:=Array( _  
    "1521", "1522", "1526", "1541", "1542", "1543", "1561"),Operator:=xlFilterValues

但我想过滤值 15*

Answer 1

是的，你是对的，这在 AutoFilter 中是不可能的。
如果您的数据是数字，这里有一个方法。

ActiveSheet.Range("$A:$AF94").AutoFilter Field:=12, Criteria1:=">=1500"

或者如果您特别想要其中带有 15 的那些。

ActiveSheet.Range("$A:$AF94").AutoFilter Field:=12, Criteria1:=">=1500" _
    Operator:=xlAnd, Criteria2:="<1600"

Edit1: 在评论中回答跟进

您可以使用数据选项卡[=41=下的文本到列将所有数据更改为文本 ].
步骤：

Select 包含数字格式数据的整个列。

然后单击 文本分栏。在第一个和第二个对话框中按下一步。

在第 3 个对话框中，select Text 而不是 General。

现在，您所有的数据都是文本形式。
然后，您可以使用以下代码过滤所有以 15.
开头的内容
ActiveSheet.Range("$A:$AF94").AutoFilter Field:=12, Criteria1:="15*"

带选项 "begins with" 的过滤器编号

Filter number with option "begins with"

vba

filter