由于60个项目太多，每个都用if then 太麻烦。请教大佬们，有没有do loop 或宏程序的方法简化编码？

1、先把ID 和项目编号单独 罗列出来  
data   tmp;
    set dt1;
format new_var $10.;
  n=countw(var,',');   
  do i=1 to n;
      new_var=scan(var,i);
      output;
end;
2、需要问清楚其他问题，再进行下一步
ID值，与 var 值是什么关系，你需要的业务判断是怎样的？
run;

根据您的方法我做出的结果是这样的：

似乎用scan找出的是var 各有几个项目，最后一个项目是什么。不太符合我的目的。我想知道的是var中各个项目分别出现了多少次。比如一些问卷的多选题数据，想知道选A的有多少人，B的多少人，后续可能要分组，分别对两组是否选A进行卡方检验，看有无显著差异。

同样感谢~

其实代码产生的结果是这样子,注意两个红框。

只是我不知道你最终想要怎样的结果表格，
你举个例子，我就能帮你弄出同样的表格

不能copy 东西出来，用截图吧
加个input把 log clean下
if input(scan(var,j,','),best.)=&i then c&i=1;

试试这一段。可惜就是写的有点长。
data test;
input id var:$80.;
datalines;
2 57,2,7,9,16,35
1 .
3 17
4 5
5 21,55
6 9,39,58,60
;
run;
%macro query(dataset=);
proc sql noprint;*计算受试者id的数量;
select count(id) into:idnumber
from &dataset.;
quit;

%do n=1 %to &idnumber.;*把不同id的受试者分到不同数据集中;
data data_1_&n.;
  set &dataset.;
   %do i=1 %to 60;
    var&i.=scan(var,&i.,',');
   %end;
  where id=&n.;
run;

proc transpose out=data_2_&n. data=data_1_&n.;*转置;
  var var1-var60;
run;
%end;

data total;run;
%do j=1 %to &idnumber.;*把数据集叠加起来;
data total;
  set total data_2_&j.;
  if col1='' then delete;
run;
%end;

proc sql noprint;*生成数据集，lbtest对应检查项，count对应阳性数量;
create table count as
select col1 as lbtest,count(col1) as count
from total
group by col1
quit;
%mend;
%query(dataset=test);