缺少b这个数据框，所以你的例子没办法复现，但是根据你的描述，你是打算每隔15行提取某些数据，一个比较可行的方法是，你正常跑完整个循环，然后计算出要提取出的行号，这样针对该行号提取相应的数据就可以了。

下面是总的代码，期待您的回复

setwd("F:/R/")  #文件位置
getwd()
library(xlsx)
a<- read.xlsx("F:/R/练习/20210111-trp-5-projects.xlsx",1) #文件位置
a<- a[order(a$Component.Name,decreasing = FALSE),]
a<- subset(a,a$Sample.Type =="Standard")
View(a)
b<- subset(a,a$Correlation.Coefficient != "N/A" )
View(b)
n<- nrow(b)/15-1
table<- list()
  for(x in 0:1){
  c<-b[(15*x+1):(15*x+15),]
  d<- subset(c,c$Used == TRUE,)
  e<- d[which.min(d$Calculated.Concentration),]
  LLOD<-e$Calculated.Concentration
  f<- d$Calculated.Concentration
  g<- as.numeric(f)          #让f的数变成数值型
  LLOQ<- min(g[g!=min(g)])   #去掉最小的那个数
  h<- d[which.max(d$Actual.Concentration),]
  ULOQ<-h$Actual.Concentration
  i<- d$Correlation.Coefficient
  R2<- max(i)
  j<- d$Component.Name
  Name<- j[1]
write.csv(data.frame(Name,LLOD,LLOQ,ULOQ,R2))
}

老样子，没有数据，没办法复现，你如果因为保密原因，可以提供一些人造数据。我理解的有几点，你拿table作为变量名可能不一定合适，因为table本身是函数的名字。还有就是你原来的table[[x]]可能可以用table[x,] <- c(Name,LLOD,LLOQ,ULOQ,R2)

另外，通常如果数据多的话，不建议使用循环，个人还是比较喜欢向量化的操作。写一个简单的例子给你。

谢谢，谢谢，已经处理好！