这个有点问题 如果有-1 + 1 的情况肯定就不行了 不具有推广性

如果变量特别多不能一一写出来 我只能想到一种比较笨的方法基本可以通用 即用sas字典关于变量的记录来编程
data have;
input name $ a b c d e f g h i j k;
cards;
we 1 2 0 1 0 0 0 0 0 0 0
yu 1 1 1 1 0 0 0 0 0 0 0
wu 0 0 0 0 0 0 0 0 0 0 0
fw 0 0 1 0 0 0 0 0 -1 0 0
;
run;
proc sql;
select count(name) into : count ，name into :
var separated by ' '  from sashelp.vcolumn
where libname='WORK' and memname=upcase('have') and type='num';
quit;

data want(drop=total);
set have;
array dd &var;
total=0;
do over dd;
if dd=0 then total+1;
end;
if total=&count then delete;
run;

data test;
set have;
array var

_numeric_;
do n=1 to dim(var);
var[n]=abs(var[n]);
end;
if sum(of a--k)=0 then delete;
drop n;
run;

我觉得这样也可以

但原始值就变动了貌似

你说的对，太仓促了呵呵，你看一下这样可以吗？

data test;
set have;
   n_num=n(of _numeric_);
         array var

_numeric_;
         num=0;
         do n=1 to dim(var);
          if var[n]=0 then num=num+1;
         end;
         if num=n_num then delete;
  keep a -- k;
run;

我之前居然以为将几个变量赋给数组后，do over 数组是从上到下读的，悲剧的，走了好多冤枉路