本人从事生产管理20年，遇到过各类数据分析的需求。虽然EXCEL标准功能提供了大量的标准函数、图表功能

问题： 啤酒 2元钱1瓶 4个瓶盖换1瓶 2个空瓶换1瓶 问 10元钱可以喝几瓶？ Function pjp(je) As Long Dim 能购买瓶 As

昨晚帮网友做了一个小工具，用到了字典功能。这字典功能应用范围很广，有志于学习vba的小伙伴，建议把这个字典用好。现将该工具及代码在这里说明一下。 功能需求1：参考 http://tieba.baidu.com/p/4802545449 功能需求2：参考 http://tieba.baidu.com/p/4802692213 简单地说就是将一列数字（1位）从上往下找到5个不重复的数字，然后记录下来，而且找到的5位数字也不能重复。第二个功能是将这5位数字按单个数字再拆开列出。 原始数据及结果的图示：

本人的经验是从自定义函数开始学习VBA是一个比较好的方法。需求是最大的学习动力，而且做出来马上能

亲爱的各位吧友：欢迎来到excel_vba