data emp;
infile datalines missover ;
length ev1-ev6 $5;
input empid EV1 $  EV2 $ EV3 $ EV4 $ EV5 $  EV6 $ ;
        cards;
1001        AB                 AT                  BTR                   S                 XYZ                 AT
1001        AT                 MY                  LOV                   .                 LOV                 LOV
1001        .                 MY                  .                   S                 MY                 S
1001        AB                 BTR                  LOV                   BTR                 AT                 AT
1001        AT                 LOV                  KUL                   MY                 .                 S
1002        MY                 LOV                  .                   AT                 AT                 BTR
1002        MY                 AT                  BTR                   .                 AT                 MY
1003        BTR                 MY                  .                   XYZ                 MY                 MY
1003        .                 MY                  MY                   MY                 MY                 BTR
1003        BTR                 AB                  MY                   .                 BTR                 .
1004        S                 .                  MY                   MY                 .                 XYZ
1004        XYZ                 AT                  KUL                   AB                 KUL                 S
1004        .                 .                  BTR                   LOV                 MY                 MY
1004        MY            KUL            AT            KUL           XYZ            AB
;
run;          

data emp1;
        set emp;
        order=_n_;
run;



proc transpose data=emp1 out=tr prefix=col;
by order empid;
var ev1-ev6;
run;


proc sql;
        create table final as select count(unique(empid)) as n,col1 from tr where col1>"" group by col1;
run;

学习了

%let lib=WORK; /* Assume your data in WORK library, if not, please change this value (need upcase) */
data _null_;
set sashelp.vcolumn end=last;
where libname="&lib" and memname="A" and upcase(name)=:"EV";
if _n_=1 then call execute("data a1;set a(keep=empid "||strip(name)||" rename=("||strip(name)||"=ev))");
else call execute("a(keep=empid "||strip(name)||" rename=("||strip(name)||"=ev))");
if last then call execute(";run;");
run;
proc sql;
create table b as
select ev, count(distinct empid) as n
from a1
where ev ne ''
group by ev;
quit;

data test;
  input empid ev1 $ ev2 $ ev3 $ ev4 $ ev5 $ ev6 $;
  datalines;
  1001 ab at etr s xyz at
  1001 at my lov at lov lov
  1001 my my s my s s
  1002 my lov s at at btr
  1003 btr ab my s btr my
  1004 s my my my btr xyz
  ;
run;

proc transpose data=test out=test1(drop=ev1 rename=(_name_=ev col1=value));
  by empid ev1;
  var ev1-ev6;
run;

proc sort data=test1 nodupkey out=result;by ev empid;run;

proc freq data=result;
  table value/out=result1(drop=percent rename=(count=N));
run;