SAS数据集如何循环获取列数据集，求大神帮忙

是 否 +2 论坛币

k人 参与回答

经管之家送您一份

应届毕业生专属福利!

求职就业群

赵安豆老师微信：zhaoandou666

经管之家联合CDA

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

立即领取

感谢您参与论坛问题回答

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

+2 论坛币

已知一个数据集A，有很多列(62行，37列)，如何获取新的37个数据集，这些新的数据集分别取第一列和第二列、第一列和第三列、第一列和第四列，一直下去到最后的第一列和第37列（说明：不能用keep=变量名称的方式获取，因不知道列名，枚举太多了）！！！请大神帮忙，非常感谢

扫码加我 拉你入群

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

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

分享0 收藏2 回帖

关键词：sas数据集 数据集 非常感谢 keep 不能用

keep是肯定要keep的，不存在无法枚举的问题。按dictionary.columns里的varnum把变量名做成list，然后宏循环keep即可。

按照你的规则，37列的原始数据集应该分割为36个小数据集才对，不是37个。

编写程序如下：

1. %macro Ds_SplitByVar(Base,Rule);
   
2. /*默认规则:分裂后的第i个子数据集选取Base数据集的第1个变量和第i+1个变量*/
   
3. 
   
4. %local varnum varlist;
   
5. 
   
6. /*1. 获取Base数据集的变量列表*/
   
7. %let rc = %sysfunc(open(&Base));
   
8. %if &rc %then %do;
   
9.         %let varnum = %sysfunc(attrn(&rc,nvars));
   
10.         %do i = 1 %to &varnum;
    
11.                 %let varlist = &varlist %sysfunc(varname(&rc,&i));
    
12.         %end;
    
13.         %let rc = %sysfunc(close(&rc));
    
14. %end;
    
15. 
    
16. /*2. 执行varnum-1次循环, 将Base数据集按照Rule分割到子数据集中*/
    
17. %do i = 2 %to &varnum;
    
18.         data work.%scan(&Base,-1)&i;
    
19.                 set &Base;
    
20.                 keep %scan(&varlist,1) %scan(&varlist,&i);
    
21.         run;
    
22. %end;
    
23. %mend;
    
24. 
    
25. 测试用例：
    
26. %Ds_SplitByVar(Base=sashelp.class);

复制代码

%Macro subDataset;
%do i=1 %to 37;
Proc sql;
select name into :vname&i
from   dictionary.columns
where  UPCASE(libname)="MYLIB" and UPCASE(memname)="MYDATASET"
    and varnum in (&i);
quit;
%end;
%do j=2 %to 37;
data want&J;
set MYLIB.MYDATASET(keep=&vname1 &&vname&j);
run;
%end;
%mend;
%subDataset;

1. /*假设表名为class2*/
   
2. %let table=class2;
   
3. proc contents data=&table. out=class_vname(keep=Name) noprint;
   
4. run;
   
5. 
   
6. data _null_;
   
7. set class_vname end=last;
   
8. call symput("vname"||compress(_n_),name);
   
9. if last then call symput("vnamen",compress(_n_));
   
10. %put &vname1 &vnamen ;
    
11. run;
    
12. 
    
13. %macro class ();
    
14. %do i =2 %to &vnamen %by 1;
    
15.         data class2_&&&vname&i ;
    
16.                 set class2;
    
17.                 keep &vname1 &&&vname&i ;
    
18.                 run;
    
19. %end;
    
20. %mend class;
    
21. %class;

复制代码