两列多对多数据拆分成1对1数据。

一组数据，B，C两列是对应的，比如下图，B2有两个基因，那么C2就有两个group按顺序对应，
                                                                   B3有6个基因，那么C3就有6个group按顺序对应。

能否拆分成1对1的，详见result：


need help.rar (12.28 KB) 本附件包括：

• need help.xls

2014-8-4 14:01:27 上传

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

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;

楼上把空行漏了

ziyenano 发表于 2014-8-4 15:36
proc import out=ex
datafile="E:\need help.xls"
replace;

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

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

learsaas 发表于 2014-8-4 16:09
楼上把空行漏了

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


我看到你这句话，就先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;

ziyenano 发表于 2014-8-4 17:48
补上空行：
data ex1;
set ex;

谢谢你的关于补充空行的补充帖子。