1.
|
|
|
Aprite il file di Excel dove avete i dati.
|
|
| |
2.
|
|
|
Cliccate Alt+F11 per aprire il VBA. Ora cliccate Insert e scegliete Module.
|
|
| |
3.
|
|
|
Incollate il seguente codice:
Sub MescolaRighe()
Dim i, first, last, count, rnd, r1, r2
first = Selection.Row
last = Selection.Rows.count + Selection.Row - 1
count = Selection.Rows.count
For i = first To last
Randomize
rnd = Math.Round(Math.rnd * (count - 1), 0) + 1
r1 = Range(i & ":" & i)
r2 = Range(rnd & ":" & rnd)
Range(rnd & ":" & rnd) = r1
Range(i & ":" & i) = r2
Next
End Sub
|
|
| |
4.
|
|
|
Adesso ritornate in Excel e selezionate tutte le righe.
|
|
| |
5.
|
|
|
Aprite di nuovo il VBA e cliccate la freccia verde in alto.
|
|
| |
6.
|
|
|
Le righe ora sono mescolate a caso :)
|
|
|
