excel 宏编程 进行 多个数列排列组合 用什么样的宏 代码 可以实现 在 E 列显示所有的组合情况

如题所述

做出所有的组合没有多大意义……不用vba做 用公式就行了

假设你的这些组合是 0~9的十个数字组合……详细见附件

另外建议使用 随机函数 每次取一个随机三个数的组合……

温馨提示:内容为网友见解,仅供参考
第1个回答  2017-11-06

1~9取三位的代码:

Option Explicit

Sub x()
    Dim i, j, k, x
    x = 1
    For i = 1 To 7
        For j = i + 1 To 8
            For k = j + 1 To 9
                Cells(x, 5) = i & j & k
                x = x + 1
            Next k
        Next j
    Next i
End Sub

本回答被网友采纳
第2个回答  2013-10-10
public sub test()
rw = 1
for i1=1 to 3
for i2=1 to 3
for i3=1 to 3
range("E" & rw) = range("A" & i1) &range("B" & i2) &range("C" & i3)
rw=rw+1
next
next
next
end sub本回答被提问者采纳
第3个回答  2013-10-10
还是算了吧。

excel 宏编程 进行 多个数列排列组合 用什么样的宏 代码 可以实现 在...
另外建议使用 随机函数 每次取一个随机三个数的组合……

excel 宏编程 进行 多个数列排列组合 用什么样的宏 代码 可以实现 在...
1~9取三位的代码:Option ExplicitSub x() Dim i, j, k, x x = 1 For i = 1 To 7 For j = i + 1 To 8 For k = j + 1 To 9 Cells(x, 5) = i & j & k x = x + 1 Next k Next j Next iEnd Sub ...

相似回答