根据网友给我的帮助，我汇总下答案:

data a;
input v1-v4;
cards;
1 2 3 4
1 . 3 .
. 2 . 4
;
run;
data b;
set a;
array v(4)v1-v4;
array v_a(4)v_a1-v_a4;
retain v_a1-v_a4;
do i =1 to 4;
if v(i)^=. then v_a(i)=v(i);
end;
keep v_a1-v_a4;
run;

你的程序只能保证每个变量的第一条记录非缺失值才能起作用。