【烟花原创】VBA零基础之第144篇字典（二十一）

12．数组中存储字典（一）

这道题是VBA实战营的练习题，当时学艺未精，勉强混进了实战营，当时也没做出。某日在以前的字典班的课件里找到这题，这里借liuguansky的代码，我只写点注释。

数据源文件：http://www.excelpx.com/thread-322252-1-1.html

数据截图：

实际数据一共有7000多行。

要求：

公司搭配舞伴，男女骰子点数和为7的互为舞伴。将每组舞伴写在E:F列，要求按舞伴里最早出现的人来排序。

思路：

由于员工的骰子点数只会在1到6点之前，所以定义了一个大数组Arr(1 to 6)来存储对应点数的数据。员工性别有男女之分，所以Arr中每一个元素中均存储了一个小数组arrt(1 to 2)。

接着，同一性别的不同员工点数会有相同的情况，所以在这个arrt小数组中分别存储了一个字典。字典的Key是员工的姓名，对应的Item是该员工在数据中的行号（题目要求按舞伴最早出现的人来排序）。

数组示意图：

代码：