这样？ %sortdata(id company group)

%macro sortvar(index=,dat=,delim=%str( ));

%let i=1;
%do %while(%scan(%quote(&index),&i,%quote(&delim)) ne );
%let Nindex=%scan(%quote(&index),&i,%quote(&delim));

proc sort data=&Nindex;by &bybars;run;
/*proc sort data=&Nindex;by &bybars;run;*/
%let i=%eval(&i+1);
%end;

%mend;
%sortvar(index=%str(age9   profit54),
byvars=%str(id company group),
delim=%str( ));

%macro sortvar(index=,dat=,delim=%str( ));

%let i=1;
%do %while(%scan(%quote(&index),&i,%quote(&delim)) ne );
%let Nindex=%scan(%quote(&index),&i,%quote(&delim));

proc sort data=&Nindex;by &bybars;run;
/*proc sort data=&Nindex;by &bybars;run;*/
%let i=%eval(&i+1);
%end;

%mend;
%sortvar(index=%str(age9   profit54),
byvars=%str(id company group),
delim=%str( ));

%macro sortvar(index=,dat=,delim=%str( ));

%let i=1;
%do %while(%scan(%quote(&index),&i,%quote(&delim)) ne );
%let Nindex=%scan(%quote(&index),&i,%quote(&delim));

proc sort data=&Nindex;by &bybars;run;
/*proc sort data=&Nindex;by &bybars;run;*/
%let i=%eval(&i+1);
%end;

%mend;
%sortvar(index=%str(age9   profit54),
byvars=%str(id company group),
delim=%str( ));

%macro sortvar(index=,byvars=,delim=%str( ));

%let i=1;
%do %while(%scan(%quote(&index),&i,%quote(&delim)) ne );
%let Nindex=%scan(%quote(&index),&i,%quote(&delim));

proc sort data=&Nindex;by &bybars;run;
/*proc sort data=&Nindex;by &bybars;run;*/
%let i=%eval(&i+1);
%end;

%mend;
%sortvar(index=%str( age9   profit54 ),
byvars=%str(id company group),
delim=%str( ));


NOTE: 由调用宏“SORTVAR”生成行。
3        proc sort data=&Nindex;by &bybars;run;
                                   -
                                   22
                                   200
WARNING: 没有解析符号引用 BYBARS。
ERROR: 变量 BYBARS 没有找到。

ERROR 22-322: 语法错误，期望下列之一: 名称, ;, DECENDING, DESCENDING, DESENDING, _ALL_, _CHARACTER_, _CHAR_,
              _NUMERIC_.

ERROR 200-322: 该符号不可识别，将被忽略。