R语言如何从Excel工作簿多工作表中按列名提取指定共有列

首先调整目标列名的读取方式：你当前定义的select是嵌套了一层字符向量的列表，直接取内层向量即可作为列匹配的依据：

target_cols <- select[[1]]

考虑到各工作表列名不完全一致，提取时需要自动跳过不存在的列、统一列结构，避免合并报错，以下提供两种常用实现方式：

方法1：Base R 原生实现 #

无需额外安装加载包，兼容所有R版本：

# 逐工作表提取目标列
processed_list <- lapply(names(x), function(sheet_name) {
  current_df <- x[[sheet_name]]
  # 匹配当前表实际存在的目标列
  valid_cols <- intersect(colnames(current_df), target_cols)
  # 提取有效列
  res <- current_df[, valid_cols, drop = FALSE]
  # 为缺失的目标列填充NA，保证所有表列结构统一
  missing_cols <- setdiff(target_cols, valid_cols)
  if (length(missing_cols) > 0) {
    res[, missing_cols] <- NA
  }
  # 按目标列预设顺序调整列排序
  res <- res[, target_cols]
  # 新增列标记数据来源的工作表（对应年份）
  res$sheet_year <- sheet_name
  return(res)
})
# 合并所有工作表数据为最终数据框
df <- do.call(rbind, processed_list)

方法2：tidyverse 简洁实现 #

如果已安装tidyverse生态包，代码更简洁，自动处理列匹配与缺失值填充：

library(dplyr)
library(purrr)

df <- map_dfr(
  .x = x,
  .f = ~ .x %>%
    select(any_of(target_cols)) %>% # 自动选择存在的目标列，缺失列自动补NA
    select(all_of(target_cols)), # 统一列顺序
  .id = "sheet_year" # 自动新增列标记来源工作表名
)

列名匹配异常排查提示：如果出现目标列匹配不到的情况，大概率是列名存在大小写差异、首尾多余空格、特殊字符不一致问题，可以先批量统一所有工作表的列名格式再做提取：

x <- lapply(x, function(df) {
  colnames(df) <- trimws(tolower(colnames(df))) # 全部转小写、去除首尾空格
  return(df)
})

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