作者:乔山办公网日期:
返回目录:excel表格制作
使用函数指令可以完成。
单元格=ROUNDDOWN((RAND()*99999999),0)
按F9刷新即变化随机8位数
ROUNDDOWN(number,num_digits)
Number 为向下舍入的任意实数zd。这个参数专用的不多。
Num_digits 四舍五入后的数字的位数。这个参数用的不多。
rand()函数产生随机数的一个随机函数。
99999999这八位数的9代表单元属格的随机数是8位且不大于99999999
最后一位0表示没有小数点,随机数为整数。
是如百图意度思吗版?权
=LEFT(CHAR(RANDBETWEEN(97,122))&CHAR(RANDBETWEEN(97,122))&CHAR(RANDBETWEEN(97,122))&CHAR(RANDBETWEEN(97,122))&CHAR(RANDBETWEEN(97,122))&CHAR(RANDBETWEEN(97,122))&CHAR(RANDBETWEEN(97,122))&CHAR(RANDBETWEEN(97,122))&CHAR(RANDBETWEEN(97,122))&CHAR(RANDBETWEEN(97,122))&CHAR(RANDBETWEEN(97,122))&CHAR(RANDBETWEEN(97,122))&CHAR(RANDBETWEEN(97,122))&CHAR(RANDBETWEEN(97,122))&CHAR(RANDBETWEEN(97,122))&CHAR(RANDBETWEEN(97,122)),RANDBETWEEN(8,16))
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
=CHOOSE(RANDBETWEEN(1,2),CHAR(RANDBETWEEN(48,57)),CHAR(RANDBETWEEN(97,122)))&CHOOSE(RANDBETWEEN(1,2),CHAR(RANDBETWEEN(48,57)),CHAR(RANDBETWEEN(97,122)))&CHOOSE(RANDBETWEEN(1,2),CHAR(RANDBETWEEN(48,57)),CHAR(RANDBETWEEN(97,122)))&CHOOSE(RANDBETWEEN(1,2),CHAR(RANDBETWEEN(48,57)),CHAR(RANDBETWEEN(97,122)))&CHOOSE(RANDBETWEEN(1,2),CHAR(RANDBETWEEN(48,57)),CHAR(RANDBETWEEN(97,122)))&CHOOSE(RANDBETWEEN(1,2),CHAR(RANDBETWEEN(48,57)),CHAR(RANDBETWEEN(97,122)))&CHOOSE(RANDBETWEEN(1,2),CHAR(RANDBETWEEN(48,57)),CHAR(RANDBETWEEN(97,122)))&CHOOSE(RANDBETWEEN(1,2),CHAR(RANDBETWEEN(48,57)),CHAR(RANDBETWEEN(97,122)))
别看很长,就是同一个公式复制8次而已,或者用宏倒是很方便~e799bee5baa6e997aee7ad94e58685e5aeb9330