PQ - Random questions limited (52)

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

---