你把两个循环拆开试试。

拆开也不行

你有22个表， 这里你如果能提供2个你的excel的数据文件（不需要全部），2个可以了，22个不就是改个数字而已嘛
这样别人也知道你的excel的数据结构，更容易找出问题所在。
否则大家就只能是在猜数据，感觉程序对不对。难以针对性改进

你说的很对，现在就贴上

我上传了两个表数据，我写的简化的程序是这样的
setwd("D:\\RBOOK")
y<-list.files(pattern=".csv")
z<-lapply(y,function(x) read.csv(x,header=T))
varname<-paste("pro",1:22,sep="")

for(r in 1:2){a.r<-z[[r]]
               b.r<-data.frame(a.r[,c(1,2,10)])
               for(i in varname){assign(i,b.r)
                                 write.csv(b.r,paste(i,".csv",sep=""))}}
但是发现到处的表格数据都是一样的

rm(list=ls())

setwd("D:\\RBOOK")
y<-list.files(pattern=".csv")
y

z <- lapply(y, function(x) read.csv(x, header = T))

for(r in 1:2){
  nam <- paste("a", r, sep = ".")
  assign(nam, z[[r]][,c(1,2,10)])
  write.csv(get(nam), file = paste("pro", r,".csv",sep=""))  
}

非常感谢，请问下最后的get(nam)表示什么

获取前面生成的变量名称

R也是刚看了一些，知道的不多，

好的，表示感谢

你write。csv的函数在大循环里面。当然写的一样。