当前位置：首页 >> 行业知识库 >> 组合工具行业知识库 >> 找一个数据排列组合工具。

谁能给我一个数据排列组合工具，可以对一些数据或元素进行指定的排列组合。如：给出20个数据或其它元素，我想从其中任意取几个，它就能把所有的组合列出来。
其 他 回 答: (共1条)
1楼
录制一个宏，在宏中写如下代码，即可实现
Sub Macro1()
Dim i As Integer
Dim b As Integer
Dim s As Integer
Dim g As Integer
i = 1
For b = 1 To 5
For s = 1 To 5
For g = 1 To 5
Cells(i, 1) = b * 100 + s * 10 + g
i = i + 1
Next g
Next s
Next b
End Sub