重复贴子吧！
https://bbs.pinggu.org/forum.php? ... &page=2#pid15604613
加个数组赋值和去掉重复的操作就行的。
data b;
        set a;
        array ss{*} ss1-ss6 (1 2 3 24 25 23);
        array sc2 {*} $2. s1-s6;
                do i=1 to 6;
                        if s=ss{i} then sc2{i}='p';
                                else  sc2{i}='a';                                
                        end;
        output;
        drop ss1-ss6 i;
run;
proc sql;
        create table c as
        select *,count(t) as fred
        from b
        group by t,m;
quit;
data d(drop=i);
        set c;
        by t m;
    array char {*} _character_;
            do i=1 to 6;
                if not (first.m and last.m) then char{i}='p';
                else char{i}=char{i};
        end;
run;
data e(drop=w s);
        set d;
        by t m;
        if first.m then output;
        else delete;
run;

谢谢，我刚学用SAS！谢谢您的指导！