如何在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. 然後點擊確定，所需數量的名字已一次性隨機生成，如下截圖所示：