用Excel ,如何能自动生成数字与大写小写字母组成互相交叉的86组字符串,大家来看看

"方法一：先生成6位长度的字符串 之后连接起来
=CONC马脚服印怎的杀析声消管ATENATE(IF(INT(RAND()*2)=0,CHAR(INT(RAND()*9+48)),IF(INT(RAND()*2)=0,CHAR(INT(RAND()*25+65)),CHAR(INT(RAND()*25+97)))),IF(INT(RAND()*2)=0,CHAR(INT(RAND()*9+48)),IF(INT(RAND()*2)=0,CHAR(INT(RAND()*25+65)),CHAR(INT(RAND()*25+97)))),IF(INT(RAND()*2)=0,CHAR(INT(RAND()*9+48)),IF(INT(RAND()*2)=0,CHAR(INT(RAND()*25+65)),CHAR(调固INT(RAND()*25+97)))),IF(INT(RAND()*2)=0,CHAR(INT(RAND()*9+48)),IF(INT(RAND()*2)=0,CHAR(INT(RAND()*25+65)),CHAR(INT(RAND()*25+97)))),IF(INT(RAND()*2)=0,CHAR(INT(RAND()*9+48)),IF(INT(RAND()*2)=0,CHAR(INT(RAND()*25+65)),CHAR(INT(RAND()*25+97)))),IF(INT(RAND()*2)=0,CHAR(INT(RAN久交既宽朝行氢又D()*9+48)),IF(I由顺帝负解NT(RAND()*2)倍话=0,CHAR(INT(RAND()*25+65)),CHAR(INT(RAND()*25+97)))))


方法二：
用下边的VBA代码能在A1:A10区域中生成由大小写字母和数字组成的86位长度的随机字符串

在EXCEL中按Alt+F11打开（OPEN）VBA编辑器，双击“工程”窗口中的某个工作表名称，在右侧的代码窗口中输入下列代码：



Sub MakeRandomString()
Dim J As Integer
Dim K As Integer
Dim iTemp As Integer
Dim sNumber As String
Dim RandomStr(1 To 100, 1 To 1) As String
Dim bOK As Boolean
Randomize
For J = 1 To 100
sNumber = """"
For K = 1 To 86
Do
iTemp = Int((122 - 48 + 1) * Rnd + 48)
Select Case iTemp
Case 48 To 57, 65 To 90, 97 To 122
bOK = True
Case ELSE
bOK = False
End Select
Loop Until bOK
bOK = False
sNumber = sNumber & Chr(iTemp)
Next K
RandomStr(J, 1) = sNumber
Next J
Range(""A1:A10"").Value = RandomStr
End Sub

最后运行代码。假如要生成其他长度的随机字符串，将其中的

For K = 1 To 86

中的“86”改为其他数字即能

生成的位置 修改 Range(""A1:A10"").Value = RandomStr 中的
A1：A10就能啦"