SAS如何通过循环截取数据形成新的表格？

现用SAS处理如下格式的数据。每张表格有30列（名称，分数，名称，分数。。。一共30列），每个日期都有一张，一共有500张左右的表格。




想要导入后进行整理成整理后数据的格式（名称，分数，日期三列）。




目前思路是循环导入原始数据（import函数是否可以循环，怎么写代码），然后循环截取第1、2列，3、4列，5、6列。。。。再重新合并为一张表，

加入时间变量。

代码data temp1; do i=1 to 29 by 2 j=i+1，keep 列i 列j;run; 但是只能循环数字，“列i”就识别不出来了。

求高手相助！！！！！

请养成一个好的习惯，上传数据

superguy333 发表于 2018-8-27 11:07
请养成一个好的习惯，上传数据

上传了两个数据范例，实际数据大很多，麻烦高手帮看看~~

Lotus10 发表于 2018-8-27 11:25
上传了两个数据范例，实际数据大很多，麻烦高手帮看看~~

数据文件太少不利于写宏，单个数据文件可以搞定，加QQ46520630详谈。

superguy333 发表于 2018-8-27 23:24
数据文件太少不利于写宏，单个数据文件可以搞定，加QQ46520630详谈。

我已经自己解决了，谢谢

1. %LET start_DATE=20151114;
   
2. %let filepath=C:\Users\Administrator\Documents;
   
3. 
   
4. PROC IMPORT OUT= WORK.date&start_DATE
   
5.             DATAFILE= "&filepath\&start_DATE..xlsx"
   
6.             DBMS=excel REPLACE;
   
7.      RANGE="Sheet1$";
   
8.      GETNAMES=YES;
   
9.      MIXED=NO;
   
10.      SCANTEXT=YES;
    
11.      USEDATE=YES;
    
12.      SCANTIME=YES;
    
13. RUN;
    
14. 
    
15. DATA date&start_DATE (KEEP= NAME code );
    
16. SET date&start_DATE ;
    
17. array  _COL{0:29} _COL0-_COL29  ;
    
18.      do i=0 to 29;
    
19.             do;
    
20.         IF MOD(I,2)=0 THEN    NAME= _COL{I} ;  
    
21.         ELSE    DO;  CODE=_COL{I} ;OUTPUT; END;
    
22.                 END;
    
23.      end;
    
24. 
    
25. run;
    
26. 
    
27. DATA date&start_DATE (KEEP= NAME code yyyymmdd);
    
28. SET date&start_DATE ;
    
29. yyyymmdd=&start_DATE ;
    
30. run;

复制代码