Wie erstellt man Glücksspielnamen in Excel?

In Ihrer täglichen Arbeit müssen Sie manchmal zufällig einige Mitarbeiter aus einer langen Namensliste als glückliche Namen auswählen. In Excel, wie könnten Sie zufällig einige Namen für die Durchführung eines Glücksspiels auswählen? In diesem Artikel werde ich über einige nützliche Methoden sprechen, um diese Aufgabe in Excel zu bewältigen.

Zufällige Namen für das Glücksspiel mit Formel extrahieren

Zufällige Namen für das Glücksspiel mit Kutools für Excel auswählen

Zufällige Namen für das Glücksspiel mit VBA-Code extrahieren

Zufällige Namen für das Glücksspiel mit Formel extrahieren

Zum Beispiel möchte ich 3 Namen aus der Namensliste extrahieren, die folgende lange Formel kann Ihnen helfen, bitte tun Sie dies:

Geben Sie diese Formel in eine leere Zelle ein, wo Sie das Ergebnis platzieren möchten: =IF(ROWS(C$2:C2)>B$2,"",INDEX(A$2:A$16,AGGREGATE(15,6,((ROW(A$2:A$16)-ROW(A$2)+1)/ISNA(MATCH(A$2:A$16,C$1:C1,0))),RANDBETWEEN(1,ROWS(A$2:A$16)-COUNTA(C$1:C1)+1)))) , und ziehen Sie dann den Ausfüllknauf nach unten in die Zellen, die Sie benötigen, siehe Screenshot:

Hinweise:

1. In der obigen Formel: A2:A16 ist die Namensliste, aus der Sie zufällig extrahieren möchten, B2 ist die erforderliche Anzahl von Namen, die Sie extrahieren möchten, C2 ist die Zelle, in die Sie die Formel eingeben, und C1 ist die Zelle oberhalb der Formelzelle.

2. Sie können die Taste F9 drücken, um eine andere Gruppe neuer Namen zufällig zu erhalten.

Zufällige Namen für das Glücksspiel mit Kutools für Excel auswählen

Vielleicht sind die beiden oben genannten Methoden für die meisten von uns schwierig, hier, wenn Sie Kutools für Excel haben, mit seiner Funktion Sort Range Randomly, können Sie schnell Namen zufällig auswählen.

Nach der Installation von Kutools für Excel, bitte tun Sie dies:

1. Wählen Sie die Namensliste aus, die Sie zufällig auswählen möchten. Klicken Sie dann auf Kutools > Bereich > Sortieren / Auswahlbereich zufällig, siehe Screenshot:

2. Im Dialogfeld Sortieren/Auswahlbereich zufällig, unter dem Register Auswählen, geben Sie die Anzahl der Namen, die Sie auswählen möchten, in das Textfeld Anzahl der auszuwählenden Zellen ein, und wählen Sie dann Zufällige Zellen auswählen im Abschnitt Auswahltyp, siehe Screenshot:

3. Klicken Sie dann auf die Schaltfläche OK, und Ihre spezifische Anzahl von Namen wurde wie gewünscht ausgewählt, siehe Screenshot:

Klicken Sie hier, um Kutools für Excel herunterzuladen und jetzt kostenlos zu testen!

Zufällige Namen für das Glücksspiel mit VBA-Code extrahieren

Hier kann Ihnen auch ein VBA-Code bei dieser Aufgabe helfen, bitte tun Sie dies:

1. Halten Sie die Tasten Alt + F11 gedrückt, um das Fenster Microsoft Visual Basic for Applications zu öffnen.

2. Klicken Sie auf Einfügen > Modul, und fügen Sie den folgenden Code im Modulfenster ein.

VBA-Code: Zufällige Namen aus einer Liste extrahieren:

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

Hinweis: Im obigen Code ist B2 die Zelle, die die Anzahl der Namen enthält, die Sie extrahieren möchten.

3. Nachdem Sie den Code eingefügt haben, klicken Sie dann auf Extras > Verweise im geöffneten Fenster Microsoft Visual Basic for Applications, und dann, im aufgepoppten Dialogfeld Verweise – VBAProject, aktivieren Sie die Option Microsoft Scripting Runtime in der Liste der verfügbaren Verweise, siehe Screenshot:

4. Und dann klicken Sie auf die Schaltfläche OK, um das Dialogfeld zu schließen, dann drücken Sie die Taste F5, um diesen Code auszuführen, und ein Hinweisfenster poppt auf, um Sie daran zu erinnern, die Datenliste auszuwählen, aus der Sie Namen extrahieren möchten, siehe Screenshot:

5. Klicken Sie auf OK, und ein weiteres Hinweisfenster poppt auf, bitte wählen Sie eine Zelle aus, in der Sie das Ergebnis platzieren möchten, siehe Screenshot:

6. Dann klicken Sie auf OK, und die gewünschte Anzahl von Namen wurde sofort zufällig erstellt, siehe Screenshot: