Hi, You can write a macro for the following code if there are more variables.

data test;
input id p1 p2 p3;
cards;
1 111 112 113
1 121 122 .
1 131 132 133
2 211 . 213
2 221 222 223
3 311 312 313
3 321 322 323
3 331 332 333
3 341 342 343
; run;
data test_1;    set test(keep = ID P1); run;
data test_2;    set test(keep = ID p2); run;
data test_3;    set test(keep = ID p3); run;
proc sort      data=test_1 out=test_1_sort;   by ID; run;
proc sort      data=test_2 out=test_2_sort;   by ID; run;
proc sort      data=test_3 out=test_3_sort;   by ID; run;

data test_p1;
   set test_1_sort;
   if first.id then do;    N_id=1;  end;
   else N_id+1;
   by id;
run;

data test_p2;
   set test_2_sort;
   if first.id then do;    N_id=1;  end;
   else N_id+1;
   by id;
run;
data test_p3;
   set test_3_sort;
   if first.id then do;    N_id=1;  end;
   else N_id+1;
   by id;
run;

proc transpose data=test_p1 out=test_p1trans (drop=_name_) prefix=P1;
     by id;
         var p1;
         iD  N_id;
run;
proc transpose data=test_p2 out=test_p2trans (drop=_name_) prefix=P2;
     by id;
         var p2;
         iD  N_id;
run;proc transpose data=test_p3 out=test_p3trans (drop=_name_) prefix=P3;
     by id;
         var p3;
         iD  N_id;
run;

data test_result;
   merge test_p1trans test_p2trans test_p3trans;
   by ID;
run;

data a;
input id p1 p2 p3;
cards;
1 111 112 113
1 121 122 .
1 131 132 133
2 211 . 213
2 221 222 223
3 311 312 313
3 321 322 323
3 331 332 333
3 341 342 343
;
run;

data b;
retain id;
array pone(3);
array ptwo(3);
array pthree(3);
do i=1 to 3;
set a;
pone(i)=p1;
ptwo(i)=p2;
pthree(i)=p3;
end;
drop i p1 p2 p3;
run;

您这个方法也很好用，但是如果变量多，比如我加了P4，貌似后面都改成四就没用了，还得跟你请教下应该怎么办呢？