如何使用此VBA代码自动过滤第2列中的数字？

Question

我的问题是，当我应用代码时，它将隐藏所有值。 它可以与其他任何列中的文本配合使用。

Private Sub TextBox2_Change()
    TextBox2.Value = Trim(TextBox2.Value)
    Sheet1.Range("A2:F" & Rows.Count).AutoFilter field:=2, Criteria1:="*" & TextBox2.Value & "*"
End Sub

感谢您的帮助。

Answer 1

您的条件正在传递带有通配符的字符串，但是数字列上的过滤器不支持通配符。为了执行您想做的事情，您将需要在= TEXT（B2，“＃”）的行上填充一个公式的列，以将数字转换为字符串，然后对该字符串进行过滤列。