proc transpose data=test out=miss;
var _all_;
run;

data calmiss;
set miss;
num=nmiss(of col:);
tot=n(of col:)+nmiss(of col:);
run;

proc sql noprint;
select distinct _name_ into: var separated by ""
from calmiss
where num/tot >=0.9;
quit;

data wanted;
set test;
drop &var;
run;

谢谢您。code跑的时候提示未引用过drop中的变量...我理解您的意思，是转置后计算。可如果本身数据的样本量也较大，是不是不适合转置呢？  请问怎么可以计算所有变量的缺失值率呢？

谢谢您。code跑的时候提示未引用过drop中的变量...我理解您的意思，是转置后计算。可如果本身数据的样本量也较大，是不是不适合转置呢？  请问怎么可以计算所有变量的缺失值率呢？

try this:

proc freq data=test nlevels;
table _all_;
ods output nlevels=nlevels;
run;

data nobs;
set test end=last;
nobs=_n_;
if last;
keep nobs;
run;

data calmiss;
set nlevels(keep=tablevar nnonmisslevels);
if _n_=1 then set nobs;
if (nobs-nnonmisslevels)/nobs>=0.9;
run;

data _null_;
set calmiss end=last;
if _n_=1 then call execute("data wanted;set test;drop ");
call execute(tablevar);
if last then call execute(";run;");
run;