方法较笨，是先转置，再提取变量名列，放回原数据，就可以加上变量列。
data mice;
input X1 X2 X3 X4 X5;
cards;
122 122 122 122 122
11 11 11 11 11
223 223 223 223 223
2 122 122 122 122
476 11 11 11 11
;
run;

/*转置*/
proc transpose data=mice out=d_1 name=T;
var X1-X5;
run;

/*将变量名列添加到原数据中*/
data rice;
merge mice d_1(keep=T);
run;

data  tran;
   set raw25;
   array tr[1:5] $ 20. a0bc a1bc a2bc a3bc a4bc;
   do i=1 to 5;
          abc=tr(i);
          output;
   end;
run;
谢谢，我的疑问是我用数组做数据转置的时候，我如何知道转置后的数据是转置前那个变量的值？