SAS行空白单元格替换

是 否 +2 论坛币

k人 参与回答

经管之家送您一份

应届毕业生专属福利!

求职就业群

赵安豆老师微信：zhaoandou666

经管之家联合CDA

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

立即领取

感谢您参与论坛问题回答

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

+2 论坛币

请教各位大神，有8个变量，想把每一行中的变量都往前移，替换前面空白的！如下所示：

Var1	Var2	Var3	Var4	Var5	Var6	Var7	Var8
a	b	c	d	a	x	s	a
c	z		x		z		r
	x	sa	a	gra	sx	x	f
a	s			f

希望处理后的结果是这样子

Var1	Var2	Var3	Var4	Var5	Var6	Var7	Var8
a	b	c	d	a	x	s	a
c	z	x	z	r
x	sa	a	gra	sx	x	f
a	s	f

谢谢啦！！！

扫码加我 拉你入群

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

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

分享0 收藏0 回帖

关键词：单元格 ABCD VaR ABC CDA

1. data a;
   
2. input @1 Var1 $1. @3 Var2 $3. @7 Var3 $4. @11 Var4 $3.        @15 Var5 $5. @20 Var6 $3.         @23 Var7 $3.        @27 Var8 $3.;
   
3. cards;
   
4. a        b        c        d        a        x        s        a
   
5. c        z                x                z                r
   
6.         x        sa        a        gra        sx        x        f
   
7. a        s                        f       
   
8. ;
   
9. run;       
   
10. data b(keep=var:);
    
11. set a;
    
12. array a{*} var1-var8;
    
13. array b{*} b1-b8;
    
14. do i=1 to 8;
    
15. if a(i)^='' then b(i)=i;
    
16. else b(i)=9;
    
17. end;
    
18. do j=1 to 7;
    
19.         do i=j+1 to 8;
    
20.                 if b(j)>b(i) then do;
    
21.                         c=a(j);a(j)=a(i);a(i)=c;
    
22.                         d=b(j);b(j)=b(i);b(i)=d;
    
23.                         end;
    
24.            end;
    
25. end;
    
26. run;

复制代码

我有简便方法，待会贴代码。

1. data b;
   
2. set a;
   
3. format vars $100.;
   
4. vars = catx(',',of var1-var8);
   
5. array a{8} $;
   
6. do i = 1 to count(vars,',')+1;
   
7. a{i} = scan(vars,i);
   
8. end;
   
9. drop var1-var8;
   
10. run;

复制代码

mingfeng07 发表于 2015-9-23 14:13

谢谢！这逻辑有点复杂呀

qinly10 发表于 2015-9-23 20:14

厉害！[em29][em29][em29][em29]