运行下面的宏,会在b1:b500产生随机密码.
Sub test()
cs = "abcdefghijklmnopqrstuvwxyz1234567890"'可用于密码的字符,根据实际增减.
l = Len(cs)
ReDim t(1 To l)
For i = 1 To l
t(i) = Mid(cs, i, 1)
Next
pl = InputBox("请输入密码长度")
Randomize
For r = 1 To 500
For i = 1 To pl
p = p & t(Int(Rnd * l) + 1)
Next
Cells(r, 2) = p
p = ""
Next
End Sub