proc format;
value $dt  'dt1'='2001/1/31'
               'dt2'= '2001/2/28'
                           'dt3'='2001/3/31'
               'dt4'='2001/4/30'
               ;
run;

data original;
input code dt1 dt2 dt3 dt4;
cards;
0001         25               24               25            26
0002         13               14               12             11
0003         23               21               22             20
;
run;

proc sort data=original;
        by code;
run;

proc transpose data=original out=final(rename=(col1=price   _name_=date) );
        var dt1-dt4;
        by code;
run;

data final;
        set final;
        label price='price' date='date';
        format date $dt.;
run;

option validvarname=any;

proc import out=ex
datafile="E:\test.xls"
replace;
run;

proc transpose data=ex out=ex1(rename=(_name_=date col1=price) drop=_label_);
by code;
run;

亲，谢了，不过。。。因为有好多个日期所以我不懂得怎么用简便的方法去 proc format...
我从EXCEL导入SAS之后日期就直接成为VAR，所以我在proc transpose 那里var就一直提示错误。。。
说得有点乱。。。。原谅我

喔，如何所有日期都是很有规律的这种，就可以弄个宏出来，要麻烦些，你还是用ziyenano的方法吧，挺简洁的