谢谢你，第一个宏运行很好。第二个形成的excel就无法打开了。如果方便也请修改一下，让我多学习一下。非常感谢你。帮我解答好多次问题了。 2# yugao1986

把你的数据集改 input x y $;y是字符型的。我运行没问题。ods 导出的是一个excel包含四个工作簿，子表按x分组的。 3# zhaoping603

data  a;
input  x  y $;
cards;
1   j
1   k
2   l
2   j
3   p
4   u
3   r
;
run;
proc sort data=a out=b;
     by x;
run;
%macro d;
       %do i=1 %to 4;
              data a&i;
                       set b;
                           if x=&i;
                  run;
              proc export data=a&i outfile="D:\a&i.xls" dbms=excel2000;
                  run;
           %end;
%mend d;
%d
小编了一下，我运行的反正是没有错误的

谢谢你。清楚了。你真是个热心人。最近有好几个问题都是你帮我解答的，非常感谢。 4# yugao1986