两个以上表格之间的合并
01
听说上周领导下发了一个通知给10 公司，要求各公司按照下表要求填写表格反馈结果，意味着下周我要汇总10个表格，于是琢磨着怎么样才能偷懒又能按时交差，最重要的是还能有时间玩手机～
#在data文件夹中拥有这10个文件
5个表格特点左右滑动查看更多
另外5个表格特点
5个表格左右滑动查看更多
library(purrr)
library(tidyverse)
library(readxl)
library(writexl)
files = list.files("~/Desktop/微信公众号运营/数据/data/", pattern = "xlsx", full.names = TRUE,recursive = TRUE)
lxl = map_dfr(set_names(files),read_xlsx,.id = "支公司")
write_xlsx(lxl, "按行合并.xlsx")#运行结果：
02
如果表格长成“奖励金额.xls"中有10个sheet
要合并成一个表格要怎么做呢？
代码语言：javascript复制path = "~/Desktop/微信公众号运营/数据/data/奖励金额.xlsx" # Excel 文件路径
zlt = map_dfr(set_names(excel_sheets(path)),~ read_xlsx(path, sheet=.x),.id = "sheet")
write_xlsx(zlt, "福州全区奖励金额.xlsx")#运行结果：
03
以上10个表格如何变成“奖励金额.xlsx"的呢？
