Como gerar todas as possibilidades de combinação para um conjunto de valores ou intervalo?

0

Referência à pergunta e resposta abaixo, como gerar toda a combinação possível de 3 dígitos dos números 0-6

Eu tenho um caso similar (preciso gerar todas as combinações possíveis), mas para um conjunto de valores como na tabela abaixo, as possibilidades totais serão 16807 combinações

A   B   C   D   E
54  23  43  1   1
21  45  433 5   51
25  65  456 3   3
65  66  5678    100 5
12  77  980 5   6
13  90  878 6   66
111 909 662 50  55

As combinações serão semelhantes a

A   B   C   D   E
54  23  43  1   1
54  23  43  1   51
54  23  43  1   3
54  23  43  1   5
54  23  43  1   6
54  23  43  1   66
54  23  43  1   55
54  23  43  5   1
54  23  43  5   51
54  23  43  5   3
54  23  43  5   5
54  23  43  5   6
54  23  43  5   66
54  23  43  5   55

…               
…               
111 909 662 50  55

Manualmente, levará uma eternidade e francamente falando, não sou especialista em Excel. Por favor me ajude.

    
por lost with MS excel 20.08.2015 / 16:30

1 resposta

0

Como executar esta macro curta:

Sub Combin()
    Dim i As Long, j As Long, k As Long, l As Long
    Dim nRow As Long
    nRow = 1
    With Sheets("Sheet1")
    For i = 1 To 7
      ii = .Cells(i, "A").Value
      For j = 1 To 7
        jj = .Cells(j, "B").Value
        For k = 1 To 7
          kk = .Cells(k, "C").Value
          For l = 1 To 7
            ll = .Cells(l, "D").Value
            Sheets("Sheet2").Cells(nRow, "A").Value = ii
            Sheets("Sheet2").Cells(nRow, "B").Value = jj
            Sheets("Sheet2").Cells(nRow, "C").Value = kk
            Sheets("Sheet2").Cells(nRow, "D").Value = ll
            nRow = nRow + 1
          Next l
        Next k
      Next j
    Next i
    End With
End Sub

irá recolher dados em Folha1 , como:

eproduzirdadoscomo:

em Folha2 para todas as combinações 2401 .

    
por 20.08.2015 / 17:46