一个EXCEL中若干相同格式的SHEET合并函数

此函数适用于一个EXCLE中多个sheet文件的合并，但前提是excel中的sheet 格式必须相同。

#FUNCTION : rbind_sheet( )
#THIS FUNCTION CAN BE UESD FOR COMBINE ALL SHEETS IN ONE EXCEL FILE.
#BY ZHANGKX , 2019.5.6
rbind_sheet <- function(x){library(readxl)
                           n <- length(excel_sheets(x))                     
                           ss <- data.frame()
                           for(i in 1:n){ sh <- paste0("Sheet",i)            
                                          mm<- read_excel(x, sheet = sh)
                                          ss<- rbind(ss,mm)
                          }
}
rbind_sheet ("C:/Users/Administrator/Desktop/test.xlsx")

使用方法：只需要复制代码，在rbind_sheet（）添加文件路径，运行即可。