Random questions limited (52)

source (named range: tblQ) Result
ID Questions
ID
Questions
1
 Q 001
98
Q 098
2
 Q 002
143
Q 143
3
 Q 003
190
Q 190
4
 Q 004
156
Q 156
5
 Q 005
13
Q 013
6
 Q 006
166
Q 166
… …
95
Q 095
195
 Q 195
49
Q 049
196
 Q 196
146
Q 146
197
 Q 197
181
Q 181
198
 Q 198
44
Q 044
199
 Q 199
176
Q 176
200
 Q 200
89
Q 089
7
Q 007
129
Q 129
2
Q 002
74
Q 074
8
Q 008
103
Q 103
142
Q 142
96
Q 096
33
Q 033
175
Q 175
120
Q 120
122
Q 122
179
Q 179
53
Q 053
139
Q 139
15
Q 015
83
Q 083
19
Q 019
80
Q 080
4
Q 004
105
Q 105
30
Q 030
35
Q 035
162
Q 162
91
Q 091
85
Q 085
36
Q 036
28
Q 028
126
Q 126
18
Q 018
20
Q 020
124
Q 124
48
Q 048
40
Q 040
132
Q 132
170
Q 170
82
Q 082
60
Q 060
94
Q 094


Code:
let
    Source = Excel.CurrentWorkbook(),
    RawData = Table.PromoteHeaders(Source{[Name="tblQ"]}[Content],[PromoteAllScalars=true]),
    Random = Table.Sort(Table.ExpandListColumn(Table.AddColumn(RawData, "Rnd", each List.Random(1)), "Rnd"),{{"Rnd", Order.Ascending}}),
    Kept52 = Table.FirstN(Table.RemoveColumns(Random,{"Rnd"}),52)
in
    Kept52