麻烦给出部分数据，数据可以是自己编的的用来做程序调试；

data test;
input stkcd $ time:yymmdd10. ri;
format  time yymmdd10.;
datalines;
a1364654 2015-04-02 0.02
a1364652 2015-04-02 0.02
a1364654 2015-04-02 0.02
a1364653 2015-04-02 0.02
a1364654 2015-04-02 0.02
a1364652 2015-04-02 0.02
a1364654 2015-04-02 0.02
;
run;
/*将股票代码汇总*/
proc sql;
create table one as select distinct stkcd
from test;
/*group by stkcd;*/
quit;
/*共有多少个股票代码，设置宏*/
data _null_ ;
set one end=final;
call symput(compress('ST'||left(_n_)),stkcd);
if final then call symput('N',_n_);
run;
%macro ttt();
%do i=1 %to &N.;
        data &&ST&i.;       
                set test;
    if stkcd="&&ST&i." then output &&ST&i.;
        run;
%end;
%mend;
/*调用宏语句*/
%ttt();


将代码调优后应该能满足你那个需求。

谢谢你！！！看上去应该可以用，我先去试试~~~好感动啊，好人会有好报的

不客气，工作之余，回答一下啦！