5 valores aleatorios entre 1 y 21 no repetidos

hola, Seveson !

... como obtener 5 valores aleatorios entre 1 y 21 no repetidos... no consigo que sean diferentes
... no me salen nunca iguales al calcular pueden salir y eso seria un problema... como se os ocurre

-> [supongo que] para una mayor 'seguridad' de que no obtendras algun 'repetido'...
necesitaras el apoyo de algun codigo/macro que se encargue de ello -?-

suponiendo que necesitas 'depositar' 5 numeros 'aleatorios' entre 1 y 21 en el rango 'A1:A5' de la hoja1...
preuba con las siguientes lineas...
en un modulo de codigo 'normal' ==Sub CincoDeVeintiuno(): Application.ScreenUpdating = False
Dim Sig As Byte, Unicos As New Collection, Unico As Variant
Do: On Error Resume Next
Unico = Int((Rnd * 21) + 1)
Unicos.Add Unico, CStr(Unico)
Loop Until Unicos.Count = 5
With Worksheets("hoja1").Range("a1:a5")
For Sig = 1 To 5: .Cells(Sig) = Unicos(Sig): Next
End With
End Sub

claro que... cada vez que necesites 'actualizar' los 5 aleatorios... sera necesario ejecutar la macro :-(
[aunque... no comentas que tan 'automatico' lo necesitas] :))

saludos,
hector.