比如有一条记录如下
A1 A2 A3 A4  A5  A6  A7  A8 A9   A10
1   1    2   1    4    2    7   8    1    11
则B1=6  B2=2  B3=2

顶起

*try the macro as follow;
%macro a;
data a;
   set a;
      %do i=1 %to 36;
             if a&i<3 then na&i=1;
                 else if a&i<8 then nb&i=1;
                 else nc&i=1;
      %end;
          b1=sum(of na1-na36);
          b2=sum(of nb1-nb36);
          b3=sum(of nc1-nc36);
          drop na1-na36 nb1-nb36 nc1-nc36;
run;
%mend;
%a;

good!

or Array:
b1=0;
b2=0;
b3=0;
do i= 1 to 36;
b1 + (a[I]<3);
b2 + (3<=a[I]<8);
b3 + (a[I]>=8);
end;

我将数字变量变成字符变量，然后再通过COUNTC与CATS结合的函数来做统计，走了弯路~平时用宏用的少，这个方法很受用，非常感谢您的指点