[已解决]请问如何生成1~100不会变的随机数

darren_data

想用rand()函数生成1~100的随机数，但不希望每次在EXCEL文件刷新后随机数又变化。希望高手帮忙解答，大谢！

最佳答案

月排行榜 / 总排行榜

qh8600

2014-10-26 12:08

darren_data 发表于 2014-10-26 12:02
要生成100以内的整数，100个。

1. Sub demo()
   
2.     Dim ar(1 To 100, 1 To 1), i As Long
   
3.     Randomize
   
4.     For i = 1 To 100
   
5.         ar(i, 1) = Int(Rnd() * 100 + 1)
   
6.     Next
   
7.     Range("a1").Resize(100, 1) = ar
   
8. End Sub
   

复制代码

附件见楼下

跳转到最佳答案楼层

qh8600

要生成多少个数呢

darren_data

qh8600 发表于 2014-10-26 12:01
要生成多少个数呢

要生成100以内的整数，100个。

qh8600

darren_data 发表于 2014-10-26 12:02
要生成100以内的整数，100个。

1. Sub demo()
   
2.     Dim ar(1 To 100, 1 To 1), i As Long
   
3.     Randomize
   
4.     For i = 1 To 100
   
5.         ar(i, 1) = Int(Rnd() * 100 + 1)
   
6.     Next
   
7.     Range("a1").Resize(100, 1) = ar
   
8. End Sub
   

复制代码

附件见楼下

qh8600

darren_data 发表于 2014-10-26 12:02
要生成100以内的整数，100个。

工作簿2.rar (14.66 KB, 下载次数: 22)

2014-10-26 12:09 上传

点击文件名下载附件

点按钮刷新

xdragon

想不变化，只要把你的公式转换为数值就好了（复制，选择性粘贴，数值）

darren_data

qh8600 发表于 2014-10-26 12:08
附件见楼下

非常感谢{:1112:}。。

darren_data

xdragon 发表于 2014-10-26 13:26
想不变化，只要把你的公式转换为数值就好了（复制，选择性粘贴，数值）

我是想直接生成没有变化的随机数，最好就不通过选择性粘贴来操作。

蝶·舞

不要VBA也可以实现

darren_data

蝶·舞 发表于 2014-10-26 16:11
不要VBA也可以实现

我知道用循环引用可以实现，但不知道具体怎么去操作，欢迎大神指导！