Combinaciones de números en varias columnas
hola expertos, tengo este código para hacer la combinación de 45 números de 5 números cada combinación sin que se repitan pero me arroja muchísimas combinaciones y las filas de excel no son suficientes, lo que quiero es que me organice en varias columnas las combinaciones; puede ser por cada columna 1000 combinaciones. Tener en cuenta que cada numero lo escribo en una columna. Es decir que la combinación 1001 iría en la celda f1.
muchas gracias este es el código.
Sub Combinación()
i = 1
For b1 = 1 To 41
For b2 = b1 + 1 To 42
For b3 = b2 + 1 To 43
For b4 = b3 + 1 To 44
For b5 = b4 + 1 To 45
Cells(i, 1) = b1
Cells(i, 2) = b2
Cells(i, 3) = b3
Cells(i, 4) = b4
Cells(i, 5) = b5
Next
Next
Next
Next
Next
End Sub
1 respuesta
Prueba asi:
Sub Combinación()
Dim i As Long
Dim b1 As Integer
Dim b2 As Integer
Dim b3 As Integer
Dim b4 As Integer
Dim b5 As Integer
Dim f As Long
'4c7569735f50
i = 1
f = 1
For b1 = 1 To 41
For b2 = b1 + 1 To 42
For b3 = b2 + 1 To 43
For b4 = b3 + 1 To 44
For b5 = b4 + 1 To 45
Cells(i, f) = b1
Cells(i, (f + 1)) = b2
Cells(i, (f + 2)) = b3
Cells(i, (f + 3)) = b4
Cells(i, (f + 4)) = b5
i = i + 1
DoEvents
If i = 65535 Then i = 1: f = (f + 5)
Next
Next
Next
Next
Next
End Sub
