data test;
  input x1 $ x2 $ x3 $ x4 $ x5 $ x6 $ ;
  cards;
c1 c3 c5 c3 c1 c2
c2 c8 c9 c2 c9 c8
;
run;

data test ;
  set test end=eof ;
  if eof then call symput("TotalRecords", _n_) ;
run;
%put &totalRecords ;

proc transpose data = test out=one ;
  var x1 - x6 ;
run;

%macro getcount ;
proc sql ;
  create table two as
  select %do i=1 %to &totalRecords ;
           col&i,
         %end ;
         _NAME_
  from one
  union
  select %do i=1 %to &totalRecords ;
           strip(put(count(distinct col&i.), best8.)) as col&i ,
                 %end ;
                 'Num' as _NAME_
  from one ;
quit ;
%mend getcount ;

%getcount

proc transpose data=two out=temp(drop=_name_) ;
  id _NAME_ ;
  var COL: ;
run;

data temp (drop=num);
  set temp ;
  num_count=input(num,best8.) ;
run;

思路不错，必须赞一个~~

data test;
  input x1 $3. x2 $3. x3  $3. x4  $3. x5 $3.  x6 $3.;
  cards;
c1 c3 c5 c3 c1 c2
c2 c8 c9 c2 c9 c8
;
run;



data test_one;
        set test;
        array x(6) x1-x6;
        array a(6) $ a1-a6;
        a1=x1;
        count=0;
        num_count=0;
        do i=2 to 6;
                do j=1 to i-1;
                if x(i) eq a(j) then count=1;
                end;
                if count eq 0 then a(j)=x(i);
                count=0;
        end;

        do j=1 to 6;
                if a(j) ne '' then num_count+1;
        end;

        drop a1-a6 count i j;
run;