我们以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数组中的个数,如下图所示:

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

  1. vba随机抽取人名不重复_excel筛选重复姓名 求出Excel中不重复的人的姓名的VBA代码...

    excel筛选重复姓名 求出Excel中不重复的人的姓名的VBA代码,看到标题你是不是很兴奋,这不就是你想学习的知识吗?当你掌握excel筛选重复姓名这个知识的时候你一定很兴奋,一定不会后悔看了exc ...

  2. python随机抽取人名_python的random

    python的random函数 更多的random用法可参阅: random --- 生成伪随机数 - Python 3.7.4 文档​docs.python.org 以下使用了: 洗牌:random ...

  3. python随机抽取人名_python实现艾宾浩斯背单词功能,实现自动提取单词、邮件发送,再也不用担心背单词啦...

    已经完成了利用python爬虫实现定时QQ邮箱推送英文文章,辅助学习英语的项目,索性就一口气利用python多做一些自动化辅助英语学习的项目,对自己的编程能力和英文水评也有一定的帮助,于是在两天的努 ...

  4. excel2010 中 启用宏,VBA使用 说明

    1,打开excel2010 2,在工具栏空白处,右击:自定义功能区---选择添加  开发工具 选项 -- 确定 3,点开 开发工具 菜单项,点击 宏安全 4,选中 ActiveX 设置, 选中右边的  ...

  5. vba随机抽取人名不重复_VBA编程实现不重复随机数输出

    作者:iamlasong VBA编程实现不重复随机数输出.VBA里的随机函数是RND,在工作表中随机函数是RAND,一字之差,可要记好了.RND取值范围是[0,1),意思是0和1之间的一个随机数,包含 ...

  6. vba随机抽取人名不重复_用vb编写了这个随机抽取人名的抽奖系统,但会出现重复,怎么样做到不重复并添加一个记录显示已抽到的人名...

    满意答案 vbuju 2013.09.10 采纳率:54%    等级:12 已帮助:5912人 我给你个简单的例子.你看下 Option Explicit Dim jm(35) As String ...

  7. python随机抽取人名_用Python打造一个CRM系统(五)

    在上一篇上实现了线索功能模块,在实际使用中除了线索数据除了输入的结构化数据,也有可能是来自非结构化数据,如名片.PDF文档.语音视频等.为方便线索录入,本篇中将以名片为例,实现利用OCR等技术将名片信 ...

  8. 从列表、字符串、元组或集合中随机抽取指定个元素 Python中random模块的sample()函数

    选择题 以下python代码的输出结果不可能为? from random import sample s = ['a','b','c','d'] result = sample(s,3) print( ...

  9. 用python写个随机抽取姓名的程序

    需要准备一个姓名列表.例如: names = ['Alice', 'Bob', 'Charlie', 'David', 'Eve'] 使用 random.choice() 函数从列表中随机抽取一个姓名 ...

  10. 快速地随机抽取一定比例的BAM文件

    当我们在分析多少X的数据量可以满足我们需求的时候,此时就需要从一个BAM文件当中,快速随机抽取一定比例的BAM文件了.命令非常简单,下面是随机抽取10%比例的BAM文件: java -Xmx16g - ...

最新文章

  1. IEEE“撑不住”了?声明解除对华为评审限制
  2. Leetcode 350 两个数的交集2
  3. 足不出户完成交付独家交付秘籍(第二回)
  4. hdu 6127---Hard challenge(思维)
  5. 图像增强_Keras 常用的图像增强方式
  6. 【Java】探究Java实现多接口时同名方法冲突问题
  7. 容器映像_构建微小的容器映像
  8. Linux就该这么学 20181008(第十三章BIND)
  9. Golang包管理工具之govendor的使用
  10. bootstrap菜单html,Bootstrap实现下拉菜单效果
  11. ednote服务器运行失败,Endnote安装出现错误的解决办法
  12. 蝴蝶网络 Butterfly network
  13. RegAsm安装卸载办法
  14. 初识流媒体与流媒体技术
  15. 保持好距离才会保持好爱情!情侣间最好的距离!很值得一看!
  16. js中如何将object转化为json数据,json数据转js对象
  17. cakephp笔记——find()函数
  18. 礼品定制APP开发的功能
  19. Opencv每日函数 图像分割模块 watershed分水岭算法
  20. 计算机辅助设计与制造的应用,计算机辅助设计与制造(UG)

热门文章

  1. 红帽linux中文语言包,英文 RedHat AS5 中文语言包安装
  2. 如何双击连上校园网NCUWLAN?---bat+Python3给出了可行性答案
  3. 计算机博弈大赛源代码,2020计算机博弈大赛幻影围棋分组第一天 信息交互模块...
  4. 地缘剧本杀 (十一):疗伤(原创小说连载,内含语音)
  5. [2020-11-30 ]国产化操作系统调研
  6. 英语单词常见后缀词性
  7. 人员基础信息一体化采集系统平台
  8. Ipad2.4 9.3.5 降级8.4.1方法
  9. JS实现实时显示时间
  10. 蓝鸽无盘服务器,蓝鸽英语学习平台为什么点击游客就能进去?