SetDirectory["FileName" /. NotebookInformation[
              EvaluationNotebook[]] /. FrontEnd`FileName[
              d_List, nam_, ___] :> ToFileName[d]];

dat = {{"Venclicek Jan", 1, 1, 4}, {"Kirchner Jan", 1, 1, 
            3}, {"Krula Ales", 1, 1, 4}, {"Sulcek Jan", 1, 1, 
            3}, {"Marecek Petr", 1, 1, 3}, {"Hons Michal", 1, 1, 
            4}, {"Ferzik Radek", 1, 1, 1}, {"Forejt Josef", 1, 2, 
            4}, {"Randa Jiri", 1, 1, 2}, {"Slovak Filip", 1, 2, 
            4}, {"Mika Michal", 4, 1, 4}, {"Rada Lukas", 1, 1, 
            4}, {"Jukl Tomas", 1, 1, 1}, {"Melichar Jan", 1, 1, 
            1}, {"Hamouz Petr", 1, 1, 2}};

zn[x_] := "A" /; x < 1.5;
zn[x_] := "B" /; 
          1.5 ≤ x < 2;
zn[x_] := "C" /; 
          2 ≤ x < 2.5;
zn[x_] := "D" /; 
          2.5 ≤ x < 3;
zn[x_] := "E" /; 
          3 ≤ x < 3.5;
zn[x_] := "F" /; 3.5 ≤ x;
z[{a_, b_, c_, d_}] := {a, b, c, d, 
          zn[((b + c + d)/3)]};

\(\(ee = 
        Join[{{"Prijmeni Jmeno", "oblouk", "dielektrikum", "sdileni", "navrh znamky"}}, z /@ Union[dat]];\)\)

Export["VYSLEDKY_2009.png", ee, 
        ImageResolution -> 100];