Visual Basic para Aplicaciones - COMBINACIONES

Sub Combinacion()

i = 1

For b1 = 1 To 43

    For b2 = b1 + 1 To 44

        For b3 = b2 + 1 To 45

            For b4 = b3 + 1 To 46

                For b5 = b4 + 1 To 47

                    For b6 = b5 + 1 To 48

                        For b7 = b6 + 1 To 49

                        Cells(i, 1) = b1

                        Cells(i, 2) = b2

                        Cells(i, 3) = b3

                        Cells(i, 4) = b4

                        Cells(i, 5) = b5

                        Cells(i, 6) = b6

                        Cells(i, 7) = b7

                        Range("E1") = i

                        i = i + 1

                        Next

                    Next

                Next

            Next

            End Sub