如何在Excel制作幸運抽獎名稱?

      網友投稿 397 2025-03-31

      如何在Excel中制作幸運抽獎名稱?

      有時,在日常工作中,您需要從長列表中隨機選擇一些員工作為幸運的名字。 在Excel中,您如何隨機選擇一些名稱進行抽獎? 本文,我將討論一些有用的方法來處理Excel中的這項工作。

      提取隨機名稱以使用公式進行幸運抽獎

      提取隨機名稱以使用VBA代碼進行幸運抽獎

      選擇隨機名稱進行抽獎 Kutools for Excel

      提取隨機名稱以使用公式進行幸運抽獎

      例如,我想從名稱列表中提取任意3個名稱,下面的長公式可以為您提供幫助,請按以下步驟操作:

      在要放入結果的空白單元格中輸入以下公式: =IF(ROWS(C:C2)>B,"",INDEX(A:A,AGGREGATE(15,6,((ROW(A:A)-ROW(A)+1)/ISNA(MATCH(A:A,C:C1,0))),RANDBETWEEN(1,ROWS(A:A)-COUNTA(C:C1)+1)))) ,然后根據需要將填充手柄向下拖動到單元格,請參見屏幕截圖:

      筆記:

      1.在上式中: A2:A16 是您要從中隨機提取的名稱列表, B2 是您要提取姓名的必需數字, C2 是要在其中輸入公式的單元格,并且 C1 是公式單元格上方的單元格。

      2.您可以按 F9 隨機獲取另一組新名稱的關鍵。

      提取隨機名稱以使用VBA代碼進行幸運抽獎

      在這里,VBA代碼也可以幫助您完成此任務,請按以下步驟操作:

      1。 按住 Alt + F11鍵 鍵打開 Microsoft Visual Basic應用程序 窗口。

      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
      Copy

      備注:在上面的代碼中, B2 是包含要提取的名稱數量的單元格。

      3。 插入代碼后,然后單擊 工具 > 參考資料 在打開 Microsoft Visual Basic應用程序 窗口,然后在彈出 參考– VBAProject 對話框,檢查 Microsoft腳本運行時 在選項 可用參考 列表框,請參見屏幕截圖:

      4。 然后點擊 OK 按鈕退出對話框,然后按 F5 鍵以運行此代碼,并彈出一個提示框,提醒您選擇要從中提取名稱的數據列表,請參見屏幕截圖:

      5。 點擊 OK 按鈕,并彈出另一個提示框,請選擇要放入結果的單元格,請參見屏幕截圖:

      6。 然后點擊 OK,并且一次隨機創建了所需數量的名稱,請參見屏幕截圖:

      選擇隨機名稱進行抽獎 Kutools for Excel

      可能以上兩種方法對我們大多數人來說都是困難的,在這里,如果您有 Kutools for Excel,其 隨機排序范圍 功能,您可以快速隨機選擇名稱。

      Kutools for Excel : 帶有300多個便捷的Excel加載項,可以在30天內免費試用. 
      前往下載30天免費試用購買貝寶/ MyCommerce

      安裝后 Kutools for Excel,請這樣做:

      1. 選擇要隨機選擇的名稱列表。 然后點擊 Kutools > Range > 隨機排序/選擇范圍,請參見屏幕截圖:

      2。 在 隨機排序/選擇范圍 對話框中的 選擇 標簽,將您要選擇名稱的數字輸入到 選擇的單元數 文本框,然后選擇 選擇隨機單元格 ,在 選擇類型 部分,請參見屏幕截圖:

      3。 然后點擊 Ok 按鈕,并且根據需要選擇了您的特定名稱名稱,請參見屏幕截圖:

      點擊下載 Kutools for Excel 現在免費試用!

      最佳辦公生產力工具

      將小時轉化為分鐘 Kutools for Excel!

      準備好增強您的 Excel 任務了嗎? 利用的力量 Kutools for Excel - 您終極的節省時間的工具。 簡化復雜的任務并像專業人士一樣瀏覽數據。 以閃電般的速度體驗 Excel!

      為什么需要 Kutools for Excel

      ???  超過 300 項強大功能: Kutools 包含 300 多項高級功能,可簡化您在 1500 多種場景中的工作。

      ??  卓越的數據處理能力:合并單元格、刪除重復項并執行高級數據轉換 - 所有這些都不費吹灰之力!

      如何在Excel中制作幸運抽獎名稱?

      ??  高效的批量操作:當你可以聰明地工作時,為什么還要付出額外的努力呢? 輕松批量導入、導出、組合和調整數據。

      ??  可定制的圖表和報告:訪問各種附加圖表并生成富有洞察力的報告。

      ???  強大的導航窗格:通過強大的列管理器、工作表管理器和自定義收藏夾獲得優勢。

      ??  七種類型的下拉列表:通過各種功能和類型的下拉列表使數據輸入變得輕而易舉。

      ??  用戶友好:對于初學者來說輕而易舉,對于專家來說是一個強大的工具。

      立即下載,與 Excel 一起穿越時空!

      閱讀更多 免費下載... 采購... 
      Office Tab 為 Office 帶來選項卡式界面,讓您的工作更輕松
      Word,Excel,PowerPoint中啟用選項卡式編輯和閱讀,發布者,Access,Visio和Project。 在同一窗口的新選項卡中而不是在新窗口中打開并創建多個文檔。 每天將您的工作效率提高50%,并減少數百次鼠標單擊!
      閱讀更多 免費下載... 采購... 

      版權聲明:本文內容由網絡用戶投稿,版權歸原作者所有,本站不擁有其著作權,亦不承擔相應法律責任。如果您發現本站中有涉嫌抄襲或描述失實的內容,請聯系我們jiasou666@gmail.com 處理,核實后本網站將在24小時內刪除侵權內容。

      版權聲明:本文內容由網絡用戶投稿,版權歸原作者所有,本站不擁有其著作權,亦不承擔相應法律責任。如果您發現本站中有涉嫌抄襲或描述失實的內容,請聯系我們jiasou666@gmail.com 處理,核實后本網站將在24小時內刪除侵權內容。

      上一篇:自動化生產管理平臺登錄(自動化服務平臺)
      下一篇:甘特圖協作
      相關文章
      666精品国产精品亚洲 | 亚洲av永久中文无码精品综合| 亚洲综合另类小说色区| 亚洲狠狠婷婷综合久久蜜芽| 亚洲一卡一卡二新区无人区 | 亚洲人成无码网站久久99热国产| 色偷偷噜噜噜亚洲男人| 亚洲成a人片在线观看天堂无码| 亚洲综合精品伊人久久| 亚洲日韩精品国产一区二区三区| 精品国产日韩久久亚洲| 在线精品亚洲一区二区| 亚洲中文字幕无码中文| 亚洲成av人片在线天堂无| 亚洲成a人片在线不卡一二三区| 日韩亚洲不卡在线视频中文字幕在线观看| 亚洲国产成人久久三区| 亚洲a级片在线观看| 最新国产精品亚洲| 亚洲成AV人影片在线观看| 亚洲AV成人精品日韩一区18p| 亚洲AⅤ无码一区二区三区在线 | 亚洲日本中文字幕区| 中文字幕亚洲精品资源网| 久久久久亚洲精品日久生情 | 亚洲精品成人网久久久久久| 久久久久亚洲av毛片大| 亚洲精品无码鲁网中文电影| 亚洲AV无码码潮喷在线观看| 久久久久亚洲AV成人片| 亚洲依依成人精品| 亚洲日本VA午夜在线电影| 国产精品久久久久久亚洲影视| 亚洲av片一区二区三区| 亚洲综合色自拍一区| 亚洲一区二区三区夜色| 亚洲一卡二卡三卡四卡无卡麻豆| 亚洲综合精品伊人久久| 亚洲不卡无码av中文字幕| 亚洲精品无码久久千人斩| 亚洲视频免费在线播放|