%crackman(23)
%macro crackman(i);
%local n=1;
%do %while (n<=&i.);
%crackman1(&n.);
%let n=%eval(&n.+1);
%end;
%mend crackman;


%macro crackman1(n);
data s&n. (keep=group&n. x&n.);
set  sasuser.aaa;
ODS html file="e:\data分析\&n..html";
title &n.;
proc sort ;
   by group&n.;
run;
proc univariate normal ;
   var x&n.;
   by group&n.;
run;
proc ttest cochran ;
   class group&n.;
   var x&n.;
run;
proc npar1way wilcoxon ;
   class group&n.;
   var x&n.;
run;
ODS html close;
%mend crackman1;

看看行不行 没的数据验证的

多谢 crackman 大侠，程序运行还有点问题：


错误提示如上，程序其它地方没有提示出错，我不太懂宏，还得麻烦大侠。谢谢。

data s&n. (keep=group&n. x&n.);
set  sasuser.aaa;

改成
data
%do i=1 %to 23 %by 1;
s&i. (keep=group&i.  x&i.)
%end;
;
set  sasuser.aaa;

比较好
生成全部“小”数据集仅遍历aaa一次，性能上稍优

%macro split;
%do i=1 %to 23;
data s&i;
set raw;
keep group&i x&i;
run;
ODS html file="e:\&i.html";
proc sort;
   by group&i;
proc univariate normal ;
   var x&i;
   by group&i;
proc ttest cochran ;
   class group&i;
   var x&i;
proc npar1way wilcoxon ;
   class group&i;
   var x&i;
run;
ODS html close;
%end;
%mend;

%split