data b;
   if 0 then set a;
   if _n_=1 then do;
             declare hash h();
            h.definekey('id','target');
                h.definedata('id','target');
                h.definedone();
        end;
        set a;
        if h.find()=0 then delete;
        if invest=1 then h.add();
run;

谢谢大神的指点，可以运行！

Another way:
data a;
input id target $ year invest;
cards;
1 a 2004 0
1 b 2004 1
1 c 2004 0
1 d 2004 1
1 a 2005 0
1 b 2005 0
1 c 2005 1
1 d 2005 0
2 a 2007 1
2 b 2007 1
2 c 2007 0
2 d 2007 0
2 a 2009 0
2 b 2009 0
2 c 2009 0
2 d 2009 1
;
run;

proc sort data=a;
        by id target year;
run;

data b;
        set a;
        by id target;
        retain tp_year tp_flag;
        if first.target then do;
                tp_flag=0;
                tp_year=0;
        end;
        if invest=1 then do;
                tp_flag=1;
                tp_year=year;
        end;
        if tp_flag=1 and tp_year ne year then delete;
        drop tp_:;
run;

这个解决方案也很赞！！！同样谢谢您