上一次我们介绍了纯公式的动态筛选下拉菜单的方法，但是纯公式打造的方法在操作上不太方便，所以这一次我们用VBA制作一个动态筛选快速录入的方法。先看效果。

下图是我们的数据源。

我们经常需要在某个地方快速录入这些内容，因为数据很多，我们很难查找到。

这个方法如何呢？

这种方法不但可以随时查找数据，可以一个字一个字的输入，逐步缩小范围。找到了自己的数据，双击就可以了，是不是很溜。

下面是制作方法，因为这是VBA代码制作，如果会VBA朋友还可以根据自己的需求修改，如果不会VBA，找我要模板就可以了。

第一步。把代码复制进VBE编辑器，要在的那个工作表使用，就复制进那个工作表。

第二步。在你要使用的工作中新建一个文本框和一个列表框。

控件大小随便画，不用担心，后续VBA会自动调整。有一点要注意，你所建的控件的名称一定要与VBA代码中要控制的名称一样，文本框的名称为：TextBox1，列表框的名称为：ListBox1。

Ok，已经建好了，下来我们点击"开发工具"，把设计模板取消掉。就可以使用了。

我们对代码的运行做一个简单的解释。

1、我们是利用了窗体事件、和工作表事件来实现的功能，当我们点击工作表中的单元格时，文本框和列表框会调整大小和位置，以符合我们的要求，同时在列表框里面写入我们需要的数据。

2、当我们在文本框输入文字时，代码会在数据范围内搜索符合条件的内容，并再次写入列表框供我们选择。

3、当我们双击列表框时，代码会把我们选择的内容写入了激活单元格。

模板获取方法：

关注并私信我：动态筛选快速录入

我是：EXCEL共享局，关注我，提升工作效率，随时与你共享。