Excel利用VBA生成一列不重复的随机整数
发布时间:2023-02-25 10:10:19
标签:Excel,利用,VBA,生成,一列,不,重复,的,随机,整数
如果我们要用VBA生成一列不重复的随机整数,可以用下面的VBA代码。本例可以在A1:A100中产生1-100的不重复随机整数。
Sub RndNumberNoRepeat()
Dim TempArr1(99) As Integer, TempArr2(0 To 99, 1 To 1) As Integer
Dim RndNumber As Integer, i As Integer
Randomize (Timer) '初始化随机数生成器
For i = 0 To 99 '产生包含1-100的不重复的随机数列
TempArr1(i) = i
Next i
For i = 99 To 0 Step -1
RndNumber = Int(i * Rnd)
TempArr2(99 - i, 1) = TempArr1(RndNumber) + 1
TempArr1(RndNumber) = TempArr1(i)
Next i
'在A1:A100中输入这些数字
Range("a1:a100").Value = TempArr2
End Sub
0
投稿
猜你喜欢
- Word2007有很多需要我们学习的功能,比如接受或拒绝更改并删除批注,但是要怎么实现呢?我们一起来看看吧。我们在使用Word2007时,当
- 在办公中总是有无数个Excel表格要做,不仅要有序排列,还有很多需要注意的事项,那我们该怎样快速有效的去完成对数据的统计了?接下来看看小编整
- excel里面形形色色的功能可以帮助用户进行编辑处理数据,可能有些初学者并不太会使用比较常用的数字格式功能,如果不懂的朋友不妨一起学习探讨一
- Excel2007基础教程:数据输入技巧通过使用一些有用的小技巧,可以简化将信息输入Excel 工作表的过程,同时还可以更快地完成所需工作。
- 具体操作如下: 如果真要设置得和上图一模一样,需要研究上图的线条分布。 我们能看出红框内的线条算一组。一共涉及到三个单元格。所以打
- 在我们编辑重要文件的时候,我们会担心万一编辑错误会导致重要文件的损坏。为了防止重要文件的损坏,我们最好以副本方式编辑word,怎么做呢?那么
- Excel中经常需要使用到隐藏表格内容的技巧,表格内容具体该如何进行隐藏呢?下面是由小编分享的excel表格内容隐藏的教程,以供大家阅读和学
- Excel是一款很强大的软件,尤其是报表的统计,方便明了,现在介绍一下excel中很重要的一个功能,那么在EXCEL报表中怎么用柱形图表现数
- 在制作一些报表和公司的表格时,我们常常需要给Excel表格加密或者设置成只读属性来加以防护这些重要表格。给表格加密可以预防他人无法打开表格,
- word里经常用到一种范文模板.小学老板可以下载来参考一下.年底好用啊  
- Excel表格怎么快速圈出高于80分的成绩?excel表格中的数据想要圈出高于80分的成绩,该怎么快速圈出符合条件的数据呢?下面我们就来看看
- 首先需要知道是否有软件使用了kms:在文件夹中找到OSPP.VBS文件。注意,这个文件通常是在C盘下Program Files/Micros
- 我们在使用Word文档编辑一段文字时,为了排版好看或者其他的一些特殊需要,常常需要将Word文档的文字进行编辑,包括行间距、段落间距,字符间
- 在对微软操作系统Win 7、Win 8、Win 10三种操作系统进行了更新之后,您不妨谈谈这三种操作系统之间的差异。按照小编的看法,Win
- 在EXCEL中我最常用的是自动求和功能,可是领导就是喜欢看WORD中的表格,我崩溃,这是逼着我在WORD中添加
- 有win10专业版用户说自己快速访问默认显示的是快速访问界面,而不是我的电脑界面,使用起来很不方便,想问问小编有没有什么解决方法。那针对这个
- 表格如何行列互换?制作表格的时候需要行列互换,不用重新制作表格,有了转置功能,超便捷,一个简单的操作即可完成。1、复制单元格后,右键选择性粘
- 从截图大概可以判断出,这些数据应该是系统导出到Excel导致的。所以具体应该是看Excel的编辑栏。如下图箭头处。 说明单元格内的数字其实是
- 很多尝鲜 iOS 14 的用户,在升级完成后会遇到 App 请求一个名叫「Local Network(本地网络)」的权限。、相信大家对这个权
- pdf页面缩略图不见了该怎么找回?pdf文件一般都会有缩略图,可以根据缩略图快速的查找文件,该怎么设置显示缩略图呢?下面我们就来看看详细的教