Este método o orientará na aplicação de várias funções do Excel para gerar números de loteria. E você pode fazer o seguinte:

1. Em uma planilha em branco, digite os cabeçalhos das colunas no intervalo A1: C1 conforme a captura de tela mostrada abaixo:

2. Insira as fórmulas na Coluna A, Coluna B e Coluna C:

(1) Na célula A2, insira a fórmula = RAND ()e arraste a alça de preenchimento para o intervalo A2: A50.
(2) Na célula B2, insira a fórmula =RANK($A2,$A$2:$A$50)+COUNTIF(B$1:B1,B1)-1e arraste a alça de preenchimento para o intervalo B2: B50. (Na fórmula, A2 é o número aleatório deixado para a célula atual, $ A $ 2: $ A $ 50 são todos os números aleatórios que obtivemos com a primeira fórmula, B $ 1 é a primeira célula na coluna B e B1 é a célula acima da atual célula).
(3) No intervalo C2: C50, insira os números de sequência de 1 a 49.

Então você obterá uma tabela conforme a captura de tela à esquerda mostrada:

 

A fórmula é muito complicada para lembrar? Salve a fórmula como uma entrada de texto automático para reutilizá-la com apenas um clique no futuro! Leia mais ...     Teste Grátis

3. Encontre um intervalo em branco, digite os números de sequência horizontalmente em uma linha como mostrado abaixo na captura de tela:

4. Abaixo do primeiro número de sequência de 1, insira a fórmula = PROCV (G1, $ B $ 1: $ C $ 50,2, FALSO) nele, e arraste a alça de preenchimento para o intervalo que você precisa.

Nota: Nesta fórmula, G1 é a célula com o primeiro número de sequência de 1, $ B $ 1: $ C $ 50 são a coluna de Classificação Única e a coluna de Número da Bola, 2 significa encontrar valores na segunda coluna do Intervalo $ B $ 1: $ C $ 50 .

Em seguida, você obterá os números da loteria conforme a captura de tela abaixo:

5. É opcional. Para evitar que os números da loteria mudem automaticamente quando a planilha atual for atualizada, você pode clicar no Fórmula > Opções de Cálculo > manual.

Liste facilmente todas as combinações de várias séries de dados no Excel

Kutools para Excel's Listar todas as combinações O utilitário é projetado para generalizar todas as combinações possíveis de várias séries de dados fornecidas e listar essas combinações em uma coluna como a imagem abaixo mostrada.

Este método o orientará na aplicação de uma macro VBA para gerar números de loteria no Excel. Faça o seguinte:

1. pressione outro + F11 para abrir a janela Microsoft Visual Basic for Applications.

2. Clique inserção > Módulo para abrir uma nova janela de módulo e colar o seguinte código VBA nela:

VBA: gerador de números de loteria no Excel

Sub LotteyCode()
Dim Rng As Range
Dim WorkRng As Range
Dim xNumbers(49) As Integer
On Error Resume Next
xTitleId = "KutoolsforExcel"
Set WorkRng = Application.Selection
Set WorkRng = Application.InputBox("Out put to (single cell):", xTitleId, WorkRng.Address, Type:=8)
Set WorkRng = WorkRng.Range("A1")
For xIndex = 1 To 49
xNumbers(xIndex) = xIndex
Next
For xIndex = 1 To 6
xNum = 1 + Application.Round(Rnd * (49 - xIndex), 0)
WorkRng.Offset(0, xIndex - 1).Value = xNumbers(xNum)
xNumbers(xNum) = xNumbers(50 - xIndex)
Next
End Sub

3. aperte o F5 ou clique no Opere botão para executar esta macro VBA.

4. Agora, na caixa de diálogo que aparece, especifique uma célula para a saída dos números da loteria e clique no botão OK botão.

Em seguida, você verá que 6 números de loteria exclusivos são gerados e exibidos nas células especificadas.

Se você tiver o Kutools para Excel instalado, é Inserir dados aleatórios utilitário pode ajudá-lo a gerar números de loteria no Excel de uma vez.

1. Selecione 6 células adjacentes, como A1: F1, e clique no Kutools > inserção > Inserir dados aleatórios.

2. Agora a caixa de diálogo Inserir dados aleatórios é exibida. Vou ao Número inteiro guia, tipo 1 in De caixa, tipo 49 in Para caixa, marque a Valores únicos opção, e clique no botão OK botão. Agora você verá 6 números de loteria exclusivos sendo gerados e exibidos nas células selecionadas imediatamente.

Selecione células aleatoriamente com base em critérios no Excel

Adicionar aleatoriamente cor de fundo / preenchimento para células no Excel