Mescoliamo le righe

Mescoleremo a caso con un macro le righe con i dati.

Aprite il file di Excel dove avete i dati.

Cliccate Alt+F11 per aprire il VBA. Ora cliccate Insert e scegliete Module.

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

Adesso ritornate in Excel e selezionate tutte le righe.

Aprite di nuovo il VBA e cliccate la freccia verde in alto.

Le righe ora sono mescolate a caso :)