如何使用R将单个工作表中的一个表格迁移至另一工作表？

步骤1：安装并加载必要的R包 #

我们需要用到readxl读取Excel数据，openxlsx来操作Excel文件（支持在同一文件中添加新工作表）：

install.packages(c("readxl", "openxlsx"))
library(readxl)
library(openxlsx)

步骤2：读取包含两个表格的工作表 #

先读取整个工作表的所有内容（不预设列名，避免干扰表格识别）：

# 替换为你的Excel文件路径和工作表名称
all_data <- read_excel("your_file.xlsx", sheet = "Sheet1", col_names = FALSE)

步骤3：识别并提取表格2 #

通过查找表头行（包含"Gender"的行）定位表格2的起始位置，然后提取数据并整理：

# 找到所有包含表头"Gender"的行索引
header_rows <- which(all_data[[1]] == "Gender")
# 第二个表头行就是表格2的起始行
table2_start <- header_rows[2]

# 提取表格2的所有数据
table2 <- all_data[table2_start:nrow(all_data), ]
# 设置表格列名
colnames(table2) <- table2[1, ]
# 删除表头行，保留数据行
table2 <- table2[-1, ]
# 重置行名
rownames(table2) <- NULL

# 可选：将Age列转换为数值型
table2$Age <- as.numeric(table2$Age)

步骤4：将表格2写入新工作表 #

方案1：写入到原Excel文件的新工作表

# 加载原Excel文件
wb <- loadWorkbook("your_file.xlsx")
# 添加名为"Table2"的新工作表
addWorksheet(wb, sheetName = "Table2")
# 将表格2写入新工作表
writeData(wb, sheet = "Table2", x = table2)
# 保存修改后的文件（覆盖原文件或指定新文件名）
saveWorkbook(wb, "your_file_modified.xlsx", overwrite = TRUE)

方案2：写入到新的Excel文件

如果不需要保留在原文件中，可直接写入新文件：

write.xlsx(table2, "table2_new_file.xlsx", sheetName = "Sheet1")

补充说明 #

• 如果已知表格2的精确单元格范围（例如A5:B7），可以直接用range参数快速读取，无需动态识别：

  table2 <- read_excel("your_file.xlsx", sheet = "Sheet1", range = "A5:B7")
  

• 若两个表格之间无空行，需根据数据内容调整识别逻辑（比如判断连续非空行的起始）。

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