Die Durchführung einer zufälligen Sortierung ist eine schnelle und einfache Methode, um sicherzustellen, dass am Ende alle Fälle mit gleicher Wahrscheinlichkeit auftauchen. In diesem Tutorial werden wir darüber sprechen, wie Sie eine Liste in Excel in wenigen Schritten einfach randomisieren oder mischen können.
In diesem Abschnitt werde ich Ihnen beibringen, wie Sie eine Liste mit integrierten Excel-Funktionen mischen.
Benutzer jeder Excel-Version können ihren ursprünglichen Datensatz mithilfe von zufällig sortieren RAND Funktion mit Hilfe von Sortieren Funktion, führen Sie bitte die folgenden Schritte aus.
Schritt 1: Geben Sie die RAND-Formel ein
Wählen Sie die Zelle neben der obersten Zelle der Liste aus, die Sie randomisieren möchten, geben Sie die folgende RAND-Formel ein und drücken Sie Weiter.
=RAND()
Schritt 2: Füllen Sie die RAND-Formel in andere Zellen aus
Doppelklicken Sie auf das Ausfüllkästchen (das kleine grüne Quadrat in der unteren rechten Ecke) der Formelzelle, um die Formel auf die darunter liegenden Zellen anzuwenden.
Schritt 3: Sortieren Sie die RAND-Ergebnisse, um die Liste zu mischen
1 Wählen B2: B8, die Liste, die die RAND-Formel enthält.
2. Klicke auf Sortieren & Filtern > Sortieren Sie vom kleinsten zum größten der Bearbeitung Gruppe auf der Home Tab.
3. Im Popup Warnung sortieren Dialog auswählen Erweitern Sie die Auswahlund klicken Sie dann auf Sortieren.
Ergebnis
Jetzt sind Sie fertig! Die Liste ist wie unten gezeigt randomisiert.
Wenn Sie Benutzer neuerer Excel-Versionen sind, z. B. Excel für Microsoft 365 oder Excel 2021 oder Excel für das Web, ist die RANDARRAY, SORTIERE NACH und REIHEN Die Formel hilft Ihnen, schnell eine gemischte Liste an der von Ihnen angegebenen Position zu erhalten.
Schritt 1: Geben Sie die Formeln RANDARRAY, SORTBY und ROWS ein
Wählen Sie eine leere Zelle aus, in der Sie das randomisierte Ergebnis erhalten möchten, geben Sie die folgende Formel ein (Beachten Sie, dass Sie dies ändern sollten A2: A8 in der folgenden Formel zu der ursprünglichen Liste, die Sie randomisieren möchten) und drücken Sie Weiter.
=SORTBY(A2:A8,RANDARRAY(ROWS(A2:A8)))
(Optional) Schritt 2: Kopieren Sie das Formelergebnis und fügen Sie es ein, um es bearbeitbar zu machen
Wenn Sie nur ein zufälliges Ergebnis sehen möchten, können Sie das tun überspringe diesen Schritt. Wenn Sie die zufällig gemischte Liste bearbeiten möchten, sollten Sie das Formelergebnis kopieren und nur Werte einfügen:
1. Wählen Sie das Formelergebnis aus und drücken Sie Ctrl + C um es zu kopieren.
2. Klicken Sie mit der rechten Maustaste auf eine Zelle, in die Sie das kopierte Ergebnis einfügen möchten. (Sie können den Wert auch an seiner ursprünglichen Position einfügen.)
3. Wählen Sie die Nur Werte einfügen Option aus dem Rechtsklick-Menü.
Ergebnis
Jetzt erhalten Sie eine gemischte und bearbeitbare Liste, wie unten gezeigt.
Wenn Sie es leid sind, Formeln zu verwenden, und beabsichtigen, die Hilfe eines Add-Ins zu verwenden, Kutools for Excel Bereich zufällig sortieren / auswählen Funktion kann Ihnen helfen, eine zufällige Sortierung mit mehr Optionen viel einfacher durchzuführen. Bitte so wie folgt:
Wählen Sie zuerst die Liste aus, die Sie mischen möchten. Und dann auswählen Kutoolen > Abdeckung > Bereich zufällig sortieren / auswählen. Im Popup Bereich zufällig sortieren / auswählen Dialog auswählen Ganze Zeilenund klicken Sie dann auf Ok.
Wenn Sie eine Liste lieber mit der VBA-Methode randomisieren möchten, gehen Sie bitte wie folgt vor.
Schritt 1: Wählen Sie die Liste aus, die Sie mischen möchten
Schritt 2: Kopieren Sie den VBA-Code in das Modulfenster
1. Drücken Sie Strg + F11 , um den VBA-Editor zu öffnen, und klicken Sie dann auf Insert > Modul , um ein Modulcodefenster zu öffnen.
2. Kopieren Sie den folgenden VBA-Code und fügen Sie ihn in das geöffnete Modulfenster ein.
VBA-Code: Zufälliges Sortieren einer Liste
Sub RandomSort()
'Update by ExtendOffice
Dim xRg As Range
Dim xNum, xF, xI As Integer
Dim xWSh, xAWSh As Worksheet
On Error Resume Next
Application.ScreenUpdating = False
Application.DisplayAlerts = False
Set xAWSh = Application.ActiveSheet
Set xRg = ActiveWindow.RangeSelection
Set xWSh = Worksheets.Add
xNum = xRg.Count
For xF = xNum To 1 Step -1
xI = WorksheetFunction.RandBetween(1, xF)
xWSh.Range("A1").Value = xRg.Item(xI)
xRg.Item(xI) = xRg.Item(xF)
xRg.Item(xF) = xWSh.Range("A1")
Next
xWSh.Delete
Application.ScreenUpdating = True
Application.DisplayAlerts = True
End Sub
Schritt 3: Führen Sie den VBA-Code aus
Drücken Sie im Codefenster F5 oder klicken Sie auf Schaltfläche, um diesen Code auszuführen.
Ergebnis