进入职场，每个人，或多或少会有些工作的压力，这些压力有的是外部，如公司要求你必须完成的工作，有的是来自内部，如自己要求自己水平要不断提高，不能久居人下，要提高自己的能力，有一个好的职位。无论是哪种压力，最迫切的是要自己提高自己的能力和水平，只有自己的能力和水平提高了，前者才不挨骂，后者才能一步步的进取，世界上没有不劳而获的事情，我们的目的很唯一，就是提高自己的能力和水平。

但是，工作，毕竟只是生活的一部分，最怕的是把工作的压力带给自己周围的人，在努力的同时，要转变一下自己的思路，要想办法自己去除这种压力，就是我的文章题目所提出的，要在学习有用的知识的同时，享受知识带给我们的乐趣，从而，愉快的完成自己的工作，一方面可以让工作顺利完成，一方面不会把工作压力无谓的扩散。

怎么做到呢？如果你经常的和数据打交道，恭喜你：VBA可以帮助你。事实胜于雄辩，我今日就从现实的工作中找一个利用VBA工具的小例子和大家分享，同时也是一个VBA实用工具的积累。

我在文章中经常提到FIND方法，甚至提出这是LOOKUP函数的终结者。我们在工作中经常会遇到各种各样的查找，如唯一查找，非唯一查找，模糊唯一查找，模糊非唯一查找，两列查找等等，这些查找在我们的工作中会占用很多的时间，如：领导经常会在快下班的时候给你一大堆的数据，要求你在下班前把这些数据的资料给统计出来，交给他。这是非常头疼的事情，查找虽然简单，但数据量大，但最怕的是出错，时间紧，任务重，头皮都会发麻。

那么我们能不能做一个VBA的工具，把所有的查找集成一下，用来实现我们的各种目的呢？

答案是完全可以的，而且是必须的。

大家看下面的截图，这是我在工作中自己编的一个小工具,就是实现的这个功能：

我在「MY」工作表的第一行加入了很多按钮，这些按钮可以实现不同的目的：有唯一查询，有非唯一查询，有模糊查询，两列的查询等等，只要在「MY」的工作表A列中输入想要查询的数据，就会在「FIND」页的工作表中找到相应的记录，并把这些记录的相关信息记录在」MY」工作表的B2、 C2、 D2 等单元格内。从而实现了查找的自动化。例如上面的截图中，我在A列录入了几组数据A1 A2 A3 A4 A5 A6 A7A8这些数据，在「FIND」工作表中是什么样子呢？我们看看「FIND」页工作表的截图：

我的目的是A1的相关信息，也就是说「FIND」页中的第二行的有关A1的信息B1、 C1、 D1传递到 「MY」页，放在相应的单元格中，如何实现呢？只需轻轻的点击一下按钮「A唯一查询」即可：

看下面的查找后的截图：

如上截图，非常轻松的实现了我们的要求，有了这个工具，假如领导要求你在下班前在上万条的记录中查出几百条记录，是不是几秒钟就可完成呢？

当然，上面的例子是记录唯一的情况，那么记录不唯一呢？正如我给出的资料中有几个A1的信息，这时怎么办呢？你只需要轻点按钮「非唯一查询」按钮就可以实现了：看下面的截图：

这样就把所有的A1信息都给列出来了。当然，在实际的应用中要事先判断一下记录是否是唯一的，这也是不难做到的。

那么如果要查找到所有包含所给信息的记录呢？也不难啊，你可以点击一下「模糊非唯一查询」的按钮就可以实现啦，我们看看点击后的结果：

所有的信息记录都出来了.非常的方便、快捷。

这个工具中还有很多的按钮就不一一的说明了，那么我是如何实现的呢？看我的代码：

代码就不一一列出了，其实，在《VBA代码解决方案》中有很多的实例，这套书就是我20多年经验的积累，读者可以参考其中的内容，把和自己工作有关的程序做成自己的小工具，当你应用这些自己的做的工具，顺利的完成了工作，即准确，又高效，何尝不是一件乐事呢？跟紧我，好好学习VBA吧。今天的工具资料将开放代码。

推荐阅读：