data a;
input name $  age;
cards;

      jim      12
      lucy     15
      lily       14
      kim      16
      lucy      13
      kuku     17
      coco      15
      nina       16
      jim       15
      lucy      18
      hebe    12
;
data b;
set a;
id=_n_;
run;

proc sql noprint;
select count(1) into: num
from b
where name='lucy';

select id into: d1-:d%left(&num)
from b
where name='lucy';
quit;

%put _user_;

%macro one;
%do i =1 %to %eval(&num-1);
%let j=%left(%eval(&i+1));
%put &&d&i. &&d&j. ;
data a&i.;
set b;
where id between &&d&i. and &&d&j. and name ne 'lucy';
run;
%end;
%mend;
%one

非常感谢！！很有帮助！

顶楼主，我也需要

感觉LS有点冗余，就写了个，输出估计还需改进。
data a;
input name $  age;
retain lucy_num;
if name='lucy' then do;
lucy_num+1;
end;
if name^='lucy' then output;
call symput('num',lucy_num);
cards;

      jim      12
      lucy     15
      lily       14
      kim      16
      lucy      13
      kuku     17
      coco      15
      nina       16
      jim       15
      lucy      18
      hebe    12
;
run;


%macro one;
%do i=1 %to #
        data b&i;
    set a;
    if lucy_num=&i;
    run;
%end;
%mend;

%one;

不错，很好！