Help with retrieving random samples from a dataset

[vebeenator]

Hi thread members

As i am learning the traits of excel, i have stumbled up on a problem.

I have the numbers i want to work with organised in cell (d5:d56), i now want to select 26 of these numbers randomly
and organise them in ascending order in a row with no possibility of retrieving duplicates, furthermore i want to retrieve the remaining 26 numbers from (d5:d56) and organise them
in another row.

Any help will be highly appreciated.

 

[lrobbo314]

Something like this.

Book4
	D	E	F
4	Rand Nums		Output
5	78		9
6	70		13
7	17		15
8	38		24
9	75		28
10	84		32
11	90		33
12	32		34
13	69		40
14	85		41
15	33		50
16	80		51
17	51		60
18	78		61
19	13		69
20	28		70
21	41		75
22	65		78
23	61		79
24	34		80
25	51		81
26	60		84
27	9		85
28	100		88
29	81		90
30	40		100
31	15
32	24
33	84
34	50
35	88
36	79
Sheet1

Sub UNIQUE26NODUPES()
Dim AR() As Variant: AR = Range("D5:D" & Range("D" & Rows.Count).End(xlUp).Row).Value2
Dim AL As Object: Set AL = CreateObject("System.Collections.ArrayList")
Dim tmp As Integer: tmp = 0
Dim r As Integer: r = 0

For i = 1 To UBound(AR)
    tmp = AR(i, 1)
    If Not AL.contains(tmp) Then AL.Add (tmp)
Next i

Do Until AL.Count <= 26
    r = Int((AL.Count) * Rnd())
    AL.removeat r
Loop

AL.Sort
Range("F5").Resize(AL.Count, 1).Value = Application.Transpose(AL.toarray)
    
End Sub