随机数8位，随机数量不定，不足八位需要用0补齐

yufei2010

各位大咖：

     现在有一个问题：随机数8位，随机数量不定，有100行，有可能是1w行，要求不能有重复，如何处理？ 样本.zip (5.96 KB, 下载次数: 16)

2019-3-18 11:00 上传

点击文件名下载附件

附：不足八位需要用0补齐。

micch

100个也就罢了，10000个不如去代码求助吧

zhl1472583

=TRUNC(RAND()*10^8),不知是否满意

mmlzh

=RANDBETWEEN(10000000,99999999)
万分之一的重复概率

kingwee0000

绝不重复
A2=TEXT(SMALL(IF(COUNTIF($A$1:A19,ROW(INDIRECT("1："&4^8)))=0,ROW(INDIRECT("1："&4^8))),INT(RAND()*(4^8-ROW(A19))+1)),"00000000")

我走我流

=TEXT(RIGHT(SMALL(RANDBETWEEN(ROW(1:10000)^0,10^8)/1%+ROW(1:10000),ROW(1:10000)),4),REPT(0,8))
不过出来的都是不重复的1-4位数，前面4位可以随意填上

风渐冷

kingwee0000 发表于 2019-3-18 11:41
绝不重复
A2=TEXT(SMALL(IF(COUNTIF($A$1:A19,ROW(INDIRECT("1："&4^8)))=0,ROW(INDIRECT("1："&4^8))),IN ...

这样的话，就没有10000001，20000001这样的不重复数了。

micch

不足8位补足8位，其实就是设置单元格格式就能解决的问题，没必要增加麻烦

1. Sub test()
   
2.     Set d = CreateObject("scripting.dictionary")
   
3.     Randomize
   
4.     Do
   
5.         If n = 100 Then Exit Do
   
6.         x = Right("00000000" & Int(Rnd * 99999999), 8)
   
7.         If Not d.exists(x) Then
   
8.             d(x) = ""
   
9.             n = n + 1
   
10.         End If
    
11.     Loop
    
12.     [a1].Resize(100) = Application.Transpose(d.keys)
    
13. End Sub

复制代码

yufei2010

=TEXT(RANDBETWEEN(1,10^8-1),REPT(0,8))

=TEXT(INT(RAND()*1000000),REPT(0,8))

是的，不过这两个都有重复

笑着...两年过去

yufei2010 发表于 2019-3-18 12:50
=TEXT(RANDBETWEEN(1,10^8-1),REPT(0,8))

=TEXT(INT(RAND()*1000000),REPT(0,8))

1. Sub test()
   
2.      c = 1000
   
3.      Set d = CreateObject("scripting.dictionary")
   
4.      For a = 1 To c
   
5.          d(a) = ""
   
6.      Next
   
7.     ReDim arr(1 To c, 1 To 1)
   
8.     For i = 1 To c
   
9.         a = Application.RandBetween(1, d.Count)
   
10.         arr(i, 1) = "a" & Format(d.keys()(a - 1), "00000000")
    
11.         d.Remove d.keys()(a - 1)
    
12.     Next
    
13.     [a2].Resize(c, 1) = arr
    
14. End Sub

复制代码

c是随机值的个数