方法一:（利用数组求缺失值）

data quan(keep= k);

set quan.cydc;

array x _numeric_;

  do i=1 to dim(x);

   if x(i)=. then j+1;

   end;

   if _n_>1 then k=dif1(j);

   run;

proc print data=quan;

run;

方法二:（转置方法用过程步求缺失值）

proc transpose data=quan.BAIPU out=quan;

var X1-X10;

run;

proc means data=quan nmiss;

  var COL1-COL10;

  output out=quan1nmiss=miss1;

  run;

方法三：（转置后用sql求缺失值）

proc transpose data=quan.BAIPU out=quan;

var X1-X10;

run;

proc sql;

  select nmiss(col1)as miss1,nmiss(col2)asmiss2

  from quan;

  quit;

这些都是比较简单的程序，希望大牛们跟帖高级程序。