[已解决]请教如何生成不重复的5个数字组合

kevinpj

随机生成一个5位的数字（0~9），每个位都互相不重复，生成之后最好不要变来变去，不知道高手们有没有办法做到，谢谢了！！！
用此公式【=INT(RAND()*100000)】生成的数字会随时变动，且重复。




“望帝春心”和“苏子龙”二位的方法都可以，都是高手！感谢二位！
最佳答案我只能二选一，就选最先回复的“苏子龙”吧！

最佳答案

月排行榜 / 总排行榜

苏子龙

2017-8-24 12:46

kevinpj 发表于 2017-8-24 12:18
非常感谢！
只 是我对VBA不懂，还请麻烦告知我如何调用
我已经复制粘贴过去了：

插入图片等，右键--选择对应的宏--按下图片就可以运行了，或者在vba编辑里面，按向右的播放样的三角形就好了

跳转到最佳答案楼层

苏子龙

1. Sub tt()
   
2.     Dim ar(9), i%, n%, str$
   
3.     Randomize
   
4.     For i = 1 To 10
   
5.         str = "": Erase ar
   
6.         Do While Len(str) < 5
   
7.             n = Int(Rnd() * 10)
   
8.             If ar(n) = "" Then
   
9.                 ar(n) = n
   
10.                 str = str & n
    
11.             End If
    
12.         Loop
    
13.         Cells(i, 1) = "'" & str
    
14.     Next
    
15. End Sub

复制代码

刚才朋友那里看到类似的，试试这样行吗

望帝春心

1. =TEXT(SUM(RIGHT(SMALL(--(10^RANDBETWEEN(ROW(1:10)^0,9)&ROW(1:10)-1),ROW(1:5)))*10^(5-ROW(1:5))),"00000")

复制代码

数组公式

kevinpj

苏子龙 发表于 2017-8-24 11:48
刚才朋友那里看到类似的，试试这样行吗

非常感谢！
只 是我对VBA不懂，还请麻烦告知我如何调用
我已经复制粘贴过去了：

kevinpj

望帝春心 发表于 2017-8-24 12:16
数组公式

不够完美，不过还是很感谢你！0会重复出现，而且会变来变去，再有就是下拉时只有5行，第6行起就会显示#NUM!

望帝春心

kevinpj 发表于 2017-8-24 12:23
不够完美，不过还是很感谢你！0会重复出现，而且会变来变去，再有就是下拉时只有5行，第6行起就会显示#NU ...

1. =TEXT(SUM(RIGHT(SMALL(--(10^RANDBETWEEN(ROW($1:$10)^0,9)&ROW($1:$10)-1),ROW($1:$5)))*10^(5-ROW($1:$5))),"00000")

复制代码

你没说要下拉啊，以为只在一个单元格生成呢

望帝春心

kevinpj 发表于 2017-8-24 12:23
不够完美，不过还是很感谢你！0会重复出现，而且会变来变去，再有就是下拉时只有5行，第6行起就会显示#NU ...

1. 回重了

复制代码

苏子龙

望帝春心 发表于 2017-8-24 12:16
数组公式

新手还是用这个吧，三键结束都不知道=TEXT(SUMPRODUCT(RIGHT(SMALL(--(10^RANDBETWEEN(ROW($1:$10)^0,9)&ROW(3:12)-1),ROW($1:$5)))*10^(5-ROW($1:$5))),"00000")

苏子龙

kevinpj 发表于 2017-8-24 12:18
非常感谢！
只 是我对VBA不懂，还请麻烦告知我如何调用
我已经复制粘贴过去了：

插入图片等，右键--选择对应的宏--按下图片就可以运行了，或者在vba编辑里面，按向右的播放样的三角形就好了

kevinpj

苏子龙 发表于 2017-8-24 12:46
插入图片等，右键--选择对应的宏--按下图片就可以运行了，或者在vba编辑里面，按向右的播放样的三角形就 ...

谢谢！！！