Come creare un'estrazione a sorte dei nomi in Excel?

Nel tuo lavoro quotidiano, a volte devi selezionare casualmente alcuni dipendenti da un lungo elenco di nomi come vincitori. In Excel, come potresti selezionare casualmente alcuni nomi per creare un'estrazione a sorte? In questo articolo, parlerò di alcuni metodi utili per svolgere questa operazione in Excel.

Estrarre nomi casuali per creare un'estrazione a sorte con una formula

Selezionare nomi casuali per creare un'estrazione a sorte con Kutools per Excel

Estrarre nomi casuali per creare un'estrazione a sorte con il codice VBA

Estrarre nomi casuali per creare un'estrazione a sorte con una formula

Ad esempio, voglio estrarre 3 nomi qualsiasi dall'elenco dei nomi; la seguente formula complessa può aiutarti, procedi come segue:

Inserisci questa formula in una cella vuota dove desideri inserire il risultato: =SE(RIGHE(C$2:C2)>B$2;"";INDICE(A$2:A$16;AGGREGA(15;6;((RIF.RIGA(A$2:A$16)-RIF.RIGA(A$2)+1)/NON.ERRORE(CONFRONTA(A$2:A$16;C$1:C1;0)));CASUALE.TRA(1;RIGHE(A$2:A$16)-CONTA.VALORI(C$1:C1)+1)))) , quindi trascina il quadratino di riempimento verso il basso fino alle celle necessarie, vedi screenshot:

Note:

1. Nella formula sopra: A2:A16 è l'elenco dei nomi da cui vuoi estrarre casualmente, B2 è il numero richiesto di nomi che vuoi estrarre, C2 è la cella in cui inserire la formula, e C1 è la cella sopra la cella della formula.

2. Puoi premere il tasto F9 per ottenere un altro gruppo di nuovi nomi casualmente.

Seleziona nomi casuali per creare un'estrazione a sorte con Kutools per Excel

Forse i due metodi precedenti sono difficili per la maggior parte di noi; qui, se hai Kutools per Excel, con la sua funzione Riordina casualmente, puoi selezionare rapidamente nomi in modo casuale.

Dopo aver installato Kutools per Excel, procedi come segue:

1. Seleziona l'elenco dei nomi che vuoi selezionare casualmente. Quindi fai clic su Kutools > Intervallo > Riordina, Seleziona o Mescola, vedi screenshot:

2. Nella finestra di dialogo Riordina, Seleziona o Mescola, sotto la scheda Seleziona, inserisci il numero di nomi che vuoi selezionare nella casella di testo Numero di celle da selezionare, e poi scegli Seleziona celle casuali nella sezione Tipo di selezione, vedi screenshot:

3. Quindi fai clic sul pulsante OK, e il numero specifico di nomi sarà selezionato come richiesto, vedi screenshot:

Clicca per scaricare Kutools per Excel e prova gratis ora!

Estrai nomi casuali per creare un'estrazione a sorte con il codice VBA

Qui, un codice VBA può anche aiutarti a completare questa attività, procedi come segue:

1. Tieni premuti i tasti Alt + F11 per aprire la finestra Microsoft Visual Basic per Applicazioni.

2. Fai clic su Inserisci > Modulo, e incolla il seguente codice nella Finestra del Modulo.

Codice VBA: Estrai nomi casuali da un elenco:

Public Sub LuckyDraw()
    Dim I, J, xRnd As Long
    Dim xSRg, xDRg As Range
    Dim xDic As New Dictionary
    Dim xnum, xLastRow As Long
    On Error Resume Next
    Set xSRg = Application.InputBox("Please select the data list:", "KuTools for Excel", Selection.Address, , , , , 8)
    If xSRg Is Nothing Then Exit Sub
    Set xDRg = Application.InputBox("Please selecta cell to put the result:", "KuTools for Excel", , , , , , 8)
    If xDRg Is Nothing Then Exit Sub
    xLastRow = xSRg.Rows.Count
    Set xSRg = xSRg(1)
    Set xDRg = xDRg(1)
    xnum = Range("B2")
    If xnum < 1 Then Exit Sub
    J = 0
    For I = 1 To xnum
LabExit:
        xRnd = Int(Rnd() * xLastRow)
        If xDic.Exists(xRnd) Then GoTo LabExit
        xDic.Add xRnd, ""
        xDRg.Offset(J, 0).Value = xSRg.Offset(xRnd, 0).Value
        J = J + 1
    Next
End Sub

Nota: Nel codice sopra, B2 è la cella che contiene il numero di nomi che vuoi estrarre.

3. Dopo aver inserito il codice, fai clic su Strumenti > Riferimenti nella finestra Microsoft Visual Basic per Applicazioni aperta, e poi, nella finestra di dialogo Riferimenti – VBAProject visualizzata, seleziona l'opzione Microsoft Scripting Runtime nell'elenco dei Riferimenti disponibili, vedi screenshot:

4. E poi fai clic sul pulsante OK per uscire dalla finestra di dialogo, quindi premi il tasto F5 per eseguire questo codice, e verrà visualizzata una finestra di avviso per ricordarti di selezionare l'elenco di dati da cui vuoi estrarre i nomi, vedi screenshot:

5. Fai clic sul pulsante OK, e verrà visualizzata un'altra finestra di avviso, seleziona una cella dove vuoi inserire il risultato, vedi screenshot:

6. Quindi fai clic su OK, e il numero desiderato di nomi verrà creato casualmente immediatamente, vedi screenshot: