Open up your solved archaeology finds. Then copy and paste this into the chat box:

/run SendChatMessage("Total artifacts","GUILD");for x=1,9 do c=GetNumArtifactsByRace(x);a=0 for y=1,c do t = select(9,GetArtifactInfoByRace(x, y)); a=a+t;end rn=GetArchaeologyRaceInfo(x); if( c > 1 ) then SendChatMessage(rn .. ": " .. a,"GUILD"); end end