Thanks winner Here is the full list. Picks is total picks 1 to 6. Backups is the number of times that stock code was pick #6.
Code |
Picks |
BackUps |
Rank |
ATM |
137 |
12 |
1 |
OCA |
117 |
8 |
2 |
PEB |
92 |
5 |
3 |
PX1 |
82 |
8 |
4 |
MFT |
77 |
10 |
5 |
HGH |
70 |
10 |
6 |
EBO |
66 |
12 |
7 |
IFT |
64 |
10 |
8 |
SKT |
60 |
3 |
9 |
FPH |
58 |
6 |
10 |
AIR |
43 |
14 |
11 |
HLG |
38 |
8 |
12 |
STU |
35 |
4 |
13 |
ZEL |
35 |
8 |
13 |
PPH |
33 |
4 |
15 |
FBU |
32 |
7 |
16 |
IKE |
32 |
3 |
16 |
AIA |
31 |
6 |
18 |
ARV |
31 |
7 |
18 |
SKO |
30 |
6 |
20 |
BLT |
28 |
7 |
21 |
RYM |
28 |
3 |
21 |
SPK |
28 |
8 |
21 |
AFT |
26 |
11 |
24 |
KPG |
25 |
5 |
25 |
ERD |
24 |
4 |
26 |
SML |
24 |
5 |
26 |
VGL |
24 |
3 |
26 |
FRE |
22 |
3 |
29 |
KMD |
22 |
6 |
29 |
THL |
22 |
6 |
29 |
APL |
20 |
1 |
32 |
SUM |
19 |
4 |
33 |
TWR |
19 |
3 |
33 |
WBC |
17 |
4 |
35 |
ANZ |
16 |
7 |
36 |
CVT |
16 |
2 |
36 |
SAN |
16 |
3 |
36 |
SKC |
16 |
2 |
36 |
GNE |
15 |
7 |
40 |
MPG |
15 |
3 |
40 |
NZO |
15 |
1 |
40 |
POT |
15 |
5 |
40 |
SKL |
15 |
8 |
40 |
CDI |
14 |
3 |
45 |
ALF |
13 |
2 |
46 |
MCY |
13 |
3 |
46 |
EVO |
12 |
2 |
48 |
GTK |
12 |
1 |
48 |
MCK |
12 |
2 |
48 |
RAK |
12 |
1 |
48 |
TLT |
12 |
2 |
48 |
WHS |
12 |
2 |
48 |
MEL |
11 |
2 |
54 |
SCL |
11 |
4 |
54 |
TRU |
11 |
0 |
54 |
WDT |
11 |
0 |
54 |
ARB |
10 |
2 |
58 |
BRM |
10 |
2 |
58 |
MHJ |
10 |
1 |
58 |
NWF |
10 |
2 |
58 |
SCT |
10 |
2 |
58 |
BOT |
9 |
0 |
63 |
CAV |
9 |
1 |
63 |
CEN |
9 |
2 |
63 |
MLN |
9 |
2 |
63 |
BGP |
8 |
2 |
67 |
CBD |
8 |
2 |
67 |
CNU |
8 |
1 |
67 |
FNZ |
8 |
4 |
67 |
NZR |
8 |
1 |
67 |
TRA |
8 |
4 |
67 |
VTL |
8 |
1 |
67 |
ARG |
7 |
1 |
74 |
GEN |
7 |
0 |
74 |
HMY |
7 |
0 |
74 |
NTL |
7 |
1 |
74 |
GXH |
6 |
1 |
78 |
MEE |
6 |
1 |
78 |
PGW |
6 |
1 |
78 |
TLL |
6 |
2 |
78 |
DGL |
5 |
4 |
82 |
FSF |
5 |
2 |
82 |
MOA |
5 |
0 |
82 |
NPH |
5 |
2 |
82 |
NZX |
5 |
1 |
82 |
QEX |
5 |
0 |
82 |
SPY |
5 |
0 |
82 |
MMH |
4 |
0 |
89 |
RBD |
4 |
1 |
89 |
SDL |
4 |
0 |
89 |
SEK |
4 |
1 |
89 |
TNZ |
4 |
1 |
89 |
AMP |
3 |
2 |
94 |
DIV |
3 |
2 |
94 |
JLG |
3 |
1 |
94 |
MHM |
3 |
0 |
94 |
NZK |
3 |
1 |
94 |
PIL |
3 |
1 |
94 |
PYS |
3 |
1 |
94 |
USG |
3 |
1 |
94 |
ASF |
2 |
1 |
102 |
ENS |
2 |
0 |
102 |
FWL |
2 |
0 |
102 |
OZY |
2 |
1 |
102 |
PFI |
2 |
0 |
102 |
PLX |
2 |
2 |
102 |
RUA |
2 |
0 |
102 |
TWF |
2 |
0 |
102 |
USF |
2 |
0 |
102 |
AGL |
1 |
0 |
111 |
CGF |
1 |
0 |
111 |
CMO |
1 |
1 |
111 |
FCG |
1 |
1 |
111 |
KFL |
1 |
1 |
111 |
MDZ |
1 |
0 |
111 |
MZY |
1 |
0 |
111 |
NPF |
1 |
0 |
111 |
NZL |
1 |
0 |
111 |
NZM |
1 |
0 |
111 |
PCT |
1 |
0 |
111 |
RAD |
1 |
0 |
111 |
SPN |
1 |
0 |
111 |
TLS |
1 |
1 |
111 |
VCT |
1 |
1 |
111 |
If anyone is interested, here is the VBA code used to analyse the data published for the competition and to output the picks into a list.
Code:
Option Explicit
Dim MyPicks(500) As MyStock 'Export array for all picks
Dim StkCount As Long 'Counter to record number of unique picks
Sub GetStats()
Dim LC As Long 'Loop
Dim AllPicks() As Variant 'Import array
AllPicks = ThisWorkbook.Sheets("Sheet1").Range("B2:B353").Value
StkCount = 1
MyPicks(1).Code = Left$(AllPicks(1, 1), 3)
For LC = 1 To 352
Call ProcessPick(Left$(AllPicks(LC, 1), 3))
Call ProcessPick(Mid$(AllPicks(LC, 1), 5, 3))
Call ProcessPick(Mid$(AllPicks(LC, 1), 9, 3))
Call ProcessPick(Mid$(AllPicks(LC, 1), 13, 3))
Call ProcessPick(Mid$(AllPicks(LC, 1), 17, 3))
Call ProcessPick(Right$(AllPicks(LC, 1), 3), True)
Next LC
With ThisWorkbook.Sheets("Sheet2")
For LC = 1 To StkCount
.Range("A" & LC).Value = MyPicks(LC).Code
.Range("B" & LC).Value = MyPicks(LC).Count
.Range("C" & LC).Value = MyPicks(LC).BackUp
Next LC
End With
MsgBox "Finished processing picks", vbInformation, "Done"
End Sub
Sub ProcessPick(NewPick As String, Optional IsBackUp As Boolean)
Dim NewStk As Long
NewStk = CheckNew(NewPick)
If NewStk = 0 Then
StkCount = StkCount + 1
MyPicks(StkCount).Code = NewPick
MyPicks(StkCount).Count = 1
NewStk = StkCount
Else
MyPicks(NewStk).Count = MyPicks(NewStk).Count + 1
End If
If IsBackUp Then MyPicks(NewStk).BackUp = MyPicks(NewStk).BackUp + 1
End Sub
Function CheckNew(CodeToCheck As String) As Long
Dim IL As Long
CheckNew = 0
For IL = 1 To StkCount
If MyPicks(IL).Code = CodeToCheck Then
CheckNew = IL
Exit For
End If
Next IL
End Function
Also in a separate module:
Option Explicit
Public Type MyStock
Code As String
Count As Long
BackUp As Long
End Type