Excel VBA Video Training/ EXCEL DASHBOARD REPORTS

Excel: Generate Unique Random Numbers

Back to: Excel Custom Function/Formulas . Got any Excel/VBA Questions? Free Excel Help

This UDF will generate x unique random numbers between any 2 numbers you specify. Many thanks to J.E. McGimpsey for modifying this to work on more than 10 numbers.

The Code

Function RandLotto(Bottom As Integer, Top As Integer, _

                    Amount As Integer) As String

    Dim iArr As Variant

    Dim i As Integer

    Dim r As Integer

    Dim temp As Integer

    

    Application.Volatile

    

    ReDim iArr(Bottom To Top)

    For i = Bottom To Top

        iArr(i) = i

    Next i

    

    For i = Top To Bottom + 1 Step -1

        r = Int(Rnd() * (i - Bottom + 1)) + Bottom

        temp = iArr(r)

        iArr(r) = iArr(i)

        iArr(i) = temp

    Next i

    

    For i = Bottom To Bottom + Amount - 1

        RandLotto = RandLotto & " " & iArr(i)

    Next i

    

    RandLotto = Trim(RandLotto)

    

End Function

To use this UDF push Alt+F11 and go Insert>Module and paste in the code. Push Alt+Q and save. The Function will appear under "User Defined" in the Paste Function dialog box (Shift+F3). Use the Function in any cell as shown below.

=RandLotto(1,20,8)
This would produce 8 unique random numbers between 1 and 20

Excel Dashboard Reports & Excel Dashboard Charts 50% Off Become an ExcelUser Affiliate & Earn Money

Special! Free Choice of Complete Excel Training Course OR Excel Add-ins Collection on all purchases totaling over $64.00. ALL purchases totaling over $150.00 gets you BOTH! Purchases MUST be made via this site. Send payment proof to [email protected] 31 days after purchase date.

Instant Download and Money Back Guarantee on Most Software

Excel VBA Video Training/ EXCEL DASHBOARD REPORTS

Excel Trader Package Technical Analysis in Excel With $139.00 of FREE software!

Microsoft � and Microsoft Excel � are registered trademarks of Microsoft Corporation. OzGrid is in no way associated with Microsoft