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”，可做你要字母组合填写的事。
你有技术识别验证码吗？