proc import datafile='c:/sas/test.xls' out=test;
run;

data test1;
set test;
if event=1;
run;

data test2;
set test1;
by Stkcd;
if first.stkcd then n=0;
n+1;
run;

data test_new;
merge test test2;
by stkcd year;
drop rank;
rename n=rank;
run;

非常好！谢谢您的帮助！