我来帮你搞定这个批量提取合并Excel数据的需求！你有20个统一格式的.XLS文件，每个包含13个工作表，要提取第10个表里的男性（27行起）、女性（44行起）和总计数据合并到一个Excel里，下面给你整理了RStudio、Power Query和VBA三种可行的方案，你可以根据自己的熟悉程度选择：

一、R/RStudio 实现方案 #

这个方案适合熟悉R语言的用户，用代码批量处理效率很高，需要用到几个常用的Excel处理包：

1. 先安装并加载所需包：

install.packages(c("readxl", "dplyr", "purrr", "writexl"))
library(readxl)
library(dplyr)
library(purrr)
library(writexl)

2. 设置你的Excel文件所在文件夹路径（替换成实际路径）：

folder_path <- "C:/你的Excel文件存放文件夹"

3. 获取文件夹下所有.XLS格式的文件路径：

file_list <- list.files(path = folder_path, pattern = "\\.XLS$", full.names = TRUE)

4. 定义函数读取每个文件的第10个工作表，并提取指定区域的数据：

extract_sheet_data <- function(file_path) {
  # 读取第10个工作表（R中工作表索引从1开始）
  sheet_data <- read_excel(file_path, sheet = 10)
  
  # 提取男性数据（原始表27行对应R的行索引26，结束行可根据实际调整）
  male_data <- sheet_data[26:nrow(sheet_data), ] %>%
    filter(!is.na(.[[1]])) %>%  # 过滤空行
    mutate(gender = "Male", source_file = basename(file_path))  # 添加性别和来源标记
  
  # 提取女性数据（原始表44行对应R的行索引43）
  female_data <- sheet_data[43:nrow(sheet_data), ] %>%
    filter(!is.na(.[[1]])) %>%
    mutate(gender = "Female", source_file = basename(file_path))
  
  # 合并男性、女性及总计数据（如果总计有单独区域，可参照上面的逻辑添加）
  bind_rows(male_data, female_data)
}

5. 批量处理所有文件并合并数据：

combined_data <- map_dfr(file_list, extract_sheet_data)

6. 将合并后的数据写入新Excel文件：

write_xlsx(combined_data, path = file.path(folder_path, "合并后的数据.xlsx"))

二、Excel Power Query 实现方案 #

这个方案不需要写复杂代码，通过可视化操作就能完成，适合不熟悉编程的用户：

1. 打开一个新Excel工作簿，点击数据选项卡 → 获取数据 → 从文件 → 从文件夹。
2. 在弹出窗口中选择你的Excel文件所在文件夹，点击确定。
3. 在加载的文件列表中，点击转换数据进入Power Query编辑器。
4. 添加自定义列：点击添加列 → 自定义列，输入公式（Power Query索引从0开始，第10个工作表对应索引9）：

Excel.Workbook([Content]){9}[Data]

5. 点击自定义列右侧的展开按钮，选择需要加载的列（不确定的话可以全选）。
6. 筛选指定数据：
   • 观察数据结构，找到男性数据的起始行（原始表27行对应Power Query的行索引26），可以添加条件列标记性别；
   • 同理处理女性数据（原始表44行对应索引43），也可以直接筛选行范围。
7. 处理完成后，点击关闭并上载，合并的数据就会加载到当前Excel工作簿中。

三、VBA 宏实现方案 #

如果习惯用Excel自带的宏功能，这个方案可以一键完成批量操作：

1. 打开Excel，按Alt + F11打开VBA编辑器。
2. 右键点击左侧的工作簿 → 插入 → 模块，粘贴以下代码（记得替换文件夹路径）：

Sub 批量提取合并指定工作表()
    Dim folderPath As String
    Dim fileName As String
    Dim wbSource As Workbook
    Dim wsSource As Worksheet
    Dim wbTarget As Workbook
    Dim wsTarget As Worksheet
    Dim lastRowTarget As Long
    Dim lastRowSource As Long
    
    ' 创建目标工作簿
    Set wbTarget = Workbooks.Add
    Set wsTarget = wbTarget.Sheets(1)
    wsTarget.Name = "合并数据"
    
    ' 设置源文件所在文件夹（替换成你的实际路径）
    folderPath = "C:/你的Excel文件存放文件夹/"
    fileName = Dir(folderPath & "*.XLS")
    
    ' 遍历所有XLS文件
    Do While fileName <> ""
        Set wbSource = Workbooks.Open(folderPath & fileName)
        Set wsSource = wbSource.Sheets(10)  ' 选择第10个工作表
        
        ' 复制男性数据（从27行开始）
        lastRowSource = wsSource.Cells(Rows.Count, 1).End(xlUp).Row
        wsSource.Range("A27:" & wsSource.Cells(lastRowSource, Columns.Count).Address).Copy
        lastRowTarget = wsTarget.Cells(Rows.Count, 1).End(xlUp).Row + 1
        wsTarget.Cells(lastRowTarget, 1).PasteSpecial xlPasteValuesAndNumberFormats
        ' 添加性别和来源文件标记
        wsTarget.Range(wsTarget.Cells(lastRowTarget, Columns.Count + 1), wsTarget.Cells(lastRowTarget + (lastRowSource - 27), Columns.Count + 1)).Value = "Male"
        wsTarget.Range(wsTarget.Cells(lastRowTarget, Columns.Count + 2), wsTarget.Cells(lastRowTarget + (lastRowSource - 27), Columns.Count + 2)).Value = fileName
        
        ' 复制女性数据（从44行开始）
        lastRowSource = wsSource.Cells(Rows.Count, 1).End(xlUp).Row
        wsSource.Range("A44:" & wsSource.Cells(lastRowSource, Columns.Count).Address).Copy
        lastRowTarget = wsTarget.Cells(Rows.Count, 1).End(xlUp).Row + 1
        wsTarget.Cells(lastRowTarget, 1).PasteSpecial xlPasteValuesAndNumberFormats
        ' 添加性别和来源文件标记
        wsTarget.Range(wsTarget.Cells(lastRowTarget, Columns.Count + 1), wsTarget.Cells(lastRowTarget + (lastRowSource - 44), Columns.Count + 1)).Value = "Female"
        wsTarget.Range(wsTarget.Cells(lastRowTarget, Columns.Count + 2), wsTarget.Cells(lastRowTarget + (lastRowSource - 44), Columns.Count + 2)).Value = fileName
        
        ' 关闭源文件，不保存修改
        wbSource.Close SaveChanges:=False
        fileName = Dir()
    Loop
    
    ' 自动调整目标工作表列宽
    wsTarget.Columns.AutoFit
    MsgBox "数据合并完成！"
End Sub

3. 回到Excel，按Alt + F8选择这个宏，点击执行即可完成批量合并。

备注：内容来源于stack exchange，提问作者siri