公司在年会或者实施激烈方案的时候，会采取不定期的抽奖的活动。
这期我们就用Excel来做一个抽奖小程序。
利用rand()函数或者 randbetween()函数可以做到随机取数，但是无法保证非重复取数。
为了保证抽奖的公平性，我们采用的抽奖往往是不重复抽奖，也就是说，已经中奖的人不可以二次中奖。
这里我们用VBA字典技术来实现。
建立抽奖名单
在开始之前，我们需要将所有的员工名单收集到“人员名单列表”插页，千万别有遗漏，不然中奖概率为0（这里想提高某人的中奖概率，只需要把他的名字多复制几次放进去就可以了）
先来看第一款，单次抽一个人，每次只抽一个人。
单次抽奖
点击【开始】之后，单元格开始动态滚动人员姓名，直到点击【停止】按钮，姓名固定，同时将姓名写到右侧的单元格内：
接着再次点击【开始】按钮，抽选下一个人
…….
依次类推。
这里只留存了45个单元格，也就是只能抽45个人，如果人满了，需要点击第三个按钮【清除】。
第二款，每次抽10个人。