今天被老板要求把一个几十万的名单分成每1000个名单一个组，然后按照组分别导出为txt文档。
前面步骤省略，仅列出关键步骤
i表示分组
for (i in 1:10) {
  write.table(a[ceiling(a/1000)==i],file=paste('d:/',i,'.txt',sep=""),row.names=FALSE,col.names=FALSE)

}