方法/步骤
首先我们打开Excel软件，为了方便演示，我们需要输入部分内容，首先输入抽奖人员名单，我们将抽奖人员名单填好即可如下图所示。
请点击输入图片描述
填好抽奖名单之后，我们选择一个单元格输入抽奖区域，然后将其填充为红色即伏扮可。
请点击输入图片描述
接着我们在抽奖区的下一个单元格，按下缺告灶等于号，然后选择函数index，如下图友稿所示。
请点击输入图片描述
接着我们设置抽奖区域的数字，选择为a列，如下图所示。
请点击输入图片描述
再接着我们设置第2个参数，插入randbetween函数，我们设置函数的首尾分别为4和11，我们可以看到a4是抽奖人员的第1位，a11是抽奖人员的最后一位。如下图所示。
请点击输入图片描述
请点击输入图片描述
最后我们连续加入两个括号，那么这个函数就完成了。
请点击输入图片描述
完成函数之后我们按下enter键，按下enter键之后，我们就可以看到已经随机出现了一个人的名字。如果我们想进行抽奖的话，双击上面的抽奖区，然后按下enter键，就可以随机进行抽奖了。如下图所示。
请点击输入图片描述
请点击输入图片描述
当然我们也可以在后面的单元格加入备注，设置一等奖为50元，二等奖为40，三等奖为30元即可，如下图所示。
请点击输入图片描述
好了，今天的如何用Excel制作抽奖活动教程就为大家介绍到这里，希望对大家有所帮助。
1.准备好已经做好的奖券或门票图案，“抽奖号”后面保留空白就好。
2.在新建的Word文档里添加图片，也就是已经提前制作好的奖券（门票），自己进行简单排版，暂时保存，如下。
3.新建一个Excel文档，如果你Word文档每页排4张，就选择ABCD四行进行编号；如果Word文档每页排8张，你就选8列。切记第一行A1为0，B1为0，C1为0，D1为0。要从第二行开始输入，这里以4列为例，在A2输入1，B1输入2，C1输入3，D1输入4.
4.在A3里用函数”=SUM（A2+4）“，因为这里实例每行4个，同列下一行比上一行大4，其它情况自行推算。
5.单击A3，下拉A3右下角下箭头，下拉至450行，第一列数据制作完成。
6.重复第四薯厅部在另外三列上（禅郑每一列要修改函数，B列里变成B2+4，其它列类推），完成后如图，1~1800的编号输入完成。，保存。
7.再打开之前排版用的Word文档，在每个抽奖号后面做一个文本框（在插入菜单里），如图，注意大小和位置，还有试着随便输入一下，调整输入的字体大小，调试完成后保持文本框空白。准备工作完成。
8.现在开始邮件合并。在Word邮件菜单里有”开始邮件合并“，选择”普通Word文档“，然后点击”选择收件人“里的”使用现有列表“，选择排过编号的Excel文档，出现如图的选框，点击确认。之后邮件栏里又有几项贺手颂可以使用了。
9.单击第一个抽奖号后面的文本框，单击”插入合并域“，选择M1，之后几个文本框依次选M2，M3，M4。单击预览结果，可见你所做的，编号随页数改变是变的。单击”完成并合并“，选择第一项生成新文档，里面有制作好的1800张奖券，排版依照你第一页所做的；第二项直接打印。生成的文档如图。
1、用随机函磨姿数rand分配给每个人一个抽签号，A1单元格里输入公式：
=int(rand()*1000)
然后下拉填充。
2、然后选中A列，设置条件格式，用公式将前三码指名（或自定）设置为红色，公式为：
=rank(a1,a:a)4
(4意思是取前3名,如果要取前5名就改为6，以此类推)
3、迟游配每次可按F9键刷新一下结果
01打开excel，并点击excel的最左上角的图标，找到“Excel 选项”。

02
找到“常用”点击，然后在右侧找到“在功能区显示‘开发工具’选项卡”复选框打钩，按确定。

03
点击开发工具，调出开发控件

04
利用调出的开发控件，2个Label，2个TextBox，1个按钮。结合Excel知识，制作如下者弊改界面卜掘。



05
可以在视图中找到宏，也可以在开发工具中找到宏。然后打开宏编辑。

06
添加VBA代码：
Option Base 1
Dim t1 As Long '范围1
Dim t2 As Long '范围2
Dim czh As Integer '抽奖号码
Dim num As Integer
Sub auto_open()
Application.OnKey "{ENTER}", "cj"
Application.OnKey "~", "cj"
End Sub
Public Function tj(lb) As Integer
Dim k As Integer
k = 2
Do
Set myR = Sheets(lb).Cells(k, 1)
If Trim(myR.Value) = "" Then '出现空记录
Exit Do
End If
k = k + 1
Loop Until False
tj = k - 1
End Function
Public Function csf()
num = tj("temp")
With Worksheets("temp")
t1 = .Cells(num, 3).Value
t2 = .Cells(num, 4).Value
End With
Worksheets("抽奖程序").TextBox1.Text = t1
Worksheets("抽奖程序").TextBox2.Text = t2
End Function
Public Function cj()
num = tj("temp")
Call csf
Call cjsz
End Function
Public Function cjsz()
Dim r(10)
For i = 1 To 10
xh = False
Do
d = Int((t2 - t1 + 1) * Rnd + t1)
j = 0
Do
j = j + 1
If r(j) = d Then
xh = False
Exit Do
Else
xh = True
End If
Loop Until j = i
Loop Until xh = True
r(i) = d
Next i
Dim b(1 To 10)
For i = 1 To 10
b(i) = Application.WorksheetFunction.Small(r, i)
Worksheets("抽奖程序").Label1.Caption = ""
Next
For j = 1 To 10
For i = 1 To 2000
If i Mod 100 = 0 Then
DoEvents
End If
m = Int((t2 - t1 + 1) * Rnd + t1)
Worksheets("抽奖程序").Label2.Caption = Format(m, "00000")
Next i
d = b(j)
Worksheets("抽奖程序").Label2.Caption = Format(d, "00000")
Worksheets("抽奖程序").Label1.Caption = Worksheets("抽奖程序").Label1.Caption " "首判 Worksheets("抽奖程序").Label2.Caption
Next j
nn = tj("数据统计")
With Worksheets("数据统计")
.Cells(nn + 1, 1).Value = nn
.Cells(nn + 1, 2).Value = Date
.Cells(nn + 1, 3).Value = Worksheets("抽奖程序").Label1.Caption
End With
For i = 1 To 14
j = nn + 2 - i
If j 1 Then
With Worksheets("数据统计")
a = .Cells(nn + 2 - i, 2).Value
c = .Cells(nn + 2 - i, 3).Value
End With
With Worksheets("抽奖程序")
.Cells(i + 1, 14).Value = a
.Cells(i + 1, 15).Value = c
End With
Else
Exit For
End If
Next i
End Function

07
点击按钮测试，得到随机中奖编号
LARGE函数，返回数据集中的第K个最大值。IF函数。MMULT函数，矩阵乘积函数。
ROW函数，返回指定单元格函数。INDIRECT函银稿数，对引用进行计算，显示其内容。
TRANSPOSE函数，转置公式 , 就是把 竖列 变成横行的函数。这个函数是为了方便看。
RANDBETWEEN函数，返回大于等于指定的最小值，小于等于指定最大值之间的一个随机整数的函数。
方法/步骤
1.抽奖就以大乐透的形式来讲，在1到37之间选7个数，这7个数就是获奖的数字。
2.这时候要用到的公式就是：
=LARGE(IF(MMULT((ROW(INDIRECT($C$37":"禅察$E$37))=TRANSPOSE($C$38:$C38))*1,($C$38:$C38)*0+1),,ROW(INDIRECT($C$37":"$E$37))),RANDBETWEEN(1,SUM($E$37-ROW()+39)))
这个公式很长，我们贺搏茄在下面的截图中看不全，但是你只要知道就好。这就是我们要的七个获奖数字。
3.如果想要一组别的获奖数字，就像大乐透的下一期，那可以把点鼠标左键，选中一个单元格，把鼠标移动到这个单元格的右下角当鼠标的指示变成一个加号的时候你可以向下拖动，这可以生成下一组了
4.这样就生成了，您的摇奖器就生成了。
剔除上期开奖号选号
如果是在一个晚会，药分别在晚会中间和晚会结束前，摇两次奖。但幸运观众不能重复获奖。这就要求剔除上期开奖号选号。
5.首先用刚才的办法生成一组获奖数字。还是那个公式，就是单元格变化了。
=LARGE(IF(MMULT((ROW(INDIRECT($C$37":"$E$37))=TRANSPOSE($F$38:$F38))*1,($F$38:$F38)*0+1),,ROW(INDIRECT($C$37":"$E$37))),RANDBETWEEN(1,SUM($E$37-ROW()+39)))
6.这时候要用的公式就是：
=LARGE(IF(MMULT((ROW(INDIRECT($C$37":"$E$37))=TRANSPOSE($F$38:$F45))*1,($F$38:$F45)*0+1),,ROW(INDIRECT($C$37":"$E$37))),RANDBETWEEN(1,SUM($E$37-ROW()+39)))
就是生成公式的变形。
本文转载自互联网，如有侵权，联系删除
