然后我打开结算统计表格，发现是这个样子的。

也就是说需要你一条条的点击下载。

当然我首先还是很聪明的，给网易云打电话，要总表。

然后 ，没人接。

打了半天，没人接。

暂时不吐槽，事情还是要做。

于是我开始一个个的下载。

这么多表格，其实其表头是一样的，如果能够合并，就真万幸了。

然后我开始找方法，有人说可以利用excel的宏编程，可惜，我这是wps。

还有别人开发好的工具，下载了几个软件，再被强制修改网页，添加插件，强行安装软件之后，终于，我按照好了这个工具。

然后发现，不能用。

最后，实在是没招了，我想到了R语言中专门处理Excel数据的包。

然后终于顺利的读取全部的表格，并进行了合并。

如果你也有需要合并excel表格的需求，不妨试一试这个包。

最后，贴上我的代码，希望对大家有所帮助。

install.packages("xlsx")

library("xlsx")

filelist<-list.files(getwd())

MergeTable<-read.xlsx(filelist[1],sheetIndex=1,encoding="UTF-8")

for(i in 2:length(filelist))

{

data<-read.xlsx(filelist[i],sheetIndex=1,encoding="UTF-8")

      MergeTable<-rbind(MergeTable,data)

}

write.xlsx(MergeTable,"M.xls", sheetName="Sheet1",

  col.names=TRUE, row.names=TRUE, append=FALSE, showNA=TRUE, password=NULL)

如有任何问题欢迎大家加入WeGAP讨论社区

扫描二维码即可加入

更多精彩内容，欢迎关注

一个物种一个家

TCGA | 小工具 | 数据库 |组装| 注释 |   基因家族  |  Pvalue

基因预测  |bestorf |  sci | NAR | 在线工具 | 生存分析 | 热图

 生信不死 | 初学者 | circRNA | 一箭画心| 十二生肖 | circos

 舞台|基因组 | 黄金测序 | 套路 | 杂谈组装 |  进化 | 测序简史