Open up the archaeology window and look at the results list before this macro will do anything useful:
/run local g,a,n,c,r=GetArtifactInfoByRace for x=1,9 do r,a,n,c=0,0,GetArchaeologyRaceInfo(x),GetNumArtifactsByRace(x)for y=1,c do a=a+select(9,g(x,y))r=r+select(3,g(x,y))end print(n..': '..c..' (rare: '..r..' solved: '..a..')')end
My solves:
Dwarf: 30 (rare: 3 solved: 45)
Draenei: 0 (rare: 0 solved: 0)
Fossil: 14 (rare: 2 solved: 36)
Night Elf: 19 (rare: 1 solved: 18)
Nerubian: 3 (rare: 0 solved: 2)
Orc: 0 (rare: 0 solved: 0)
Tol'vir: 4 (rare: 0 solved: 3)
Troll: 14 (rare: 0 solved: 70)
Vrykul: 0 (rare: 0 solved: 0)