自动赋值给宏变量

如何自动把a b c d ....     复制给宏变量 X1 X2   ...... Xn   

%macro(varlist= a ,b ,c ,d ,e );

%mend;

1. %macro test(varlist=);
   
2. %let n=%sysfunc(countw(&varlist,','));
   
3. %do i=1 %to &n.;
   
4. %let var&i.=%scan(&varlist,&i,',');
   
5. %put &&var&i.;
   
6. %end;
   
7. %mend;
   
8. %test(varlist=%str(a,b,c,d,e));

复制代码