清空筛选内容还显示筛选状态

呆呆小掌柜

Private Sub TextBox1_Change()
Range("a1:j" & [a65536].End(3).Row).AutoFilter Field:=2, Criteria1:="=*" & TextBox1 & "*"
End Sub



显示筛选*字   那位帮忙修改下