如何替换

复制代码

1. data aaa;
   
2. input SID$ VisitName$ xm$ value;
   
3. cards;
   
4. C001 V1   rbc 5.5
   
5. C001 V1_1 rbc 5.0
   
6. C001 V2   rbc 5.2
   
7. C001 V3   rbc 4.5
   
8. C001 V1   wbc 11
   
9. C001 V1_1 wbc 9
   
10. C001 V2   wbc 12
    
11. C001 V2_1 wbc 8
    
12. C001 V3   wbc 4.5
    
13. C002 V1   rbc 4.2
    
14. C002 V2   rbc 5.6
    
15. C002 V2_1 rbc 3.9
    
16. C002 V3   rbc 4.0
    
17. ;
    
18. run;

复制代码

rbc V1的值用V1_1的值替换
rbc V2的值用V2_1的值替换

wbc V1的值用V1_1的值替换
wbc V2的值用V2_1的值替换


指标比较多，如何批量替换？谢谢！

继续求助!

这个题好玩

proc sort data=aaa out=bbb;
by sid xm descending VisitName ;
run;

data ccc;
set bbb;
if substr(strip(visitname),3,1)='_'
then a=value;
b=lag(a);
if b ne . then value=b;
drop a b;
run;

一个人的指标同一个访视有多个测量？可以用SQL并回去，并的条件视VisitName内容而定。

proc sql undo_policy=none;
        create table a as
                select a.*,b.value as value_1
                from aaa as a
                left join aaa(where=(index(VisitName,"_"))) as b
                on a.SID=b.SID and a.XM=b.XM and a.VIsitName=scan(b.VisitName,1,'_')
        ;
quit;
data a;
        set a;
        if ^missing(value_1) then value=value_1 ;
        drop value_1;
run;