Cette méthode vous guidera à travers l'application de plusieurs fonctions Excel pour générer des numéros de loterie. Et vous pouvez faire comme suit:

1. Dans une feuille de calcul vierge, tapez les en-têtes de colonne dans la plage A1: C1 comme ci-dessous la capture d'écran illustrée:

2. Entrez les formules dans la colonne A, la colonne B et la colonne C:

(1) Dans la cellule A2, entrez la formule = RAND (), puis faites glisser la poignée de remplissage vers la plage A2: A50.
(2) Dans la cellule B2, entrez la formule =RANK($A2,$A$2:$A$50)+COUNTIF(B$1:B1,B1)-1, puis faites glisser la poignée de remplissage vers la plage B2: B50. (Dans la formule, A2 est le nombre aléatoire laissé à la cellule actuelle, $ A $ 2: $ A $ 50 sont tous des nombres aléatoires que nous avons obtenus avec la première formule, B $ 1 est la première cellule de la colonne B et B1 est la cellule au-dessus du courant cellule).
(3) Dans la plage C2: C50, entrez les numéros de séquence de 1 à 49.

Ensuite, vous obtiendrez un tableau comme capture d'écran de gauche:

 

La formule est trop compliquée à retenir? Enregistrez la formule en tant qu'entrée de texte automatique pour la réutiliser en un seul clic à l'avenir! Lire la suite ...     Essai gratuit

3. Trouvez une plage vide, tapez les numéros de séquence horizontalement dans une ligne comme ci-dessous la capture d'écran illustrée:

4. Sous le premier numéro de séquence de 1, entrez la formule = RECHERCHEV (G1, $ B $ 1: $ C $ 50,2, FALSE) dedans, et faites glisser la poignée de remplissage vers la plage dont vous avez besoin.

Notes: Dans cette formule, G1 est la cellule avec le premier numéro de séquence de 1, $ B $ 1: $ C $ 50 sont la colonne Unique Rank et la colonne Ball Number, 2 signifie trouver des valeurs dans la deuxième colonne de Range $ B $ 1: $ C $ 50 .

Ensuite, vous obtiendrez les numéros de loterie comme ci-dessous la capture d'écran montrée:

5. C'est facultatif. Pour éviter que les numéros de loterie ne changent automatiquement lors de l'actualisation de la feuille de calcul actuelle, vous pouvez cliquer sur le bouton Laits en poudre > Options de calcul > Manuel.

Répertoriez facilement toutes les combinaisons de plusieurs séries de données dans Excel

Kutools pour Excel Lister toutes les combinaisons L'utilitaire est conçu pour généraliser toutes les combinaisons possibles à partir de plusieurs séries de données données, et lister ces combinaisons dans une colonne comme illustré ci-dessous.

Cette méthode vous guidera pour appliquer une macro VBA pour générer des numéros de loterie dans Excel. Veuillez procéder comme suit:

1. presse autre + F11 touches pour ouvrir la fenêtre Microsoft Visual Basic pour Applications.

2Cliquez sur insérer > Module pour ouvrir une nouvelle fenêtre de module et collez-y le code VBA suivant:

VBA: générateur de numéros de loterie dans 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. appuie sur le F5 ou cliquez sur la cours bouton pour exécuter cette macro VBA.

4. Maintenant, dans la boîte de dialogue contextuelle, spécifiez une cellule pour afficher les numéros de loterie, puis cliquez sur le bouton OK .

Ensuite, vous verrez 6 numéros de loterie uniques sont générés et affichés dans les cellules spécifiées.

Si Kutools for Excel est installé, son Insérer des données aléatoires L'utilitaire peut vous aider à générer des numéros de loterie dans Excel à la fois.

1. Sélectionnez 6 cellules adjacentes, telles que A1: F1, puis cliquez sur le bouton Kutools > insérer > Insérer des données aléatoires.

2. La boîte de dialogue Insérer des données aléatoires apparaît maintenant. Aller au Entier onglet, tapez 1 in Du boîte, type 49 in À case, cochez la case Des valeurs uniques option, et cliquez sur le OK bouton. Maintenant, vous verrez 6 numéros de loterie uniques sont générés et affichés immédiatement dans les cellules sélectionnées.

Sélectionnez au hasard des cellules en fonction de critères dans Excel

Ajouter au hasard la couleur d'arrière-plan / de remplissage pour les cellules dans Excel