エクセルでA列からG列の数値の合計の組合せを計算する方法を教えてください。

VBAで表示するマクロです。H列が合計になります。

A～Gの位置を保持した組み合わせの場合はMacro1で２１８７通り。

Sub Macro1()
    Application.ScreenUpdating = False
    Dim ha, hb, hc, hd, he, hf, hg
    Dim i1, i2, i3, i4, i5, i6, i7, c
    ha = Array(35, 0, -30)
    hb = Array(25, 0, -20)
    hc = hb
    hd = hc
    he = hd
    hf = Array(15, 0, -15)
    hg = hf
    c = 1
    For i1 = 0 To 2
        For i2 = 0 To 2
            For i3 = 0 To 2
                For i4 = 0 To 2
                    For i5 = 0 To 2
                        For i6 = 0 To 2
                            For i7 = 0 To 2
                                Cells(c, 1).Value = ha(i1)
                                Cells(c, 2).Value = hb(i2)
                                Cells(c, 3).Value = hc(i3)
                                Cells(c, 4).Value = hd(i4)
                                Cells(c, 5).Value = he(i5)
                                Cells(c, 6).Value = hf(i6)
                                Cells(c, 7).Value = hg(i7)
                                Cells(c, 8).Value = ha(i1) + hb(i2) + hc(i3) + hd(i4) + he(i5) + hf(i6) + hg(i7)
                                c = c + 1
                            Next
                        Next
                    Next
                Next
            Next
        Next
    Next
    
    Range("A1:H2187").Sort Key1:=Range("H1"), Order1:=xlDescending, Header:= _
        xlGuess, OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom, _
        SortMethod:=xlPinYin, DataOption1:=xlSortNormal
    Application.ScreenUpdating = True
End Sub

更に、単純に数字の組み合わせだけがほしいならば、Macro1の結果からMacro2を実行して、２７０通りです。

Sub Macro2()
    Application.ScreenUpdating = False
    Dim i As Integer
    Dim c As Integer
    Dim f As Boolean
    For i = 1 To 2187
        Range(Cells(i, 1), Cells(i, 7)).Sort Key1:=Cells(i, 1), Order1:=xlDescending, Header:=xlGuess, _
            OrderCustom:=1, MatchCase:=False, Orientation:=xlLeftToRight, SortMethod _
          :=xlPinYin, DataOption1:=xlSortNormal
    Next
    For i = 2187 To 2 Step -1
        f = False
        c = 1
        While Cells(i, 8).Value = Cells(i - c, 8).Value
            If Cells(i, 1).Value = Cells(i - c, 1).Value And _
                Cells(i, 2).Value = Cells(i - c, 2).Value And _
                Cells(i, 3).Value = Cells(i - c, 3).Value And _
                Cells(i, 4).Value = Cells(i - c, 4).Value And _
                Cells(i, 5).Value = Cells(i - c, 5).Value And _
                Cells(i, 6).Value = Cells(i - c, 6).Value And _
                Cells(i, 7).Value = Cells(i - c, 7).Value Then
                f = True
            End If
            c = c + 1
        Wend
        If f Then
            Rows(i).Delete
        End If
    Next
    Application.ScreenUpdating = True
End Sub