Excel sortea automáticamente sin repetir.

=Rand()

Rellene el menú desplegable en la celda S30

Luego ingrese la fórmula F22 :

=MATCH(SMALL($S$1:$S$30, COLUMN(A1)), $S$1:$S$30,)

Tire hacia la derecha para repostar.