JPedro,
A função que você enviou, faz apenas um sorteio entre os números
Exemplo: Tenho estes números (01-03-15-18-22-25-32-45-55-57-59) e quero que o Excel selecione apenas 6 destes números aleatoriamente.
teosbourne,
Veja se isso te ajuda
o código, faz um sorteio entre os números, retorna 6 números aleatórios sem repetição
Sub sort_nums()
Dim arr() As String, y, a
nums = "01,03,15,18,22,25,32,45,55,57,59"
arr = Split(nums, ",")
a = ""
For i = 1 To 6
start:
y = arr(WorksheetFunction.RandBetween(1, UBound(arr)))
If InStr(1, a, y) > 0 Then
GoTo start
Else
a = a + " " + y
End If
Next i
MsgBox a
End Sub
Se essa resposta te ajudou e resolveu o seu problema, clique no "joinha" ao lado de citar, e não esqueça de colocar o tópico como resolvido, clicando no ✓
Postado : 10/04/2017 8:36 pm