这？ 最好有个excel文件，附带点说明哈

恩。
已上传excel数据及变量说明。

之前我上传excel数据之后又删除：
觉得让高手下载有点麻烦，
直接将上面数据黏贴到excel就免去下载的麻烦。

这样可以吗？
data food_mid;
        array f(9)$ food1-food9;
        array e(9) effective1-effective9;
        set food;
        site=unit;
        do i=1 to 9;
                food=f(i);
                effective=e(i);
                output;
        end;
        drop i food1-food9 effective1-effective9 unit;
run;

proc sort data= food_mid nodup;
        by site food effective;
run;


proc sql;
        create table food_ok as
        select site as unit,
                        food,
                        sum(effective) as effective
        from food_mid
        group by 1,2;
quit;
proc print;
run;

也可以，
另一种方式。

谢谢！

function sortn()