Como gerar números aleatórios sem repetição no Excel. Pode usar para Loterias

Como gerar números aleatórios no Excel sem repetição, usando macro e Visual Basic. Veja o passo a passo e um exemplo do número 1 até o 60. Pode ser utilizado para mega Sena ou ser adaptado em outros jogos de loteria. Melhor que a função aleatorio ou aleatorioentre . Curso Excel


Sub GerarNúmerosAleatóriosSemRepetir()

'Suponha que os números estão no intervalo B1:G10

Const nMínimo As Long = 1
Const nMáximo As Long = 60
Const strDestino As String = "B1:G10"

Dim n As Long
Dim r As Long
Dim col As Collection

Randomize Timer

Set col = New Collection
On Error Resume Next
Do
n = Int(Rnd * nMáximo) + nMínimo
col.Add n, CStr(n)
Loop Until col.Count = nMáximo
For n = 1 To nMáximo
Range(strDestino).Cells(n) = col(n)
Next n
On Error GoTo 0

End Sub