%macro xunhuan(ds=a,par=,delim=);
%let i=1;
%do %while(%scan(%quote(&par),&i,%quote(&delim)) ne );
        proc sort data=&ds ;
          by %scan(%quote(&par),&i,%quote(&delim));
    run;
        %let i=%eval(&i+1);
%end;
%mend;

%xunhuan(par=%str(year ,  qua  , month , week , year qua ,id year, id year marks),delim=%str(,))

第一次来这里多多关照啊

也可以是这样：
%let ds=a;
%let byvar=year ,  qua  , month , week , year qua ,id year, id year marks;
data _null_;
    n=count("&byvar",",")+1;
    do i=1 to n;
           code="proc sort data=&ds; "
                    ||"by "||strip(scan("&byvar",i,","))||"; "
                        ||"run;";
                call execute(code);
        end;
run;

参见楼主自己的帖子，举一反三，你就会悟出奥秘。
https://bbs.pinggu.org/thread-3153079-1-1.html

您好，我在后面想加一个输出的文件   ，但都显示这&i方面的问题  ,请问这样写是哪方面出问题了 code="proc sort data=&ds  out=test&i; "