表格合并（二合并一）

code	date	a	b
1	2	0.1	0.2
1	3	0.1	0.2
1	4	0.1	0.2
1	5	0.1	0.2
1	6	0.1	0.2
2	5	0.1	0.2
2	6	0.1	0.2
2	7	0.1	0.2
2	8	0.1	0.2
2	9	0.1	0.2
3	3	0.1	0.2
3	4	0.1	0.2
3	5	0.1	0.2
3	6	0.1	0.2
3	7	0.1	0.2

code	date	a	b
1	1	1111	4444
2	2	2222	5555
3	2	3333	6666

由上面的表格得到下面的表格，表1中的code是没有排序的，但是是聚集的，date排序过的。
请避免使用sql和proc sort，第二个表格中的观测必须在第三个表格中每一个code的第一条

code	date	a	b
1	1	1111	4444
1	2	0.1	0.2
1	3	0.1	0.2
1	4	0.1	0.2
1	5	0.1	0.2
1	6	0.1	0.2
2	2	2222	5555
2	6	0.1	0.2
2	7	0.1	0.2
2	8	0.1	0.2
2	9	0.1	0.2
3	2	3333	6666
3	3	0.1	0.2
3	4	0.1	0.2
3	5	0.1	0.2
3	6	0.1	0.2
3	7	0.1	0.2

1. data one;
   
2.     input code $ date a b;
   
3. datalines;
   
4. 1 2 0.1 0.2
   
5. 1 3 0.1 0.2
   
6. 1 4 0.1 0.2
   
7. 1 5 0.1 0.2
   
8. 1 6 0.1 0.2
   
9. 2 5 0.1 0.2
   
10. 2 6 0.1 0.2
    
11. 2 7 0.1 0.2
    
12. 2 8 0.1 0.2
    
13. 2 9 0.1 0.2
    
14. 3 3 0.1 0.2
    
15. 3 4 0.1 0.2
    
16. 3 5 0.1 0.2
    
17. 3 6 0.1 0.2
    
18. 3 7 0.1 0.2
    
19. ;
    
20. data two;
    
21.     input code $ date a b;
    
22. datalines;
    
23. 1 1 1111 4444
    
24. 2 2 2222 5555
    
25. 3 2 3333 6666
    
26. ;
    
27. data out;
    
28.     length code $8 date a b 8;
    
29.     if _n_=1 then do;
    
30.         declare hash h(hashexp:16,dataset:'two',ordered:'yes');
    
31.         h.definekey('code');
    
32.         h.definedata('date','a','b');
    
33.         h.definedone();
    
34.         call missing(code,date,a,b);
    
35.     end;
    
36.     do _n_=1 by 1 until(last.code);
    
37.         set one;
    
38.         by code;
    
39.     end;
    
40.     if h.find()=0 then output;
    
41.     do _n_=1 to _n_;
    
42.         set one;
    
43.         output;
    
44.     end;
    
45. run;

复制代码

表1中的code是没有排序的，但是是聚集的，那么需要在第一个BY语句后加NOTSORTED

    do _n_=1 by 1 until(last.code);
        set one;
        by code notsorted;
   end;

我也来凑个热闹，别忘了金币啊，呵呵

data one;

    input code $ date a b;

datalines;
1 2 0.1 0.2
1 3 0.1 0.2
1 4 0.1 0.2
1 5 0.1 0.2
1 6 0.1 0.2
2 5 0.1 0.2
2 6 0.1 0.2
2 7 0.1 0.2
2 8 0.1 0.2
2 9 0.1 0.2
3 3 0.1 0.2
3 4 0.1 0.2
3 5 0.1 0.2
3 6 0.1 0.2
3 7 0.1 0.2
;
run;
data two;

    input code $ date a b;

datalines;
1 1 1111 4444
2 2 2222 5555
3 2 3333 6666
;
run;
data one;
  set one;
  by code notsorted;
  output;
  if first.code then output;
run;

data one;
  modify one two;
  by code;
run;

谢谢