data demo;
input a b;
datalines;
1 2
3 4
5 6
7 8
9 0
;

data  _null_;
if 0 then set demo nobs=nobs;
call symputx('n',nobs);
run;

data want;
array tmp[&n];
do i=1 to &n;
    set want;
        tmp[i]=a;
end;
run;

data demo2;
   set demo (keep=a);
run;

proc transpose data=demo2 out=demo2_trans (drop=_name_);
run;

谢谢各位热心的帮忙！

楼上都是高手，只不过我觉得你的需求都比较特殊

在这里算是帮高手展示才华了
但是到你的代码，估计就没法看了，呵呵