if (_col18-_col25 in (1,2)) 这个本身自己的逻辑就没表示清楚吧，是每个col都在（1，2）中呢，还是有一个col在（1，2）就可以了？所以这语法肯定是通不了的。
用数组做循环，或者用max之类的函数巧妙处理下。

这些是原始数据，没有转置。
sas的数组我不太会用，能不能麻烦您写一下代码？不过这些列没有之间没有规律啊，比如_col2, _col4, _col6, _col7, of _col18-_col25, _col27怎么实现那？
十分感谢！

可能是没这个用法吧。我希望我列的这些列都能满足。
谢谢哈！

楼主的意思是：在一个数据集中，把满足条件的变量找出来？？？不知道理解得对不对。
方法1先转置，数据量大的话，效率低一些；方法2效率应该会高些。
纯粹是搞笑，仅供参考。。。

下面的代码是我想实现的，求有没有简单的代码来实现那？
%macro valid(r);
%do i=1 %to &r;
data b&i;set a&i;
if (max(_col2, _col4, _col6, _col7, of _col18-_col25)in (1,2) and min(_col2, _col4, _col6, _col7, of _col18-_col25) in (1,2)) and
   (_col5 in(1,2,3)) and
   (max(_col3, _col8)in (1,2,3,4) and min(_col3, _col8)in (1,2,3,4)) and
   (max(of _col10-_col17)in (1,2,3,4,5) and min(of _col10-_col17) in (1,2,3,4,5)) and
   (_col9 in(1,2,3,4,5,6,7,8,9,10,11,12)) and
   (max(of A1-A24)in (1,2,3,4,5) and min(of A1-A24) in (1,2,3,4,5)) and
   (max(of B1-B30)in (1,2,3,4,5) and min(of B1-B30) in (1,2,3,4,5)) and
   (max(of C1-C68)in (1,2,3,4,5) and min(of C1-C68) in (1,2,3,4,5)) then output b&i;
run;
%end;
%mend valid;
%valid(20);
但是这个代码的最后结果会包含缺失值，我想把缺失值也给删除，怎么实现那？下面这个代码对吗？
%macro nonmiss(r);
%do i=1 %to &r;
data b&i;set b&i;
%do j=0 %to 25;if missing(_col&j) then delete;%end;
%do j=1 %to 24;if missing(A&j) then delete;%end;
%do j=1 %to 30;if missing(B&j) then delete;%end;
%do j=1 %to 68;if missing(C&j) then delete;%end;
run;
%mend nonmiss;
%nonmiss(20);
如果我想筛选出有效的数据（条件见上面的代码）并删除有缺失值得行，有没有代码可以同时实现？不用编2个宏了。
十分感谢！

是想把满足条件的记录全部输出，谢谢！

试试

不知能不能用，能用的话效率会高些

十分感谢您的及时和耐心回复！
您发表于00：:6的那个和我代码跑出的结果相同，但下面那个00:32的，您说效率高的那个结果与我的不相同，结果相对于前面的偏多，但是没用error，为什么那？还有为什么下面的比上面运行效率高那？
对了sas里max(of _col18-_col25 _col2 _col4 _col6 _col7) 和max(of _col18-_col25 ，_col2， _col4， _col6 _col7)只是写法不同，结果是相同的，对吗？
谢谢！

麻烦上传一个数据集。。。。

这是其中的一个数据集，十分感谢！

顺便提醒一下，您的条件有一部分写错了，应该是
where 1 le _col5 le 3 and 1 le _col9 le 12 and not missing(_col0) and not missing(_col1);
array array1 _col2 _col4 _col6 _col7 _col18-_col25;
do over array1;if 1 le array1 le 2;end;
array array2 _col3 _col8;
do over array2;if 1 le array2 le 4;end;
array array3 _col10-_col17 A1-A24 B1-B30 C1-C68;
do over array3;if 1 le array3 le 5;end;
十分感谢！

前面那个靠谱些，后面那个_col6 还有缺失值，具体原因未知。
还请大牛们给指点一下子。。。。。。

貌似缺失值应该先处理一下。。。

十分感谢您的细心指点。
附件是变量的解释。我想对_col4,_col5,_col25-_col30重新写判断它们有效性的条件。不仅每列的值在选项范围内，并且要符合答题条件。如果看了附件有什么疑惑请及时和我联系。下面是我写的代码，但感觉不对，好像输出的结果有点少，求改进。
%macro valid(r);
%do i=1 %to &r;
data b&i;set a&i;
if not((((_col4=2) and  missing(_col5)) or ((_col4=1) and _col5 in(1,2,3))) and
((_col25=1 and _col26 in(1,2,3,4) and  _col27 in(1,2) and _col28 in(1,2,3,4,5,6)and _col29 in(1,2,3) and _col30 in(1,2,3)) or
(_col25=2 and  missing(_col26) and missing(_col27) and missing(_col28) and missing(_col29) and missing(_col30))) and
((_col27=1 and _col28  in(1,2,3,4,5,6) and _col29  in(1,2,3) and _col30  in(1,2,3))or
(_col27=2 and missing(_col28) and missing(_col29) and missing(_col30)))) then output;
run;
%end;
%mend morevalid;
%morevalid(22);

试试

十分感谢您的及时回复。
sas里missing的函数好像没有missing(of _col28-_col30)的用法，因为有ERROR 72-185: MISSING 函数调用参数过多;我试了一下，如果写成missing(_col28-_col30)则相当于只对missing(_col30)进行判断;
您写的if...else if也有error，如下：
160: 无法确定 LINE 和 COLUMN。
NOTE: NOSPOOL 已打开。用 OPTION SPOOL 重新运行可恢复出错的 LINE 和 COLUMN。
ERROR 160-185: 没有匹配的 IF-THEN 子句。
还有我觉得第4题的结果不会影响第6题，只会对第5题产生影响。
我改了一下，并运行，感觉是对的，您看一下，见下。就是不知道还有没有简单的code。
%macro morevalid(r);
%do i=1 %to &r;
data final&i;set school_valid&i;
if ((_col4=1 and not missing(_col5))
           or (_col4=2 and missing(_col5)))
and ((_col25=1 and _col27=1 and not missing(_col26) and not missing(_col28) and not missing(_col29)and not missing(_col30))
           or (_col25=1 and not missing(_col26) and _col27=2 and missing(_col28)and missing(_col29)and missing(_col30))
           or(_col25=2 and missing(_col26)and missing(_col27)and missing(_col28)and missing(_col29)and missing(_col30)));

run;
%end;
%mend morevalid;
%morevalid(22);

嗯，else if换成if就可以了。