大神们不要围观了，快快帮忙解答了吧。

运行后，work.want是想要的数据文件，以“score”开头的变量代表相应的sheet里答案的得分，答对1分，答错0分。

这里的程序只做了3个sheet，有10个的话修改程序相应部分即可。另外没写求和的代码，感觉你把表导成excel来求和更直观。如果不同sheet内的序号排列顺序不一致，还需要在程序里加上proc sort，如果字母大小写不一致，加上upcase函数。
程序如下，数据见附件test.xls：

%Macro imp;
%do i=1 %to 3;
  proc import datafile="e:\test\test.xls" out=test replace;
      sheet="a&i"; getnames=no ;
  run;
  data want;
  %if &i=1 %then %do;
   set test;
   run;
  %end;
  %else %do;
  merge want test(drop=f1 rename=(f2=f2&i));
  if verify(f2&i,f2) then score&i=0;
  else score&i=1;
  run;
  %end;
%end;
%mend;
%imp;