如何修改宏去除所有排列组合中的排列顺序虽然不同，但组合重复的数组

xyh418

例子中，5个数中，将2个为一组，进行排列组合，如何修改宏，使得所得数组能剔除，虽然排列顺序不同，但组合重复的数组。3个为一组的情况，又如何做？

wodewan

For j = 1 To 5 改为 For j = i To 5

xyh418

wodewan 发表于 2023-2-13 21:33
For j = 1 To 5 改为 For j = i To 5

竟然，成了。谢谢老师！

xyh418

wodewan 发表于 2023-2-13 21:33
For j = 1 To 5 改为 For j = i To 5

前辈，请教下您，如果将1-10，10个数中同时输出不重叠的两个数、三个数和四个数的组合，需要怎么修改公式呢

wodewan

xyh418 发表于 2023-2-15 20:19
前辈，请教下您，如果将1-10，10个数中同时输出不重叠的两个数、三个数和四个数的组合，需要怎么修改公式 ...

'就是求组合，而不是求排列，一般是用递归比较方便，给个示例供参考：

Dim path, res, m&, n&, k&, cnt&
Sub test()
    k = 0: m = 10: n = 3 '10取3，可修改m,n的值获取不同组合
    ReDim path(1 To n)
    ReDim res(1 To WorksheetFunction.Combin(m, n), 1 To n)
    combine 1: Range("A1").Resize(UBound(res), n) = res
End Sub
Sub combine(startindex)
    Dim i&, j&
    If cnt = n Then
        k = k + 1
        For j = 1 To n
            res(k, j) = path(j)
        Next
        Exit Sub
    End If
    For i = startindex To m - (n - cnt) + 1
        cnt = cnt + 1
        path(cnt) = i
        combine i + 1
        cnt = cnt - 1
    Next
End Sub

xyh418

wodewan 发表于 2023-2-15 21:07
'就是求组合，而不是求排列，一般是用递归比较方便，给个示例供参考：

Dim path, res, m&, n&, k&, cn ...

谢谢老师！