Wie fügt man in Excel zufällige (ganzzahlige) Zahlen zwischen zwei Zahlen ohne Wiederholungen ein?

Diese Methode wendet die RAND-Funktion und die RANDBETWEEN-Funktion an, um zufällige Zahlen zwischen zwei Zahlen in einen bestimmten Bereich in Excel einzufügen. Bitte sehen Sie sich die folgenden Formeln an:

Siehe folgende Screenshots:

Zufallszahlen zwischen 0 und 1 =RAND()

Zufallszahlen zwischen 0 und 100 =RAND()*100

Zufällige Ganzzahlen zwischen 50 und 100 =RANDBETWEEN(50, 100)

Das folgende VBA kann Ihnen helfen, beliebige zufällige Ganzzahlen oder Zufallszahlen mit gegebenen Dezimalstellen in einen bestimmten Bereich in Excel einzufügen. Gehen Sie wie folgt vor:

1. Halten Sie die Tasten ALT + F11 gedrückt, und es öffnet sich das Fenster Microsoft Visual Basic for Applications.

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

Public Function RandomNumbers(Num1 As Long, Num2 As Long, Optional Decimals As Integer)
'Update20131113
Application.Volatile
Randomize
If IsMissing(Decimals) Or Decimals = 0 Then
    RandomNumbers = Int((Num2 + 1 - Num1) * Rnd + Num1)
Else
    RandomNumbers = Round((Num2 - Num1) * Rnd + Num1, Decimals)
End If
End Function

3. Speichern und schließen Sie den Code, dann geben Sie in einer leeren Zelle diese Formel ein =RandomNumbers(X,Y,Z), X gibt die Untergrenze der Zahlen an, Y gibt die Obergrenze der Zahlen an, und Z ist die angegebene Anzahl von Dezimalstellen der Zufallszahlen.

Zum Beispiel möchte ich einige ganze Zahlen zwischen 50 und 1000 generieren, dann kann ich diese Formel einfügen =randomnumbers(50,1000,0); und Zufallszahlen zwischen 50 und 100 mit 2 Dezimalstellen mit dieser Formel einfügen =randomnumbers(50,100,2). Siehe folgende Screenshots:

Zufallszahlen ohne Dezimalstellen einfügen:

Zufallszahlen mit 2 Dezimalstellen einfügen:

Zufällige Ganzzahlen / Daten / Uhrzeiten ohne Duplikate mit Kutools für Excel einfügen

Verwandter Artikel:

Zufällige Zeichenketten in einem Bereich generieren