VBA代码实例之“动态筛选”的魅力（一）代码简短！

直接上效果图：

activeX插件的魅力

代码如下：（很简短，一定很惊讶吧！）

Private Sub TextBox1_Change()

Range("a1").AutoFilter 2, "*" & TextBox1.Text & "*"

End Sub

代码说明：

具体操作向下看：

代码复制步骤

文末想说：

-未来还没到来，一切都还来得及！

-关注+私信我，回复006