用excel复制，转置粘贴，即可。

不是这么小的表，是一张很大的数据表！

PROC FREQ DATA=A NOPRINT ORDER=FREQ;
TABLES A/MISSING OUT=F_A(KEEP=COUNT);
RUN;
DATA _NULL_;
IF _N_=1 THEN SET F_A;
CALL SYMPUTX('N',COUNT);
RUN;
%PUT &N;
PROC SORT DATA=A;
BY A;
DATA A;
SET A;
BY A;
ARRAY X(&N) $;
RETAIN X;
IF FIRST.A THEN DO;
N=0;
DO I=1 TO &N;
X(I)='';
END;
END;
N+1;
X(N)=B;
IF LAST.A THEN OUTPUT;
KEEP A X:;
RUN;
PROC PRINT;
RUN;

proc transpose data=a out=a1;                                                                                                         
    var b;                                                                                                                              
    by a;                                                                                                                              
run;

谢谢～～