Como executar esta macro curta:
Sub marine()
Dim i As Long, j As Long, k As Long, N As Long
N = 1
For i = 1 To 4
For j = 1 To 5
For k = 1 To 10
Cells(N, 4) = Cells(i, 1) & "-" & Cells(j, 2) & "-" & Cells(k, 3)
N = N + 1
Next k
Next j
Next i
End Sub
produzirá uma coluna das 200 combinações desejadas: