你也在啊 老乡

难得来看看......

第一次发帖，看到你回复我震惊了！！谢谢！！我试一下看。

%macro test(k,ds);
proc contents data=&ds out=temp1(keep=name varnum);quit;
proc transpose data=temp1 out=temp2 prefix=var;
        var name;
        id varnum;
run;
data _null_;
        set temp2;
        array var[*] $ var:;
        n=dim(var);
          ncomb=comb(n,&k);
   do j=1 to ncomb+1;
      call allcomb(j, &k, of var[*]);
      rc=dosubl('data want'||strip(put(j,best.))||';set yourdata; keep ' %do i=1 %to &k; || var&i %end; ||'; run;');
   end;
run;
%mend;
%test(3,yourdata)