data test;
infile datalines;
input x1 x2 x3 x4 x5;
datalines;
1    1   2   3   4
2    2   2   3   3
4    4   3   2   1
;
run;
options mprint mlogic;
%macro countif(orgset, num);
data &orgset;
   set &orgset;
   array y(4) y1-y4 (0 0 0 0);
   %do i=1 %to #
           select (x&i);
             %do j=1 %to 4;
                   when(&j) y&j=y&j+1;
                 %end
             otherwise;
           end;
   %end;
run;
%mend countif;
%countif(test,5)

和楼上差不多的：

学习了，很有效！多谢

data test;
infile datalines;
input x1 x2 x3 x4 x5;
datalines;
1    1   2   3   4
2    2   2   3   3
4    4   3   2   1
;
run;

data a;
    set test;
    y=cat(of x1-x5);
    y1=length(y)-length(compress(y,'1'));
    y2=length(y)-length(compress(y,'2'));
    y3=length(y)-length(compress(y,'3'));
    y4=length(y)-length(compress(y,'4'));
run;

聪明。
如果用length(kcompress(y,i,'k')是不是更直接一些。
我没有试，不知道行不行。