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 .