%let ds=work.aaa;
proc freq data=&ds nlevels;
   table _all_;
   ods output nlevels=nlevels(where=(nnonmisslevels>0));
run;

data _null_;
    set nlevels end=last;
        if _n_=1 then call execute("data &ds; set &ds; keep ");
                      call execute(tablevar);
        if last  then call execute(";run;");
run;

我的代码很简单的，而且对字符型和数值型都适用。

这个好巧妙啊，赞一个