DISTRIBCUCI0N ALEATORIA

Te transcrivo esta rutina cuya autoria es de Fernando
Arroyo y hace lo que tu pides... estudiala y ajustala a
tus necesidades:

Sub Aleatorio1_10()
Dim v As Byte, s As String, m As Variant
'Crear la matriz con los 10 números
Do
v = Int((10 - 1 + 1) * Rnd + 1)
If InStr(s, Right("0" & v, 2)) = 0 Then
s = s & IIf(Len(s) = 0, "", ",") & Right("0" & v, 2)
End If
m = Split(s, ",")
If UBound(m) = 9 Then Exit Do
Loop

'Volcar matriz a hoja
For v = 1 To 10
Worksheets("Hoja1").Range("G" & v + 5) = m(v - 1)
Next v

'Ordenar rango A1:A6
Worksheets("Hoja1").[E6:G15].Sort _
Key1:=Range("G6"), _
Order1:=xlAscending, _
Header:=xlGuess, _
OrderCustom:=1, _
MatchCase:=False, _
Orientation:=xlTopToBottom, _
DataOption1:=xlSortNormal
End Sub


Saludos
Servando Villalon

Hola, me gustaria saber si en excel se puede hacer un

distribucion aleatoria sin repeticion de los elementos.
Lo he intentado con los formatos condicionales, no igual
a un rango de celdas, pero no funciona. lo que intentaria
mas o menos seria en cada celda de forma aleatoria un
numero, entre 1 y 10, en la siguiente tambien entre 1 y
10 pero evitando el anterior, la siguiente evitando los
dos anteriores etc, pero no lo consigo. Gracias

.