求助SAS 循环语句

是 否 +2 论坛币

k人 参与回答

经管之家送您一份

应届毕业生专属福利!

求职就业群

赵安豆老师微信：zhaoandou666

经管之家联合CDA

送您一个全额奖学金名额~ !

立即领取

感谢您参与论坛问题回答

经管之家送您两个论坛币！

+2 论坛币

求助循环语句解决问题！很急!!!  在附件的表中，想统计每个no里一行与另一行是否完全一致（除ID），如果一致，那就在此行的末尾增加一列记为2，同时删掉相同的那一行。

扫码加我 拉你入群

请注明：姓名-公司-职位

以便审核进群资格，未注明则拒绝

分享0 收藏0 回帖

关键词：循环语句 解决问题 求助 SAS 语句

1. proc import datafile="d:\1.xls" out=t1;
   
2. run;quit;
   
3. proc contents data=t1 out=t2(keep=name varnum where=(upcase(name)^='ID'));
   
4. run;
   
5. quit;
   
6. proc sql;
   
7.         select name into:name separated by ',' from t2  order by varnum;
   
8. quit;
   
9. %put &name;
   
10. proc sql;
    
11.         create table t3 as
    
12.                 select
    
13.                         &name
    
14.                         ,case when count(distinct id)>1 then count(distinct id) else . end as flg
    
15.                 from t1
    
16.                 group by
    
17.                         &name
    
18.         ;
    
19. quit;

复制代码

不知道是不是这个意思，楼主试试看

1. libname exl 'd:\1.xls';
   
2. data _null_;
   
3.     length contents $ 500;
   
4.     if _n_=1 then do;
   
5.         declare hash h(hashexp: 16);
   
6.         rc = h.defineKey('contents');
   
7.         rc = h.defineData('id', 'repeat');
   
8.         rc = h.defineDone();
   
9.         call missing(contents, id, repeat);
   
10.     end;
    
11.     set exl.'Fish'n end = last;
    
12.     contents = cats(of _character_);
    
13.     rc = h.find();
    
14.     if rc = 0 then do;
    
15.         repeat+1;
    
16.         rc = h.replace(key: contents, data: id, data: repeat);
    
17.     end;
    
18.     else rc = h.add(key: contents, data: id, data: 1);
    
19.     if last then rc = h.output(dataset: 'work.temp');
    
20. run;
    
21. proc sql;
    
22.     create table out as
    
23.         select b.repeat, a.*
    
24.             from exl.'Fish'n a, temp b
    
25.             where a.id=b.id
    
26.             order by a.id;
    
27. quit;
    
28. libname exl clear;

复制代码

非常感谢楼主！！

楼主：我是SAS8.0的版本，好像没法用。请指导！！

现在还有人用8.0啊