SAS数据转置

data a;
input y1999 y2000 y2001;
cards;
234 345 435
345 4555 3456
;
run;
proc contents data=a out=name(keep=name) noprint;
run;
data _null_;
set name;
i=_n_;
year=input(substr(name,2),8.);
call symput(compress("j"||i),year);
run;
%put _user_;
%macro merg;
data b;
set a;
array k{3}_numeric_;
%do i=1 %to 3 ;
ii=&i;
year1=&&j&i;
procduct=k{ii};
output;
%end;
keep year1 procduct;
run;
%mend;
%merg;

呵呵 有点复杂 我仔细研究一下哈 谢谢啦

看不懂

看看这个行不行

1. proc import datafile="D:\rec.XLSx" out=AA
   
2. dbms=excel  replace;
   
3. getnames=no;
   
4. run;
   
5. 
   
6. data want;
   
7. retain b1-b11;
   
8. keep code year x ;
   
9. array a{11} f2-f12;
   
10. array b{11};
    
11. set AA;
    
12. if _n_<=2 then do i=1 to 11;
    
13.         b[i]=a[i];
    
14. end;
    
15. if _n_>2 then do i=1 to 11;
    
16.         code=f1;
    
17.         year=b[i];
    
18.         x=a[i];
    
19.         output;
    
20. end;
    
21. run;

复制代码