Această metodă vă va ajuta să aplicați mai multe funcții Excel pentru a genera numere de loterie. Și puteți face după cum urmează:

1. Într-o foaie de lucru goală, tastați antetele de coloană în Gama A1: C1, așa cum este prezentat mai jos:

2. Introduceți formule în Coloana A, Coloana B și Coloana C:

(1) În celula A2, introduceți formula = RAND (), apoi trageți mânerul de umplere în intervalul A2: A50.
(2) În celula B2, introduceți formula =RANK($A2,$A$2:$A$50)+COUNTIF(B$1:B1,B1)-1, apoi trageți mânerul de umplere în intervalul B2: B50. (În formulă, A2 este numărul aleator lăsat la celula curentă, $ A $ 2: $ A $ 50 sunt toate numerele aleatoare pe care le-am obținut cu prima formulă, B $ 1 este prima celulă din coloana B și B1 este celula de deasupra curentului celulă).
(3) În intervalul C2: C50, introduceți numerele de ordine de la 1 la 49.

Apoi veți obține un tabel așa cum este afișat ecranul din stânga:

 

Formula este prea complicată pentru a ne aminti? Salvați formula ca intrare Text automat pentru reutilizare cu un singur clic în viitor! Citeste mai mult…     Încercare gratuită

3. Găsiți un interval necompletat, tastați numerele de secvență orizontal într-un rând, după cum se arată în imaginea de mai jos:

4. Sub primul număr de secvență 1, introduceți formula = VLOOKUP (G1, $ B $ 1: $ C $ 50,2, FALS) în el și trageți mânerul de umplere în intervalul de care aveți nevoie.

notițe: În această formulă, G1 este celula cu primul număr de secvență de 1, $ B $ 1: $ C $ 50 sunt coloana Rang unic și coloana Număr minge, 2 înseamnă că găsiți valori în a doua coloană a intervalului $ B $ 1: $ C $ 50 .

Apoi, veți obține numerele de la loterie, așa cum este prezentat mai jos:

5. Este opțional. Pentru a preveni modificarea automată a numerelor de loterie la actualizarea foii de lucru curente, puteți face clic pe Formulă > Opțiuni de calcul > Manual.

Enumerați cu ușurință toate combinațiile de mai multe serii de date în Excel

Kutools pentru Excel Enumerați toate combinațiile utilitarul este conceput să generalizeze toate combinațiile posibile din mai multe serii date de date și să enumere aceste combinații într-o coloană așa cum este prezentat mai jos.

Această metodă vă va ghida să aplicați o macrocomandă VBA pentru a genera numere de loterie în Excel. Vă rugăm să faceți următoarele:

1. presa Alt + F11 tastele pentru a deschide fereastra Microsoft Visual Basic pentru aplicații.

2. Clic Insera > Module pentru a deschide o nouă fereastră de modul și lipiți următorul cod VBA în ea:

VBA: Generator de numere de loterie în 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. apasă pe F5 tasta sau faceți clic pe Alerga pentru a rula această macrocomandă VBA.

4. Acum, în caseta de dialog pop-up, specificați o celulă pentru a afișa numerele de loterie și faceți clic pe OK butonul.

Apoi, veți vedea că 6 numere de loterie unice sunt generate și afișate în celulele specificate.

Dacă aveți instalat Kutools pentru Excel, este Introduceți date aleatorii utilitarul vă poate ajuta să generați numere de loterie în Excel simultan.

1. Selectați 6 celule adiacente, cum ar fi A1: F1, apoi faceți clic pe Kutools > Insera > Introduceți date aleatorii.

2. Acum apare caseta de dialog Inserare date aleatorii. Du-te la Întreg filă, tastați 1 in De la caseta, tip 49 in La , bifați caseta Valori unice și faceți clic pe OK buton. Acum veți vedea că 6 numere de loterie unice sunt generate și afișate imediat în celulele selectate.

Selectați aleatoriu celule pe baza criteriilor din Excel

Adăugați aleatoriu fundal / culoare de umplere pentru celule în Excel