excel怎样做随机选号

来源：百度知道 编辑：UC知道 时间：2024/06/15 12:46:52
从1到15里面，随机选取3个号码，号码不能重复，怎样实现？？
zhhch517 的方法可行，也没重复，不错，能解析下代码吗？

Sub test()
Dim i As Long
Set dic1 = CreateObject("scripting.dictionary")
Do
i = Int(Rnd() * 15) + 1
dic1(i) = i
Loop Until dic1.Count = 3
[a1:a3] = WorksheetFunction.Transpose(dic1.keys)
End Sub

我也好多不知道什么意思,但看到别人用过,自己也拿来用.
看看这个贴子吧,应该会有帮助的,
还有这个网站学EXCEL及VBA还是相当的不错的.
http://club.excelhome.net/thread-265056-1-1.html

可以考虑1-5
5-10
10-15 分开用rand就行了。

=int(rand()*4)+1

=int(rand()*5)+5

=int(rand()*5)+10

分别在三个单元格输入公式=int(rand()*14+1)，不重复不好弄

3个什么号码？