又到年末了，一般这个时候，每家公司都要开始准备年会了，其中最令人期待的肯定是每年必不可少的抽奖环节了！

比如特等奖：iPhone 11 Pro Max

一等奖：iPad Pro

。。。

幸运奖：50元现金

相信上面这些奖品，大家都想得到。公司抽奖有多种多样，比如每人一个标签纸，统一放到纸箱上抽奖。今天给大家分享个简单的抽奖小工具，使用Excel VBA来实现。

首先，创建一个Excel宏文件，我们将人员名单全部填入Sheet2，再设置一下抽奖界面，如图

然后，按Alt+F11调出VBA代码界面，插入一个模块，新建一个过程Sub

定义一个数组，存放名单

arrName = Sheets("名单").[A1].CurrentRegion

在数组下标间产生随机数

Randomize'初始化随机数发生器
rdIndex = Int(Rnd * UBound(arrName) + 1)

将随机取到的人员姓名填入抽奖界面

Range("A1").Value = arrName(rdIndex, 1)

如果需要增加滚动效果，我们可以循环执行以上步骤，使用Do...Loop语句就可以了

为了可以跳出循环，我们可以定义一个Flag，通过【停止】按钮来实现对Flag的修改

全部代码如图：

最后我们看一下效果：

点击下面链接可以查看我的其他文章哦!

喜欢的朋友记得点赞关注，网友们如果在Excel中遇到问题都可以找我交流，也可以提出一些Excel中的需求，我会用VBA实现并在下期分享给大家，以后不定期更新Excel VBA技巧！