Lotería rodante Vba

= LARGE(IF(COUNTIF(c $1:c 1,ROW($1:$30)))=0,ROW($1:$30),RANDBETWEEN(1 , 31-ROW(a1)))

Fórmula matricial, CTRL+MAYÚS+ Intro, menú desplegable;