Ciao Dova2003 e benvenuto nel Forum
Se per combinazioni intendi lo sviluppo 25*25*25 = 15625
Es: nella colonna A riga 1 hai A1 fino alla riga 25 (A25)
Nella colonna B riga 1 hai B1 fino alla riga 25 (B25)
Nella colonna C riga 1 hai C1 fino alla riga 25 (C25)
E vorresti avere le combinazioni di
A1B1C1
A1B1C2
...
A1B1C25
A1B2C1
...
A1B25C1
...
A25B25C25
Che appunto sviluppano 15625 combinazioni puoi usare la macro che inserirò qui sotto
Ma se vorresti avere anche lo scambio dei valori tra la colonna A, la B e la C
Le combinazioni si moltiplicano
A1C1B1
...
B1A1C1
...
B1C1A1
...
C1A1B1
...
C1B1A1
Per un totale di 93.750 combinazioni si dovrà modificare la macro
- Codice: Seleziona tutto
Sub Cambinaz()
UR = Range("A" & Rows.Count).End(xlUp).Row
URE = Range("A" & Rows.Count).End(xlUp).Row
Range("E1:E" & URE).ClearContents
For RRA = 1 To UR
AV = Range("A" & RRA).Value
For RRB = 1 To UR
BV = Range("B" & RRB).Value
For RRC = 1 To UR
CV = Range("C" & RRC).Value
Cells(Rows.Count, 5).End(xlUp).Offset(1, 0).Value = AV & BV & CV
Next RRC
Next RRB
Next RRA
End Sub
Ciao
P.s. La macro preleva i dati nel range A1:A25, B1:B25, C1:C25 e scriverà la combinazione risultante nella colonna "E"