Question

excel vba排列组合公式写法

共有A-H八组数字（表格仅供参考），每组数字都是0-4之间，必须在每组数字中选择一个数字。要求A组选择的数字=B组选择的数字，C组选择的数字=D组选择的数字，E组选择的数字≠F组选择的数字，G组选择的数字≠H组选择的数字。例如，A组选择0，B组选择0，C组选择1，D组选择1，E组选择2，F组选择3，G组选择4，H组选择0。这样的选择完全符合要求。如何通过VBA得到所有符合条件的排列。最好可以演示结算过程，要公式，不是直接要结果，谢谢。

Answer 1

Sub test()
Dim a As Integer, b As Integer, c As Integer, d As Integer, e As Integer, f As Integer, g As Integer, h As Integer
Dim k As Long
Dim xxr
k = 0

For a = 0 To 4
    b = a
    For c = 0 To 4
        d = c
            For e = 0 To 4
                For f = 0 To 4
                    If f <> e Then
                        For g = 0 To 4
                            For h = 0 To 4
                                If h <> g Then
                                    xxr = Array(a, b, c, d, e, f, g, h)
                                    Range(Cells(k + 10, "A"), Cells(10 + k, "H")) = xxr
                                    k = k + 1
                                End If
                            Next
                        Next
                    End If
                Next
            Next
    Next
Next
                                                                      

End Sub