excel 如何能够生成16位字母组成的所有大小写组合
发布网友
发布时间:2022-05-01 16:55
我来回答
共3个回答
热心网友
时间:2022-06-19 21:06
程序不难,下面的例子代码:
Option Explicit
Sub 组合()
Dim s, n, i, c1, c2, c3, c4, c5
s = "ABCDEFGHIJKLMNOPQRSTUVWXYZ0123456789" '如果还需要小写字符或者符号可以自行添加
n = Len(s)
ReDim arr(1 To n)
ReDim result(1 To 5) '16位太长了,我写5测试,你自己修改为16
For i = 1 To n: arr(i) = Mid(s, i, 1): Next i
i = 1
For Each c1 In arr
result(1) = c1
For Each c2 In arr
result(2) = c2
For Each c3 In arr
result(3) = c3
For Each c4 In arr
result(4) = c4
For Each c5 In arr
'例子程序只有写5层,你需要类似的办法修改为16层
result(5) = c5
Cells(i, 1).Resize(1, UBound(result)) = result
i = i + 1
If i > 100 Then Exit Sub '这表示只要100行,你可以改为100万,或者删除本行
Next c5
Next c4
Next c3
Next c2
Next c1
End Sub
例子代码只输出5位,改为16位的方法在程序里面都有说明,程序运行结果如下:
追问达到了其中的一步 应该我尝试一下 那想进一步问一下 因为组合太多 如果用excel一直做到头也就能显示100万多种,肯定不是所有 怎么能继续往下做 或者我直接在一个位置生成随机的符合要求的16位字母组合也行 非常感谢!
热心网友
时间:2022-06-19 21:06
这样做不现实 ,组合共有16的52次方,是一个天文数字
热心网友
时间:2022-06-19 21:07
下载个“按键精灵2014”,可做你要字母组合填写的事。
你有技术识别验证码吗?