Excel'de tekrar etmeksizin iki sayı arasında rastgele (tamsayı) sayılar nasıl eklenir?

Bu yöntem, Excel'deki belirli bir aralığa iki sayı arasında rastgele sayılar eklemek için RAND işlevini ve RANDBETWEEN işlevini uygulayacaktır. Lütfen aşağıdaki formüllere bakın:

Aşağıdaki ekran görüntülerine bakın:

0 ile 1 arasında rastgele sayılar =RAND()

0 ile 100 arasında rastgele sayılar =RAND()*100

50 ile 100 arasında rastgele tamsayılar =RANDBETWEEN(50, 100)

Aşağıdaki VBA kodu, Excel'deki belirli bir aralığa herhangi bir rastgele tamsayı veya belirli ondalık basamaklara sahip rastgele sayılar eklemenize yardımcı olabilir. Lütfen şu adımları izleyin:

1. ALT + F11 tuşlarına basın ve Microsoft Visual Basic for Applications penceresi açılacaktır.

2. Ekle Insert > Module, ve aşağıdaki kodu Module window. yapıştırın.

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. Kodu kaydedip kapatın, ardından boş bir hücreye =RandomNumbers(X,Y,Z) formülünü girin; X, sayıların alt sınırını, Y üst sınırını ve Z ise rastgele sayıların belirtilen ondalık basamak sayısını gösterir.

Örneğin, 50 ile 1000 arasında bazı tam sayılar üretmek istiyorsam, bu formülü girebilirim =randomnumbers(50,1000,0); ve 50 ile 100 arasında 2 ondalık basamaklı rastgele sayılar eklemek için bu formülü kullanabilirim =randomnumbers(50,100,2). Aşağıdaki ekran görüntülerine bakın:

Ondalık basamaksızın rastgele sayılar ekleme:

2 ondalık basamaklı rastgele sayılar ekleme:

Kutools for Excel ile tekrarsız rastgele tam sayılar / tarihler / zamanlar ekleme

İlgili makale:

Bir aralıkta rastgele karakter dizileri oluşturma