Excel - Combinación de números

Option Explicit

Option Base 1

'//By JuanC - Oct. 2007

'//Combinar los números del 1 al 64 de cuatro en cuatro

'//y sin repeticiones. (16 grupos de 4 nº c/u)

Private Const cMAX = 16

Sub Shuffle()

Dim i%, j%, sLetter$

Dim col() As New Collection

Dim n As New Collection

On Error Resume Next

[A1:P4].Clear

For i = 1 To 64

    n.Add i

Next

ReDim col(cMAX) As New Collection

j = 1

Randomize

Do While (1)

    i = Int((n.Count * Rnd) + 1)

    Err.Clear

    col(j).Add n.Item(i), CStr(n.Item(i))

    If Err.Number <> 457 Then n.Remove (i)

    If col(j).Count = 4 Then j = j + 1

    If j > cMAX Then Exit Do

Loop

For j = 1 To cMAX

    For i = 1 To 4

        [A1].Offset(i - 1, j - 1) = col(j).Item(i)

    Next

    sLetter = Chr(64 + j)

    Range(sLetter & "1:" & sLetter & "4").Sort Key1:=Range(sLetter & "1"), Order1:=xlAscending

Next

Erase col

End Sub

Sub Combinacion()

i = 1

For b1 = 1 To 61

    For b2 = b1 + 1 To 62

        For b3 = b2 + 1 To 63

            For b4 = b3 + 1 To 64

            Cells(i, 1) = b1

            Cells(i, 2) = b2

            Cells(i, 3) = b3

            Cells(i, 4) = b4

            Range("E1") = i

            i = i + 1

            Next

        Next

    Next

Next

End Sub

Sub Combinacion()

i = 1

nGrupo = 0

For b1 = 1 To 61

    For b2 = b1 + 1 To 62

        For b3 = b2 + 1 To 63

            For b4 = b3 + 1 To 64

                Cells(i + 2, 1 + nGrupo) = b1 & "-" & b2 & "-" & b3 & "-" & b4

                Range("A1") = i

                'Aqui le decimos cuando llega a 10000 combinaciones se genera otro grupo al lado.

                If i = 10000 Then

                nGrupo = nGrupo + 1

                i = 1

                Else

                i = i + 1

                End If

            Next

        Next

    Next

Next

End Sub

Sub Combinacion()

i = 1

nGrupo = 0

For b1 = 1 To 40

    For b2 = b1 + 1 To 41

        For b3 = b2 + 1 To 42

            For b4 = b3 + 1 To 43

                For b5 = b4 + 1 To 44

                    For b6 = b5 + 1 To 45

                        Cells(i + 2, 1 + nGrupo) = b1 & "-" & b2 & "-" & b3 & "-" & b4 & "-" & b5 & "-" & b6

                        Range("A1") = i

                        'Aqui le decimos cuando llega a 10000 combinaciones se genera otro grupo al lado.

                        If i = 10000 Then

                        nGrupo = nGrupo + 1

                        i = 1

                        Else

                        i = i + 1

                        End If

                    Next

                Next

            Next

        Next

    Next

Next

End Sub