Macro para gerar todas combinações LF e DDS Excel

[San]

Deixando uma contribuição para quem interessar.

Gera todas combinações da LF e alterando os parâmetros descritos dentro da rotina gera todas as combinações da DDS.

Todas combinações serão geradas na mesma planilha.

Condição que seu excel já seja o 2010 ou superior com 1.048.576.

Aqui demorou uns 10 minutos para gerar todas as combinações...então paciência.

A rotina não é minha, apenas adaptei para atender aos meus estudos.

Spoiler

Option Explicit
Const lPermutações As Long = 15 ' para o DIA DE SORTE altere de 15 para 7

Dim r As Long
Dim col As Long

Dim v(1 To 25) ' para o DIA DA SORTE altere de 25 para 31

 

Sub Teste()
    Dim lElementos As Long
    Dim l As Long
    
    For l = 1 To UBound(v)
        v(l) = l
    Next l
    
    lElementos = UBound(v) - LBound(v) + 1
    
    r = 0
    col = 1
    Cells.Delete
    
    Combinação lElementos, lPermutações, 1
End Sub

 

Sub Combinação(n As Long, p As Long, k As Long, Optional s As String)
    If p > n - k + 1 Then Exit Sub
    If p = 0 Then
        
        r = r + 1
        If r = 1000000 Then
            r = 1
            col = col + 17 ' para o DIA DA SORTE altere de 17 para 9
        End If
        Cells(r, col).Resize(1, lPermutações) = Split(s, "|")
        Exit Sub
    End If
    
    Combinação n, p - 1, k + 1, s & v(k) & "|"
    
    Combinação n, p, k + 1, s
    
    DoEvents
End Sub

 

 

Bons estudos