给某厂做的这个抽奖神器，99%的人都还不知道。

给客户做的一个小工具，拿来给大家抽奖了！

揭晓获奖者👇

活动链接：Excel透视表，全解，不容错过！

授人以鱼不如授人以渔，这是Excel广场一直以来坚守的传统美德~

接下来分享这个抽奖器的制作方法，能连续抽取多名不重复人员，还能一键清除，非常简单实用，走起！

1、插入代码

点击开发工具，插入模块，把以下代码复制到代码区。

代码一共分三部分，分别是开始、停止、清除。

Dim flagSub 开始()c = RndDim rng As RangeSet dic = CreateObject("scripting.dictionary")n = 0For i = 2 To 26If Application.WorksheetFunction.CountIf(Range("d4:h12"), _Worksheets("Excel广场留言名单").Cells(i, 1)) = 0 Thenn = n + 1dic(n) = Worksheets("Excel广场留言名单").Cells(i, 1)End IfNextflag = TrueDoDoEventsIf flag ThenCells(4, 2) = dic(Int(Rnd * dic.Count + 1))End IfLoop While flagEnd SubSub 停止()flag = FalseFor i = 4 To 12For j = 4 To 8If Cells(i, j) = "" ThenCells(i, j) = Cells(4, 2): GoTo 100End IfNextNext100:End SubSub 清除()For i = 2 To 100c = RndNextRange("d4:h12").ClearContentsEnd Sub

代码粘贴完成后，点击保存，否，选择保存为.xlsm格式的宏文件。

2、制作抽奖界面

根据代码要求，B4单元格显示抽奖过程中的滚动名单，D4:H12存放中奖名单。制作一个如下界面的模板。

3、制作抽奖按钮

点击开发工具里的插入→表单控件→按钮，选择指定宏，命名按钮名称。

依次把开始、停止、清除的按钮都加上，最终如下👇

然后选中三个按钮，统一按钮大小→水平居中→纵向分布。

4、新建人员名单

从A2单元格开始往下排，模板最多为25个名额，可自定义修改。

5、开始抽奖

最后再适当的美化一下，就可以抽奖啦

以上，抽奖器get，每个活动的抽奖小环节，都可以使用哦！