有一个笨办法

data aa1;
informat rq yymmdd10.;
format rq yymmdd10.;
input rq xh;
cards;
2005-01-04       1         
2005-01-05       2         
2005-01-06       3         
2005-01-07       4         
2005-01-10       5         
2005-01-11       6         
2005-01-12       7         
2005-01-13       8         
2005-01-14       9         
2005-01-17       10
;
run;

data _null_;
set aa1 end=a;
if a=1 then call symput('total',ceil(_n_/3));
run;

%macro test;
%do i=0 %to &total;
data out&i;
set aa1 ;
if  (_n_>3*&i and _n_<=3*(&i+1)) then output out&i;
%end;
%mend;

%test;

非常感谢，解决了我的大问题！

2# flutter88

1# 人生海海

4# jingju11

强，这样效率改进很多了，呵呵

data _null_;

set aa1 end=_endof;

if _endof then call symput('total',put(ceil(_n_/3), 10.));

run;

%macro subsets;

data %do i=1 %to &total; out&i  %end;;

  set aa1;

  if _n_ <=3 then  output out1;

  %if &total>1 %then%do;

   %do i=2 %to &total;

    else if _n_ <=3*&i then output out&i;

   %end;

  %end;

run;

quit;

%mend subsets;



%subsets

;

好样的