proc transpose. 然后按条件筛选成2个datasets

proc import out=ex
datafile="E:\aaa.xlsx"
replace;
run;

proc transpose data=ex out=ex1(drop=_name_ rename=(_label_=name));
id name;
var Tom__M_--Sam__M_;
run;

proc transpose data=ex1 out=ex2(rename=(number=code _name_=subject col1=score));
by name number notsorted;
var math--chinese;
run;

data M F;
set ex2;
label name= subject=;
if index(name,'(M)') then output M;
else if index(name,'(F)') then output F;
run;

data table;
input a1 $ a2 $ a3 $ a4 $ a5 $ a6 $ a7;
cards;
Number 1 2 3 4 5 6
Math 65 85 70 75 60 55
Eng 70 67 56 45 88 78
Chinese 80 75 50 69 77 77
;
run;
proc sort data=table ;
by a1;
run;

proc transpose data=table out=test1(drop=_NAME_);
by a1;
var a2-a7;
run;

data score name;
set test1;
if a1='Number' then output name;
else output score;
run;

proc sql noprint;
select count(*) into :n from name;
quit;

data result;
set score(rename=(a1=Subject col1=Score));
Code=mod(_n_,&n.);
if Code=0 then Code=&n.;
run;

proc sort data=result;
by code descending Subject;
run;

data result1 result2;
set result;
if mod(Code,2) then output result1;
else output result2;
run;
你Name与Number是一一对应的，最后自己赋值就可以了。

感激不盡!!!!!!!!!
分开2次做transpose。我真笨。這也想不到。