Unique Random Number Generator

R

RollieG

I need either a VB Macro or an Excel formula (Array formulas OK) that can
generate 5 unique random integers from 1 to x (as long as x>5). I have seen
answers that include links, but I cannot access most sites due to blocked
access.
 
M

Mike H

Hi,

This will put unique random numbers in a1 - A5

Sub Sonic()
Dim FillRange As Range
TopVal = Int(InputBox("Enter maximum value"))
Set FillRange = Range("A1:A5")
For Each c In FillRange
Do
c.Value = Int((TopVal * Rnd) + 1)
Loop Until WorksheetFunction.CountIf(FillRange, c.Value) < 2
Next
End Sub

Mike
 

Ask a Question

Want to reply to this thread or ask your own question?

You'll need to choose a username for the site, which only take a couple of moments. After that, you can post your question and our members will help you out.

Ask a Question

Similar Threads

random number generator 8
Excel 2003 random number generator 1
Random Number Generator Problem 6
Generate list of unique random integer values? 5
Formula to choose X number of unique random cells from array? 5
Unique Random Number Generator 4
Random generation. 3
Making random and unique selections from a list 2

Top