如何利用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
投稿猜你喜欢
Excel表格是很多小伙伴都在使用的一款软件。在Excel表格中我们有时候会需要输入一些递增的序号，比如各种图书编号，各种员工工号，各种学生- 大家都知道，使用硬件加速的功能时，因硬件条件差，要调低此功能，那么win10硬件加速怎么调低呢？感兴趣的朋友不要错过了。win10硬件加速怎
- findb函数与find函数类似，唯一不同是findb函数的字符集是双字节，也就是文字串。今天，小编就教大家在Excel中findb函数的运
- cubase5怎么导出MP3文件？cubase5集音乐创作、音乐制作、音频录制、音频混音于一身，充满了各种各样的虚拟仪器、效果和数千种声音，
- 在日常工作中一些特殊职业者经常需要用到一些数学、化学等复杂的公式，最常见的就是教师，他们在制作试卷的时候少不了用到一些公式，在Word中怎么
- 在输入文档的时候，也需要在文档当中插入页眉，那么如何更改页眉单调的黑色横线形式呢，今天我们就来教大家，如何在Word文字当行将页眉转换为红色
- 相信有了解的朋友都清楚，除了注销Linux子系统的发行版外，用户在Win10系统中还可以将其重置为默认值。那么，该怎么操作呢？针对这一问题，
- 有道云协作该怎样邀请他人加入协作群？有道云提供一个非常好的功能，就是协作群，用户相互可以在里面共享文档内容，那么下面，小编就为大家介绍下有道
- 非段首的英文日期显示为首字母大写该怎么操作？我们在使用WPS文字撰写英文文章时，在输入英文文本段落时非首段的英文日期需要大写，来回切换英文字
- 在Word2010中编辑文档时，设置段落对齐的方法，并非只有一种。小编今天要向大家推荐两种比较简单的，希望可以帮助到大家。方法一打开Word
- 整理了一份Excel数据表格出来，准备上交给领导，可是发现单元格里面包含了很多无意义的0值，影响美观不说，还严重妨碍视线，逼死强迫症患者。得
- PowerPoint演示文稿是一款非常常用的办公软件，我们通常直接简称为PPT。相信小伙伴们在各种场合都看到过各种各样的PPT。比如各种教学
- 如何在Word 2007中插入空白表？您可以使用下拉菜单中的网格或对话框将表添加到Word 2007文档中。网格方法是创建简单表的最快方法，
- 在员工填写Word表格时,常常不符合规范,可利用控件规范填写内容，那么在word中如何插入各种控件呢?下面小编就为大家介绍一下，来看看吧在w
- 通常我们都是在EXCEL中使用表格,但也有很多时候我们需要在WORD中使用表格，那么Word如何插入表格啊?下面小编就为大家介绍Word插入
- ppt图片怎么制作椭圆形矩阵效果？ppt中插入的图片想要制作一些特殊的效果，我们可以使用onekey插件来制作，下面我们就来看看详细的教程，
- 我们都知道系统一般默认是administraor用户，怎么添加新用户？本文就为大家带来了详细的解决教程，需要的朋友一起看看吧Win11怎么添
- Excel中插入行一般是使用【插入】的方法，实际上还有更加简单的方法。步骤：第一步：选中其中的一行第二步：把光标移到行首的黑色小方块上，直到
- 了解如何将另一台显示器连接到您的 Mac，并选取显示器搭配使用的方式。查看显示器支持信息根据您的 Mac 机型，您可以连接一台或多台外置显示
- 为了保证Excel保持数据的连贯性，需要设置不允许跳过空行输入，或者是其他的一些有规则性的设置。本文采用数据有效性的方法来限制输入实现不允许
