Numeros del 1 al 36

hola, Antonio !

Como hago para que se formen cinco grupos de forma aleatoria y que no se repitan EJ:
a.- 1-2-3-4-5
b.- 7-8-9-10-11
c.- 13-14-15-16-17
d.- 18-19-20-21-22
e.- 6-23-12-24-25

[supongo que] para una mayor 'seguridad' de que no obtendras algun 'repetido'...
-> necesitaras el apoyo de algun codigo/macro que se encargue de ello
[p.e.] para el rango 'A1:E5' de la hoja activa...

Sub VeinticincoDeTreintayseis()
Application.ScreenUpdating = False
Dim Unicos As New Collection, Unico, _
Fila As Byte, Col As Byte, Sig As Byte
Do: On Error Resume Next
Unico = Int((Rnd * 36) + 1)
Unicos.Add Unico, CStr(Unico)
Loop Until Unicos.Count = 25
For Col = 1 To 5
For Fila = 1 To 5
Sig = Sig + 1
Cells(Fila, Col) = Unicos(Sig)
Next
Next
End Sub

saludos,
hector.