如何让excel自动排列组合

Question

如图，每位号码下面列了该位上所有可能的数字。如何让excel自动排列出所有可能的号码组合？

Answer 1

使用vba实现

自动排列组合，生成排列组合的列数，手动输入

然后从第二行第一列开始生成每列数据，每列数据数字不重复，数量随机。

实现代码如下：

Sub 按钮1_Click()
    Application.ScreenUpdating = False
    ActiveSheet.UsedRange.ClearContents '清空表格
    a = InputBox("请输入产生序列的列数") '提示输入列数
    Set d = CreateObject("scripting.dictionary") '字典去重
    If VBA.IsNumeric(a) Then '判断输入的是否是数值，不是则跳出程序
        Randomize '初始化随机数
        
        For j = 1 To Int(a) '生成输入列数的随机数
            b = Int(Rnd * 99999) Mod 10 + 1 ' 每列产生随机数的数量
            d.RemoveAll
l2:
            If d.Count <> b Then '生成随机数
                d(Int(Rnd * 99999) Mod 10) = ""
                GoTo l2
            End If
            Cells(2, j).Resize(d.Count) = WorksheetFunction.Transpose(d.keys) '将随机数存入相应列里
        Next j
    Else
        MsgBox "请输入数值"
        GoTo l1
    End If
l1:
    Application.ScreenUpdating = True
End Sub

程序执行效果：

Answer 2

选中列 自定义排序 选中要排序的列 主要的在第一个 。。。

Answer 3

你的问题是一个排列遍历，用 Excel 中的 VB 编程实现可能效率高一些。

追问

请问具体要怎么做？

追答

不知道你是不是熟悉 VB 编程？如果熟悉的话，用 VB编一个 11级嵌套的循环，
最里边的循环遍历最后一位：3、7、9
次里边... 最后第二位：3、8、9
再次.... 最后第三位：0、6、8
......
直到.... 最后第11位：1
这样就把全部的号码都排列出来了。

追问

完全不会。。请问具体怎么做？

Answer 4

如何利用EXCEL解决排列组合问题_百度经验 http://jingyan.baidu.com/article/20095761879734cb0721b4ef.html