不好意思，
第10行后加入一行
if missing(dcost) then totalMiss + 1;

data a;
        set 你的数据；
        where Dcost=.;
run;

proc sort data=a out=b;
        by stkcd year;
run;

data c;
        set b;
        if first.stkcd then zong_quesheng=0;
        zong_quesheng+1;
        if last.stkcd;
run;

data d;
        set b;
        lag_year=lag(year);
        if first.stkcd then lianxu_quesheng=1;
        if year=lag_year+1 then lianxu_quesheng+1;
        if last.stkcd;       
run;

data final;
        merge c d;
        by stkcd year;
run;


-----------------------
随手写来，如果报错请告知

first.stkcd没有定义   传一份数据吧

你把“你的数据” 改为你导入的sas数据名就可以了

data a;
        set 你的数据；
        where Dcost=.;
run;

proc sort data=a out=b;
        by stkcd year;
run;

data c;
        set b;
        by stkcd year;
        if first.stkcd then zong_quesheng=0;
        zong_quesheng+1;
        if last.stkcd;
run;

data d;
        set b;
        by stkcd year;
        lag_year=lag(year);
        if first.stkcd then lianxu_quesheng=1;
        if year=lag_year+1 then lianxu_quesheng+1;
        if last.stkcd;      
run;

data final;
        merge c d;
        by stkcd year;
run;