如何在R中读取并拆分单工作表内含多个表格的Excel文件

步骤1：安装并加载必要工具包 #

先安装读取Excel和数据处理的工具包，再加载它们：

# 首次运行时执行安装
install.packages(c("readxl", "dplyr", "purrr"))

# 加载包
library(readxl)
library(dplyr)
library(purrr)

步骤2：读取所有工作表 #

先获取Excel文件的所有工作表名称，再批量读取每个工作表的数据（暂时不设置列名，避免重复表头导致的混乱）：

# 替换为你的Excel文件实际路径
file_path <- "你的问卷数据.xlsx"

# 获取所有工作表名称
sheet_names <- excel_sheets(file_path)

# 读取所有工作表，存储为列表
all_sheets <- map(sheet_names, ~ read_excel(file_path, sheet = .x, col_names = FALSE))

步骤3：定义拆分单个工作表的函数 #

核心逻辑是识别重复的表头行（示例中表头以sex开头），然后按这些行的位置分割出每个独立表格：

split_tables <- function(sheet_data) {
  # 定位所有表头行（根据你的表头特征调整判断条件）
  header_rows <- which(sheet_data[[1]] == "sex")
  
  # 生成每个表格的行范围：从当前表头行到下一个表头行的前一行，最后一个表格到末尾
  table_ranges <- map2(
    header_rows, 
    c(header_rows[-1] - 1, nrow(sheet_data)),
    ~ .x:.y
  )
  
  # 提取每个表格并设置正确列名
  map(table_ranges, ~ {
    table_chunk <- sheet_data[.x, ]
    # 将表头行设为列名
    colnames(table_chunk) <- as.character(table_chunk[1, ])
    # 移除表头行，过滤全空行
    table_chunk[-1, ] %>%
      filter(if_all(everything(), ~ !is.na(.)))
  })
}

步骤4：批量拆分所有工作表的表格 #

将拆分函数应用到所有读取的工作表上，最终得到一个嵌套列表：

# 拆分所有工作表中的表格
all_tables <- map(all_sheets, split_tables)

# 给列表命名，方便后续定位
names(all_tables) <- sheet_names

访问拆分后的表格 #

通过列表索引直接访问目标表格：

• 访问第一个工作表的第一个表格：all_tables[[1]][[1]]
• 访问名为"Sheet2"的工作表的第三个表格：all_tables[["Sheet2"]][[3]]

注意事项 #

• 如果你的表头特征不是sex开头，需要修改header_rows <- which(sheet_data[[1]] == "sex")中的判断条件，替换为表头的第一个关键词。
• 如果表格之间存在空行，可以结合which(rowSums(is.na(sheet_data)) == ncol(sheet_data))辅助定位分割点。

内容的提问来源于stack exchange，提问作者Hellihansen