如何在Excel中製作幸運抽獎名稱？
有時，在日常工作中，您需要從長列表中隨機選擇一些員工作為幸運的名字。 在Excel中，您如何隨機選擇一些名稱進行抽獎？ 本文，我將討論一些有用的方法來處理Excel中的這項工作。
選擇隨機名稱以使用Kutools for Excel進行幸運抽獎
提取隨機名稱以使用公式進行幸運抽獎
例如，我想從名稱列表中提取任意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 隨機獲取另一組新名稱的關鍵。
提取隨機名稱以使用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腳本運行時 在選項 可用參考 列錶框，請參見屏幕截圖：
4。 然後點擊 OK 按鈕退出對話框，然後按 F5 鍵以運行此代碼，並彈出一個提示框，提醒您選擇要從中提取名稱的數據列表，請參見屏幕截圖：
5。 點擊 OK 按鈕，並彈出另一個提示框，請選擇要放入結果的單元格，請參見屏幕截圖：
6。 然後點擊 OK，並且一次隨機創建了所需數量的名稱，請參見屏幕截圖：
選擇隨機名稱以使用Kutools for Excel進行幸運抽獎
可能以上兩種方法對我們大多數人來說都是困難的，在這裡，如果您有 Excel的Kutools，其 隨機排序範圍 功能，您可以快速隨機選擇名稱。
| Excel的Kutools : 帶有300多個便捷的Excel加載項，可以在30天內免費試用. |
安裝後 Excel的Kutools，請這樣做：
1. 選擇要隨機選擇的名稱列表。 然後點擊 庫工具 > 範圍 > 隨機排序/選擇範圍，請參見屏幕截圖：
2。 在 隨機排序/選擇範圍 對話框中的 選擇 標籤，將您要選擇名稱的數字輸入到 選擇的單元數 文本框，然後選擇 選擇隨機單元格 ，在 選擇類型 部分，請參見屏幕截圖：
3。 然後點擊 Ok 按鈕，並且根據需要選擇了您的特定名稱名稱，請參見屏幕截圖：
最佳辦公生產力工具
| 🤖 | Kutools 人工智慧助手：基於以下內容徹底改變數據分析： 智慧執行 | 生成代碼 | 建立自訂公式 | 分析數據並產生圖表 | 呼叫 Kutools 函數... |
| 熱門特色: 尋找、突出顯示或識別重複項 | 刪除空白行 | 合併列或儲存格而不遺失數據 | 沒有公式的回合 ... | |
| 超級查詢: 多條件VLookup | 多值VLookup | 跨多個工作表的 VLookup | 模糊查詢 .... | |
| 高級下拉列表: 快速建立下拉列表 | 依賴下拉列表 | 多選下拉列表 .... | |
| 欄目經理: 新增特定數量的列 | 移動列 | 切換隱藏列的可見性狀態 | 比較範圍和列 ... | |
| 特色功能: 網格焦點 | 設計圖 | 大方程式酒吧 | 工作簿和工作表管理器 | 資源庫 （自動文字） | 日期選擇器 | 合併工作表 | 加密/解密單元格 | 按清單發送電子郵件 | 超級濾鏡 | 特殊過濾器 （過濾粗體/斜體/刪除線...）... | |
| 前 15 個工具集: 12 文本 工具 (添加文本, 刪除字符，...） | 50+ 圖表 類型 (甘特圖，...） | 40+ 實用 公式 (根據生日計算年齡，...） | 19 插入 工具 (插入二維碼, 從路徑插入圖片，...） | 12 轉化 工具 (數字到單詞, 貨幣兌換，...） | 7 合併與拆分 工具 (高級合併行, 分裂細胞，...） | ... 和更多 |
使用 Kutools for Excel 增強您的 Excel 技能，體驗前所未有的效率。 Kutools for Excel 提供了 300 多種進階功能來提高生產力並節省時間。 點擊此處獲取您最需要的功能...
Office選項卡為Office帶來了選項卡式界面，使您的工作更加輕鬆
- 在Word，Excel，PowerPoint中啟用選項卡式編輯和閱讀，發布者，Access，Visio和Project。
- 在同一窗口的新選項卡中而不是在新窗口中打開並創建多個文檔。
- 將您的工作效率提高 50%，每天為您減少數百次鼠標點擊！
