Come generare numeri per la lotteria in Excel?
Avete mai pensato di generare numeri della lotteria in Excel o di creare da soli un generatore di numeri della lotteria in Excel? In questo articolo vi presentiamo tre metodi semplici e immediati per farlo.
- Generare numeri della lotteria con funzioni Excel(5 passaggi)
- Generare numeri della lotteria con Kutools per Excel(2 passaggi)
- Generare numeri della lotteria con macro VBA
Generare numeri della lotteria con funzioni Excel
Questo metodo illustra come utilizzare diverse funzioni di Excel per generare numeri della lotteria. Procedi nel seguente modo:
1. In un foglio di lavoro vuoto, digita le intestazioni di colonna nell'intervallo A1:C1 come mostrato nello screenshot seguente:
2. Inserisci le formule nella colonna A, nella colonna B e nella colonna C:

(1) Nella cella A2, inserisci la formula =CASUALE(), quindi trascina il quadratino di riempimento nell’intervallo A2:A50.
(2) Nella cella B2, inserisci la formula =RANGO($A2;$A$2:$A$50)+CONTA.SE(B$1:B1;B1)-1, quindi trascina il quadratino di riempimento nell’intervallo B2:B50. (Nella formula, A2 è il numero casuale a sinistra della cella corrente, $A$2:$A$50 sono tutti i numeri casuali generati con la prima formula, B$1 è la prima cella della colonna B e B1 è la cella immediatamente sopra quella corrente.)
(3) Nell’intervallo C2:C50, inserisci numeri consecutivi da 1 a 49.
Si otterrà quindi una tabella come mostrato nello screenshot a sinistra:
![]() | La formula è troppo complicata da ricordare? Salvatala come voce di Testo automatico e riutilizzala in futuro con un solo clic!Ulteriori informazioni… Prova gratuita |
3. Individua un intervallo vuoto nel foglio e digita numeri consecutivi in orizzontale su una riga, come mostrato nello screenshot seguente:
4. Sotto la prima occorrenza del Numero di Sequenza 1, inserisci la formula =CERCA.VERT(G1;$B$1:$C$50;2;FALSO), quindi trascina il quadratino di riempimento nell’intervallo desiderato.
Nota: in questa formula, G1 è la cella contenente il primo Numero di Sequenza 1, $B$1:$C$50 rappresenta l’intervallo delle colonne Rango univoco e Numero pallina, mentre 2 indica che i valori vanno cercati nella seconda colonna dell’intervallo $B$1:$C$50.
Si otterranno quindi i numeri della lotteria come mostrato nello screenshot seguente:
5. È facoltativo. Per evitare che i numeri della lotteria cambino automaticamente quando il foglio di lavoro corrente viene aggiornato, fai clic su Formule > Opzioni di calcolo > Manuale.
Generare numeri della lotteria con Kutools per Excel
Se hai Kutools per Excel installato, la sua utilità Inserisci dati casuali ti permette di generare immediatamente numeri della lotteria in Excel.
1. Seleziona 6 celle adiacenti, ad esempio da A1 a F1, quindi fai clic su Kutools > Inserisci > Inserisci dati casuali.
2. Viene visualizzata la finestra di dialogo Inserisci dati casuali. Passa alla scheda Intero, digita 1 nella casella Da, inserisci 49 nella casella A, seleziona l'opzione Valori univoci e fai clic sul pulsante OK. Verranno immediatamente generati e visualizzati nelle celle selezionate 6 numeri univoci della lotteria.
Kutools per Excel– Potenzia Excel con oltre 300 strumenti essenziali, rendendo il tuo lavoro più veloce e semplice, e sfrutta le funzionalità basate sull’IA per un’elaborazione dati più intelligente e una maggiore produttività.Scaricalo ora
Generare numeri della lotteria con macro VBA
Questo metodo illustra come utilizzare una macro VBA per generare numeri della lotteria in Excel. Procedi nel seguente modo:
1. Premere i tasti Alt+F11 per aprire la finestra Microsoft Visual Basic, Applications Edition.
2. Fare clic su Inserisci > Modulo per aprire una nuova finestra del modulo e incollare il seguente codice VBA:
VBA: Generatore di numeri della lotteria in 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. Premere il tasto F5 o fare clic sul pulsante Esegui per eseguire questa macro VBA.
4. Nella finestra di dialogo visualizzata, specifica la cella in cui visualizzare i numeri della lotteria e fai clic sul pulsante OK.
Verranno quindi generati e visualizzati nelle celle specificate sei numeri univoci della lotteria.
Demo: generare numeri della lotteria con Kutools per Excel
Articoli correlati:
Selezionare celle in modo casuale in base a criteri in Excel
Aggiungere in modo casuale lo sfondo/Colore di riempimento alle celle in Excel
Migliori Strumenti per la Produttività in Office
Potenzia le tue competenze in Excel con Kutools per Excel e sperimenta un’efficienza mai vista prima.Kutools per Excel offre oltre 300 funzionalità avanzate per aumentare la produttività e Risparmia tempo.Clicca qui per ottenere la funzionalità di cui hai più bisogno...
Office Tab Porta l'interfaccia a schede in Office e rende il tuo lavoro molto più semplice
- Abilita la modifica e la lettura a schede in Word, Excel, PowerPoint, Publisher, Access, Visio e Project.
- Apri e crea più documenti in nuove schede all’interno della stessa finestra, invece che in finestre separate.
- Aumenta la tua produttività del 50 % e risparmia centinaia di clic del mouse ogni giorno!
Tutti i componenti aggiuntivi di Kutools in un unico programma di installazione.
Kutools for Office è la suite che include componenti aggiuntivi per Excel, Word, Outlook e PowerPoint, oltre a Office Tab Pro: la soluzione ideale per i team che lavorano su diverse app di Office.
- Suite completa— componenti aggiuntivi per Excel, Word, Outlook e PowerPoint + Office Tab Pro
- Un unico programma di installazione, una sola licenza— configurazione in pochi minuti (pronto per MSI)
- Funziona meglio insieme— produttività ottimizzata tra le app di Office
- Prova gratuita di 30 giorni con tutte le funzionalità— nessuna registrazione, nessuna carta di credito
- Miglior rapporto qualità-prezzo— risparmia rispetto all’acquisto dei singoli componenti aggiuntivi
