先占个沙发慢慢想
[code:xfm4jq66]data A;
input var $;
datalines;
a
b
c
c
d
e
f
g
h
i
;
data a;
set a;
by var;
if first.var then varid=0;
varid+1;
run;
data b;
input var $;
datalines;
a
b
c
e
g
h
i
j
j
k
;
data b;
set b;
by var;
if first.var then varid=0;
varid+1;
run;
data c;
set a(in=a) b;
id=ifn(a,1,2);
run;
proc sort data=c;
by var varid;
run;
proc transpose data=c out=c(keep=var1 var2) prefix=var;
by var varid;
id id;
var var;
run;[/code:xfm4jq66]