如何利用VBA生成一列不重复的随机整数
发布时间:2022-03-10 18:35:50
标签:整数,生成,重复,随机,Excel函数
如果我们要用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
投稿
猜你喜欢
- 视频的主要内容主要是对excel2013数据透视表的功能操作技巧的讲解。那么下面大家一起欣赏视频吧!视频可以全屏观看哦!点击视频右下角的进入
- Q:收到多个销售员发过来的客户跟进名单,由于要汇总,所以发现不同的销售员的名单有重复的客户姓名,现在需要把重复的删除。请帮我写一条函数公式,
- 如何给Word中的表格设置底纹?表格里有些内容需要特殊显示?我们如果表格里面的内容比较杂的话,就需要给同类型的内容进行归类,那么最好的办法就
- 一、一般的转换方法假如A列为英文日期格式,譬如是:A119-Jul-12A220-Jul-12A321-Jul-12A422-Jul-12那
- Word2016怎么联机插入需要图片?word中需要插入的图片本地没有,我们可以通过联机功能在网上搜索照片,并插入,该怎么操作呢?请看下文详
- 我们在使用Excel制作表格整理数据的时候,常常要用到它的函数功能来自动统计处理表格中的数据。下面让小编为你带来excel表格的函数。exc
- 这篇文章主要为大家介绍了Excel怎么设置纸张大小?这篇文章主要介绍了Excel设置纸张大小图文教程Excel中,用户根据实际需要设置工作表
- 苹果于 9 月 24 日(星期四)发布 iOS 14.0.1,但目前有关 iOS 14 的签名工作已经停止。这意味着用户升级到 i
- 关于Win10任务栏假死的问题相信很多朋友都遇到过,造成这种情况的原因有很多,一般都是因为系统和软件之间的冲突造成的,很难查检测出故障根源所
- Word首行缩进2字符怎么设置?在我们平常的文字书写中,为了文字的整体美观以及规范性,我们一般都会设置首行缩进两个字符,那么应该如何设置呢?
- 随着传统办公模式逐渐向信息化办公模式转变,纸质文书的流转形式也随之向电子文书的流转形式转变。因此,为确保电子文书的有效性,许多时候,企业会使
- 在VBA中,赋予变量或属性的字符串都是用引号 “" "”括起来的。如果字符串中要包含英文双引号,可以在代码中将输出时包含
- 在日常的word文档处理中,时常会遇到部分页码的word文档需要横置打印,那么如何将word文档中的一些纸张快速横置呢?希望看完本教程的朋友
- 有时候在Excel表格的统计中,需要对一大片人的身份证数据提取出生日期,有些朋友就会抱怨怎么根据身份证号码提取出生日期啊。以下是小编为您带来
- Excel自定义序列和自定义排序实际工作中往往会结合使用。本文为大家分享这样一个案例,B列的销售店铺是无序的,我们希望通过excel自定义排
- 我刚刚收到了仪表盘报告,也需要讨论。因此,在接下来的几周里,我将成为电子表格评论家。散乱数据想象一下,将一罐油漆从一栋50层高的建筑物上丢到
- excel怎么给某些单元格设置货币格式?想让某些单元格输入数据的时候直接显示货币格式,该怎么设置呢?今天我们就来看看给单元格数据设置格式的方
- MathType是一款专业的数学公式编辑工具,它可以与常见的文字处理软件和演示程序配合使用,能够在各种文档中加入复杂的数学公式和符号,可用在
- 我们在使用win10专业版系统的时候有可能需要修改磁盘的格式来达到某个目的,不同的磁盘格式具有不同的特性,windows主要的磁盘格式有FA
- U盘是人们经常使用的工具,可以用于复制、储存资料,还能重装系统,非常方便。但是在使用过程中,也会出现各种情况,如插入U盘后电脑屏幕出现2个U