library(gtools)
library(plyr)

salelist<-list.file("E:/Sales",full.names=TRUE)
datalist<-vector("list",length(salelist))
mixedsort(salelist)->salelist
for (i in seq_along(salelist)) {datalist[[i]]<-read.csv(salelist[[i]],stringsAsFactors = FALSE)}
rbind.fill(datalist)->kie
kie[kie$項目=="BB",]->zoo
write.csv(zoo,"E:/anythingyouwant.csv")