1. 把 第一个%end; 放到 %mend;之前, 并且需要再增加一个%end; ;
2. 在程序最后加 %nvardescrip()

options mprint mlogic;

%macro nvardescrip(data =sashelp.class , out = like);

proc contents data=&data out=a0 noprint;
run;
proc datasets library=work;
delete &out;
run;

proc sql;
select NAME into : nvars separated by ' '  from a0 where TYPE = 1;
quit;
%let i = 1;
%do %until(%scan(&nvars, &i, %str(' ')) = );
%let varname = %scan(&nvars, &i, %str(' '));
%let i = %eval(&i+1);
proc univariate data = &data noprint;
var &varname;
output out = a1 nmiss = nmiss mean = mean std = std min = min Q1 = Q1 median = median Q3 = Q3 max = max;
run;
data a1;
retain name nmiss mean std min Q1 median Q3 max;
set a1;
length name $15.;
name = "&varname";
run;

proc append base=&out data=a1;
run;

%end;
%mend;

%nvardescrip();

你写宏太任性了，只可惜功力还没够呀，我帮你改好了。

%macro nvardescrip(data =trans , out = like);
proc contents data=&data out=a0 noprint;
run;  
proc sql noprint;
select NAME into : nvars separated by '  '  from a0 where TYPE = 1;
quit;
%let i = 1;
%do %until(%scan(&nvars, &i, '  ') = );
%let varname = %scan(&nvars, &i, '  ');

proc univariate data = &data noprint;
var &varname;
output out = a1 nmiss = nmiss mean = mean std = std min = min Q1 = Q1 median = median Q3 = Q3 max = max;
run;

data a1;
retain name nmiss mean std min Q1 median Q3 max;
set a1;
length name $15;
name = "&varname";
label name = "变量名" nmiss = "缺失观察数" mean = "均值" std = "标准偏差" min = "最小值" Q1 = "下四分位"
median = "中位数" Q3 = "上四分位数" max = "最大值";
run;

%if &i = 1 %then %do;
data &out; set a1; run;
%end;
%else %do;
data &out; set &out a1; run;
%end;

%let i = %eval(&i. + 1);

%end;

%mend;

%nvardescrip(data =sashelp.class , out = like);

谢谢高手指点，终于搞定了！另外想弱弱问一句，为什么下面要加%nvardescrip(data=,out=); 这个语句。

谢谢高手指点，终于搞定了！另外想弱弱问一句，为什么下面要加%nvardescrip(data=,out=); 这个语句。

最后一行用我测试调用宏的。