期盼高人解答

多谢！关键在于output 、nodupkey和retain啊！有没有更简单一些的方法？

Hope it helps.

data tmp;
length f1 $2 f2 $10;
infile cards truncover;
input f1       f2;
cards;
aa      A
aa      H
aa      
aa      
aa      BH
bb     AB
bb     B
bb  
;

data needed;
  length s t $300;
  retain s ' ';

  set tmp;
  by f1;
  if first.f1 then s=' ';
  s=catt(s,f2);
  if last.f1 then do
    t=char(s,1);
    do i=2 to length(s);
            char1=char(s,i);
            if find(t, char1) then ;
                else t=catt(t,char1);
        end;
        output;
  end;

  
  keep f1 t;
  rename t=f2;
  run;

  proc print;run;