如何在Excel中制作抽奖名单？

在日常工作中，有时你需要从一个很长的名单中随机选出一些员工作为幸运儿。在Excel中，如何随机选择一些名字来制作抽奖名单呢？本文将介绍一些在Excel中处理此任务的有效方法。

使用公式提取用于抽奖的随机名字

使用Kutools for Excel选择用于抽奖的随机名字

使用VBA代码提取用于抽奖的随机名字

使用公式提取用于抽奖的随机名字

例如，我想从名单中提取任意3个名字，以下长公式可以帮助你，请按如下操作：

在你想放置结果的空白单元格中输入这个公式： =IF(ROWS(C$2:C2)>B$2,"",INDEX(A$2:A$16,AGGREGATE(15,6,((ROW(A$2:A$16)-ROW(A$2)+1)/ISNA(MATCH(A$2:A$16,C$1:C1,0))),RANDBETWEEN(1,ROWS(A$2:A$16)-COUNTA(C$1:C1)+1)))) ，然后向下拖动填充柄到需要的单元格，见截图：

注意事项：

1. 在上述公式中：A2:A16是你要从中随机提取的名字列表，B2是你想要提取的名字数量，C2是输入公式的单元格，而C1是公式单元格上方的单元格。

2. 你可以按F9键以获取另一组新的随机名字。

使用Kutools for Excel选择用于抽奖的随机名字

也许以上两种方法对我们大多数人来说都比较困难，这里，如果你有Kutools for Excel，通过其随机排序区域功能，你可以快速随机选择名字。

安装Kutools for Excel后，请按以下步骤操作：

1. 选择你想要随机选择的名字列表。然后点击 Kutools > 区域 > 随机排序或选择，见截图：

2. 在随机排序或选择对话框中，在选择选项卡下，输入你想要选择名字的数量到要选中的个数文本框中，然后在选中类型部分选择随机选择单元格，见截图：

3. 然后点击确定按钮，你指定数量的名字就会被选中，见截图：

立即点击下载Kutools for Excel并免费试用！

使用VBA代码提取用于抽奖的随机名字

这里，一段VBA代码也可以帮助你完成此任务，请按以下步骤操作：

1. 按住Alt + F11键打开Microsoft Visual Basic for Applications窗口。

2. 点击 插入 > 模块，并在 模块窗口中粘贴以下代码。

VBA代码：从列表中提取随机名字：

Public Sub LuckyDraw()
    Dim I, J, xRnd As Long
    Dim xSRg, xDRg As Range
    Dim xDic As New Dictionary
    Dim xnum, xLastRow As Long
    On Error Resume Next
    Set xSRg = Application.InputBox("Please select the data list:", "KuTools for Excel", Selection.Address, , , , , 8)
    If xSRg Is Nothing Then Exit Sub
    Set xDRg = Application.InputBox("Please selecta cell to put the result:", "KuTools for Excel", , , , , , 8)
    If xDRg Is Nothing Then Exit Sub
    xLastRow = xSRg.Rows.Count
    Set xSRg = xSRg(1)
    Set xDRg = xDRg(1)
    xnum = Range("B2")
    If xnum < 1 Then Exit Sub
    J = 0
    For I = 1 To xnum
LabExit:
        xRnd = Int(Rnd() * xLastRow)
        If xDic.Exists(xRnd) Then GoTo LabExit
        xDic.Add xRnd, ""
        xDRg.Offset(J, 0).Value = xSRg.Offset(xRnd, 0).Value
        J = J + 1
    Next
End Sub

注意：在上述代码中，B2是包含你想要提取名字数量的单元格。

3. 插入代码后，然后点击工具 > 引用在打开的Microsoft Visual Basic for Applications窗口中，然后在弹出的引用 - VBAProject对话框中，勾选可用引用列表框中的Microsoft Scripting Runtime选项，见截图：

4. 然后点击确定按钮退出对话框，然后按F5键运行此代码，会弹出一个提示框提醒你选择要提取名字的数据列表，见截图：

5. 点击确定按钮，会弹出另一个提示框，请选择一个你想要放置结果的单元格，见截图：

6. 然后点击确定，所需的随机名字数量会立即生成，见截图：