proc import out=ex
datafile="E:\need help.xls"
replace;
sheet="raw_data";
run;

data ex1;
set ex;
i=1;
do while(1=1);
gene1=scan(gene,i,';');
group1=scan(mini_group,i,';');
i+1;
if gene1="" then leave;
output;
end;
keep id gene1 group1;
run;

proc sort data=ex1 noduplicate;
by id gene1 group1;
run;

楼上把空行漏了

再加上我网上搜索到的保存sas到excel的代码。
libname  myxls  EXCEL 'E:\输出到XLS文件.xls';
data myxls."我的第一张表"n(dblabel=YES);
set ex1;
run;
libname myxls clear;

非常感谢ziyenano的热心帮忙！
祝好！

楼上把空行漏了，什么意思？


我看到你这句话，就先excel里面排序，去掉空行了。

谢谢。

补上空行：
data ex1;
set ex;
i=1;
do while(1=1);
gene1=scan(gene,i,';');
group1=scan(mini_group,i,';');
if i^=1 and  gene1="" then leave; ##这里修改一下
i+1;
output;
end;
keep id gene1 group1;
run;