如何利用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
