提示:其它语言是由 Google 机器翻译的。 你可以访问 English 版本。
登录
x
or
x
x
马上登记
x

or

如何在Excel中制作抽奖名字?

在日常工作中,有时您需要从长名单中随机选择一些员工作为幸运姓名。 在Excel中,你如何随机选择一些名字进行抽奖? 本文将讨论一些有用的方法来处理Excel中的这项工作。

用公式抽取随机名称进行抽奖

用VBA代码抽取随机名称进行抽奖

使用Kutools for Excel进行抽奖时,选择随机名称


选择随机名称以在Excel中创建幸运名称

要从长名单中随机选择一些员工作为幸运名称,您可以申请 Kutools for Excel,其 随机排序范围 功能,您可以根据需要随机快速选择特定数量的名称。

doc幸运名字9

Kutools for Excel:比200方便的Excel加载项,可以在60天免费试用。 下载并免费试用现在!


用公式抽取随机名称进行抽奖

例如,我想从名称列表中提取任何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)))) ,然后根据需要将填充手柄向下拖动到单元格中,请参阅截图:

doc幸运名字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脚本运行时 在选项 可用的参考 列表框,看截图:

doc幸运名字2

4。 然后点击 OK 按钮退出对话框,然后按 F5 键运行此代码,并弹出提示框提醒您选择要从中提取名称的数据列表,请参阅屏幕截图:

doc幸运名字3

5。 点击 OK 按钮,并弹出另一个提示框,请选择要放置结果的单元格,请参阅屏幕截图:

doc幸运名字4

6。 然后点击 OK,并且一次随机创建了所需数量的名称,请参见截图:

doc幸运名字5


使用Kutools for Excel进行抽奖时,选择随机名称

可能超过两种方法对我们大多数人来说都很困难,如果有的话 Kutools for Excel,其 随机排序范围 功能,您可以随机快速选择名称。

Kutools for Excel : 与超过300方便的Excel加载项,在60天免费试用没有限制.

安装后 Kutools for Excel,请这样做:

1. 选择您想要随机选择的名称列表。 然后点击 Kutools > Range > 随机排序范围,看截图:

doc幸运名字6

2。 在 随机排序范围 对话框下 选择 选项卡中,输入您想要选择名称的号码 要选择的单元格数量 文本框,然后选择 选择随机单元格选择类型 部分,看截图:

doc幸运名字7

3。 然后点击 Ok 按钮,并根据需要选择具体的名称数量,请参阅截图:

doc幸运名字8

点击下载Kutools for Excel和免费试用版吧!


Kutools for Excel - 最佳办公生产力工具提高80%的生产力

  • 重用: 快速插入 复杂的公式,图表 以及你以前用过的任何东西; 加密单元格 密码; 创建邮件列表 并发送电子邮件...
  • 超级方程式酒吧 (轻松编辑多行文字和公式); 阅读布局 (轻松读取和编辑大量单元格); 粘贴到过滤范围...
  • 合并单元格/行/列 不丢失数据; 分裂细胞含量; 组合重复的行/列...防止重复的细胞; 比较范围...
  • 选择复制或唯一 行; 选择空行 (所有细胞都是空的); 超级查找和模糊查找 在许多工作簿中; 随机选择......
  • 精确复制 多个单元格而不更改公式参考; 自动创建参考 多张表; 插入项目符号,复选框等等......
  • 提取文本,添加文本,按位置删除, 删除空间; 创建和打印分页小计; 在单元格内容和注释之间转换...
  • 超级过滤器 (将过滤方案保存并应用到其他工作表); 高级排序 按月/周/日,频率等; 特殊过滤器 用粗体,斜体......
  • 结合工作簿和工作表; 根据键列合并表; 将数据拆分为多个表格; 批量转换xls,xlsx和PDF...
  • 超过300强大的功能。 支持Office / Excel 2007-2019和365。 支持所有语言。 在您的企业或组织中轻松部署。 全功能60天免费试用。
kte tab 201905

Office选项卡为Office提供选项卡式界面,使您的工作更轻松

  • 在Word,Excel,PowerPoint中启用选项卡式编辑和阅读,Publisher,Access,Visio和Project。
  • 在同一窗口的新选项卡中打开并创建多个文档,而不是在新窗口中。
  • 通过50%提高您的工作效率,每天为您减少数百次鼠标点击!
官方底部
Say something here...
symbols left.
You are guest ( Sign Up? )
or post as a guest, but your post won't be published automatically.
Loading comment... The comment will be refreshed after 00:00.
  • To post as a guest, your comment is unpublished.
    Ravikumar Mangipudi · 11 months ago
    Error:
    #NUM!



    Formula:
    =IF(ROWS(C$2:C2)>B$2,"",INDEX(A$2:A$1500,AGGREGATE(15,6,((ROW(A$2:A$1500)-ROW(A$2)+1)/ISNA(MATCH(A$2:A$1500,C$1:C1,0))),RANDBETWEEN(1,ROWS(A$2:A$1500)-COUNTA(C$1:C1)+1))))
    • To post as a guest, your comment is unpublished.
      skyyang · 11 months ago
      Hello, Mangipudi,
      This formula works well in my Excel workbook, which Excel version do you use?
      You can also give your problem as a screenshot here.