This is done using a macro.
The folowing example is for 10 samples out of 1-100
assume your range of data is in J1:J100
The macro will produce random unique numbers
and will put these into the range E3-E12
In the next column you would have an offset formula to
show the data sampled out of the range J1:J100
enter the formula =OFFSET($J$1,E3,0) in F3 and extend down to F12
Sub TheBestsamplePicker()
Dim nVal As Integer
Dim i As Integer
Dim res As Variant
Set PutCell = Range("e3")
PutCell.Resize(10, 1).ClearContents
i = 0
Do
Randomize
nVal = Int((100 * Rnd) + 1)
res = Application.Match(nVal, _
PutCell.Resize(10, 1), 0)
If IsError(res) Then
PutCell.Offset(i, 0).Value = nVal
i = i + 1
End If
Loop Until i = 10
Range("e3:e12").Select
Selection.Sort Key1:=Range("e3"), Order1:=xlAscending, _
Header:=xlGuess, OrderCustom:=1, MatchCase:=False, _
Orientation:=xlTopToBottom
Range("e14").Select
End Sub