Boa tarde Saulo

Seja bem vindo ao fórum!

Baixe a planilha e veja se é sito qeu vc precisa.

Coloquei uma macro na tua planilha, toda vez que vc clicar no botão os números mudam, sem repetidos.

Não se esqueça de habilitar as macros quando abrir a plannilha.

Dê retorno.

Se a resposta foi útil, clique na mãozinha que fica do lado da ferramenta Citar.

Um abraço.

Sem macro. Me avise.

Abs,

Mandrix excelente "saida".

Boa noite!

....veja também..

Sub GerarNumeroUnico()
Dim b() As Boolean, e As Range, k&, x&
ReDim b(1 To 15)
For Each e In Range("A2:A15")
    Do
        x = Int(Rnd() * 15) + 1
        If b(x) = False Then
            e.Value = x
            b(x) = True
            Exit Do
         End If
        k = k + 1: If k > 100 Then Exit Sub
    Loop
Next
End Sub

Galera!!!

Muito obrigado mesmo, pensei que não seria respondido tão rapidamente, mas é claro que a galera aqui está em outro nível.

Patropi e Mandrix, muito obrigado. Vou utilizar as duas planilhas.

Sem macro. Me avise.

Abs,

Sabia que eu podia utilizar a função "ordem", mas não consegui formulá-la. Obrigado.

O importante nesta solução é estabelecer um desempate.

Abs