在EXCEL中可以随机产生八位数吗?数字和英文混合的.

Question

如题所述

Answer 1

上面那位的做法很好，不用编程。如果你嫌没有小写字母，在把小写字母也写在B列的字母Z的后面，然后将公式里的37改为62，就可以了。

若嫌麻烦，用以下办法：
在A1中输入公式（全部是英文格式下的）：
=CHAR(RAND()*75+48)&CHAR(RAND()*75+48)&CHAR(RAND()*75+48)&CHAR(RAND()*75+48)&CHAR(RAND()*75+48)&CHAR(RAND()*75+48)&CHAR(RAND()*75+48)&CHAR(RAND()*75+48)

copy这个公式到A1:A5000，即可。
缺点是有可能会出现几个符号。

Answer 2

在EXCEL中如何使用随机函数生成8位数字或者数字与字母混合的密码，首尾可以为数字0：数字密码
=TEXT(INT(RAND()*100000000),"00000000")

混合密码
b1至b36依次填充0-9，A-Z
a1=INDEX(B:B,RAND()*37)&INDEX(B:B,RAND()*37)&INDEX(B:B,RAND()*37)&INDEX(B:B,RAND()*37)&INDEX(B:B,RAND()*37)&INDEX(B:B,RAND()*37)&INDEX(B:B,RAND()*37)&INDEX(B:B,RAND()*37)

如不满意，按F9重算。

Answer 3

VBA代码如下，按alt+F11，在sheet1中双击，粘贴。工具 宏 运行宏。执行aaa即可。Sub aaa()
For i = 1 To 5000
bb = ""
aa = ""
For j = 1 To 8
a = VBA.Int(Rnd() * 3 + 1)
Select Case a
Case Is = 1
bb = Chr(64 + Int(Rnd * 26) + 1)
Case Is = 2
bb = Chr(96 + Int(Rnd * 26) + 1)
Case Is = 3
bb = Int(Rnd() * 9 + 1)
End Select
aa = aa & bb
Cells(i, 1) = aa
Next j
Next i
End Sub本回答被网友采纳