dovrei velocizzare questa macro se è possibile
- Codice: Seleziona tutto
Sub Cinquina()
Dim I As Integer: Dim J As Integer: Dim K As Integer: Dim L As Integer: Dim M As Integer
For I = 1 To 86
For J = 1 + I To 87
For K = 1 + J To 88
For L = 1 + K To 89
For M = 1 + L To 90
Range("A2") = I
Range("B2") = J
Range("C2") = K
Range("D2") = L
Range("E2") = M
Next M
Next L
Next K
Next J
Next I
End Sub