怎么实现？

shiyiming

我的数据集是这样的：
   a1  a2  a3 b1 b2  b3
     1    2    3   4   5    6
我想将其转变为
a   b
1  4
2  5
3  6
怎么转变？谢过大家。

shiyiming

[code:1uqxmi67]data a;
input a1-a3 b1-b3 @@;
cards;
1 2 3 4 5 6
;
run;
proc transpose data=a out=out;
run;
data new(keep=a b);
set out;
if substr(_name_,1,1)='a' then a=col1;
else if substr(_name_,1,1)='b' then b=col1;
run;[/code:1uqxmi67]
不知道这样能否满足你的要求？

shiyiming

[code:2fxo6p1j]%macro v;
%do i= 1 %to 36;
   a=money&i;
   b=interest&i;
   c=month_capital&i;
   d=balance&i;
   output;
   drop money&i interest&i month_capital&i balance&i ;
%end;
%mend;
data clr;
set lesong;
%v;
run; [/code:2fxo6p1j]