.怎么在EXCEL单元格内随机生成16位数字字母混合的密码，...-excel随机生成字母数字,excel随机生成字母数

这个网上有抄很多袭解答了，建议参考
http://wenku.baidu.com/link?url=aACtmrB0sfF8ebSxVD7nraAyEt4UsMFQ6Dki6lD8Qz7_p750BXh6OORFO3WLs6ylDaw6cAzp8IDyw40H8fhgYcb6rWVwYiRD6OTn6IHOsxq
里面知内容很全。道

Public Function RandA()
Dim Rst As String
For i = 1 To 16
Do
Tmp = Int(Rnd() * 255)
If (Tmp >= 65 And Tmp <= 90) Or (Tmp >= 48 And Tmp <= 57) Then
Exit Do
End If
Loop
Rst = Rst + Chr(Tmp)
Next
RandA = Rst
End Function

=LOOKUP(RANDBETWEEN(1,5),{1,2,3,4,5},{"A","B","C","D","E"})

如果有度需要，可已将5改成知26，这样，道对应的就是返回任意专26个字母了。

=LOOKUP(RANDBETWEEN(1,26),{1,2,3,4,5，…属…25，26},{"A","B","C","D","E"，……"Z"})

一、随机生成16位数字加大写字母，公式：
=CHOOSE(RANDBETWEEN(1,2),CHAR(RANDBETWEEN(65,90)),RANDBETWEEN(0,9))&CHOOSE(RANDBETWEEN(1,2),CHAR(RANDBETWEEN(65,90)),RANDBETWEEN(0,9))&CHOOSE(RANDBETWEEN(1,2),CHAR(RANDBETWEEN(65,90)),RANDBETWEEN(0,9))&CHOOSE(RANDBETWEEN(1,2),CHAR(RANDBETWEEN(65,90)),RANDBETWEEN(0,9))&CHOOSE(RANDBETWEEN(1,2),CHAR(RANDBETWEEN(65,90)),RANDBETWEEN(0,9))&CHOOSE(RANDBETWEEN(1,2),CHAR(RANDBETWEEN(65,90)),RANDBETWEEN(0,9))&CHOOSE(RANDBETWEEN(1,2),CHAR(RANDBETWEEN(65,90)),RANDBETWEEN(0,9))&CHOOSE(RANDBETWEEN(1,2),CHAR(RANDBETWEEN(65,90)),RANDBETWEEN(0,9))&CHOOSE(RANDBETWEEN(1,2),CHAR(RANDBETWEEN(65,90)),RANDBETWEEN(0,9))&CHOOSE(RANDBETWEEN(1,2),CHAR(RANDBETWEEN(65,90)),RANDBETWEEN(0,9))&CHOOSE(RANDBETWEEN(1,2),CHAR(RANDBETWEEN(65,90)),RANDBETWEEN(0,9))&CHOOSE(RANDBETWEEN(1,2),CHAR(RANDBETWEEN(65,90)),RANDBETWEEN(0,9))&CHOOSE(RANDBETWEEN(1,2),CHAR(RANDBETWEEN(65,90)),RANDBETWEEN(0,9))&CHOOSE(RANDBETWEEN(1,2),CHAR(RANDBETWEEN(65,90)),RANDBETWEEN(0,9))&CHOOSE(RANDBETWEEN(1,2),CHAR(RANDBETWEEN(65,90)),RANDBETWEEN(0,9))&CHOOSE(RANDBETWEEN(1,2),CHAR(RANDBETWEEN(65,90)),RANDBETWEEN(0,9))

公式中的主要部分解释：
CHOOSE(RANDBETWEEN(1,2),CHAR(RANDBETWEEN(65,90)),RANDBETWEEN(0,9))
1、RANDBETWEEN(1,2)随机得到e68a84e79fa5e981933301和2；
2、CHAR(RANDBETWEEN(65,90))，其中RANDBETWEEN(65,90)得到65到90的随机整数，用CHAR转化整数为大写字母，就是随机生成A到Z大写字母；
3、RANDBETWEEN(0,9)随机生成0到9的一位整数；
4、用CHOOSE函数随机得到大写字母或数字。

二、随机得到20位数字，由于EXCEL只能正常使用15位以内数字，将20位分为两段设计公式：
=TEXT(RANDBETWEEN(0,9999999999),"校验码 00000 00000 ")&TEXT(RANDBETWEEN(0,9999999999),"00000 00000")

1、RANDBETWEEN(0,9999999999)随机得到0到9999999999一个整数；
2、用TEXT对数字进行格式化。