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
投稿猜你喜欢
有用户问Win11终端管理员打不开怎么办？在运行Windows11终端管理员无法打开，点了没反应。遇到这种情况我们该怎么解决？下面小编给大家- 当你用手机或者U盘连接电脑的时候，Win7系统都会自动搜索和安装驱动程序，这很方便也很人性化，出于安全考虑，最好是禁止自动安装驱动，下面就为
- PPT教程 PowerPoint备注怎么用?PPT演示备注现在还在背讲义的朋友有福啦，因为PowerPoint提供的PPT演示者视图对演讲者
- iOS 和 iPadOS 13.4 开始，所有安装了该版本操作系统的的苹果设备都将获得增强的智能反追踪功能（Intelligen
- 最近一次，打开Win7系统电脑发现桌面上的图标都没了，这是怎么回事呢？难道是电脑中毒了吗？但是除了桌面图标没了之外，并没有出现其他异常症状，
- 不少对信息安全要求严格的企业都采用了 SmartCard + PIN 的方式来实现员工的身份验证，对于个人用户而言 Windows 10 也
- 不少朋友已经升级Win10 Mobile 10572，但是在为in10 10572版本中会发现很多问题，最让人受不了的就是社交应用QQ、微信
- 有不少网友组装玩电脑后，需要给电脑安装操作系统，但是在选择系统上陷入了纠结，不知道win7和win10哪个好用。其实win7和win10系统
- 是不是都是在说如何找回丢失了的回收站图标，很少人说要把回收站图标也消失掉呢？回收站其实就是垃圾回收的地方，平常一般拿来没多大的作用只有在误删
- WPS怎么自动生成目录？最近有小伙伴们在使用WPS的时候遇到了问题，自己的文本编辑了很多的情况下想加入目录，手动实在是太慢了。那要如何添加呢
- 用WPS演示制作的幻灯片,其优点是开放性好、简单易学和功能齐全;幻灯片的作用不言而喻，很多重要场合都要用到它，是我们办公生活中不可缺少的元素
- 苹果昨日向开发者提醒道：在 iOS 14.5 发布之前，使用新的 AppTracking 递解框架更新他们的应用程序。“ 除非你获得用户许可
- PPT2013中做好的幻灯片怎么转换成高清视频格式？使用ppt做的幻灯片但是像素不高，现在想转换成高清的视频，该怎么办呢？今天我们来看看不适
- AIrDrop，即隔空投送。是苹果公司iOS，iPadOS和macOS系统下特有的功能，用于在多台设备之间分享文件。在苹果不同设备上如何开启
- 用户在使用后WPS软件时可以感受得到里面功能的强大，并且获得了不错的使用体验，因为wps软件是一款结合word、excel等其他办公软件功能
- Win11系统tracert命令如何使用？我们电脑开启cmd程序输入指定的代码可以实现各种不同的功能作用。今天我们和大家来分享一个口令，看看
- 掌握好wps文字的排版技巧，对于我们编辑论文有很大帮助，那么，怎样设置wps文字的排版方式呢?下面就让小编告诉你wps文字如何设置排版方式吧
- 很多朋友想用u盘装系统，但是却不知道怎么进入bios，其实电脑进入bios的方法是很简单的，下面小编就以联想电脑为例来告诉大家怎么进入bio
- word怎样自动生成目录？在我们所做的资料中，有些较长的文书编写好后，为了方便看，我们要给它做一个目录，现在给大家实操的是在WORD软件中做
- 相信每个人都喜欢为自己的电脑设置好看的桌面背景，有时候遇到好看的桌面背景就会想把背景图片找出来另存。那么，Win10桌面背景在哪个文件夹呢？
