可以建一个数组做循环么？新手不懂

用宏就可以了，批量化处理一下；

data raw;
input a $ id ;
cards;
001          1
003          1  
005          2
006          2
007          3
008          3
;
run;

proc sql noprint;
  select distinct id into:  list  separated by ' _' from raw;
  select  COUNT( distinct id) into:  N  from raw;
quit;
%let list= _&list;
%let N=&N;
%put &list;
%put &N;

%macro separate ;
%do i = 1 %to &N;
%put &i;
  data %scan(&list , &i , ' ');
  set raw;
  where id= %scan(&list , &i , ' _');
  run;
%end;
%mend;
%separate

或者这么写也许更好;
data raw;
input a $ id ;
cards;
001          1
003          1  
005          2
006          2
007          3
008          3
;
run;

proc sql noprint;
  select distinct id into:  list  separated by ' _' from raw;
  select  COUNT(distinct id) into: N from raw;
quit;
%let list= _&list;
%let N=&N;
%put Datasets namelist: &list;
%put Attention: will generate totally &N datasets;

%macro separate ;
  data &list;
  set raw;
  %do i = 1 %to &N;
  if strip(put(id, best.)) = scan("&list" , &i , ' _') then output %scan(&list , &i , ' ');
  %end;
  run;
%mend;
%separate

大侠，可以问问你 select distinct id into:  list  separated by ' _' from raw;
  select  COUNT(distinct id) into: N from raw;
和 if strip(put(id, best.)) = scan("&list" , &i , ' _') then output %scan(&list , &i , ' ');这两句分别是什么意思么新手求教

就是弄成宏变量批量处理，具体的原理可以自己看书