vba随机抽取人名不重复_excel启用宏，通过vba实现从数字数组里随机获取N个不重复的数字...

我们以WPS打开excel为例：

1，要先给WPS安装VBA插件，在百度里搜索“VBA7.0.1590_For WPS(中文).exe”，然后下载安装

2，打开excel文档，在顶部菜单“开发工具”里点击“VB编辑器”

3，在打开的Microsoft Visual Basic编辑器里，在左侧菜单“Project(工作簿1)”上点击右键，选择插入“模块”

4，在默认打开的模块1里，输入代码：Function getRandNum(data As String, num As Integer)

'Application.Volatile '标记易失函数

Dim d As Object

Set d = CreateObject("Scripting.Dictionary") '定义字典

dataArr = Split(data, ",") '拆分

ReDim result(1 To num)

Do Until (n >= num)

randNum = VBA.Int(VBA.Rnd() * (UBound(dataArr) - 0 + 1)) '范围

keystr = dataArr(randNum)

If Not d.exists(keystr) Then

n = n + 1 '累计

d(keystr) = ""

result(n) = keystr '写入

End If

Loop

getRandNum = Join(result, ",") '组合

Set d = Nothing

End Function

5，点击保存，会让你重新保存文档为.xlsm格式

6，关闭Microsoft Visual Basic编辑器，然后都可以在表格里使用=getrandNum(data,num)公式了

7，上面公式中data，num2个参数可以直接写死，也可以从其他单元格单元格中动态读取，注意num的数字不能大于data数组中的个数，如下图所示：