Excel合并多个工作簿第一个工作表技巧

可通过Power Query、VBA宏或手动复制实现多工作簿首表数据合并。首先推荐使用Power Query：在Excel中选择“数据”→“从文件夹”导入文件列表，进入编辑器展开Content列并筛选SheetName为首个工作表（如Sheet1），扩展Data列后上载结果。其次可用VBA自动化处理：编写宏代码遍历指定文件夹内所有.xlsx文件，逐一打开并复制其第一个工作表的UsedRange区域至目标工作簿的连续行中，注意修改folderPath为实际路径并运行宏执行合并。最后对于少量文件可采用手动方式：新建汇总文件，逐个打开源文件全选复制首个工作表数据，粘贴数值到目标文件末尾空白行，避免格式冲突。三种方法按效率递增，适用于不同操作水平与数据规模场景。

如果您需要将多个Excel工作簿中的第一个工作表数据整合到一个文件中，以便进行统一查看或分析，则可以通过自动化操作实现快速合并。以下是几种可行的操作方法：

本文运行环境：联想ThinkPad X1 Carbon，Windows 11

一、使用Power Query合并多个工作簿

Power Query是Excel内置的强大数据处理工具，能够从多个文件夹中的Excel文件提取第一个工作表并合并成一张表。

1、打开一个新的Excel工作簿，点击< strong>数据选项卡，选择< strong>获取数据 → < strong>从文件 → < strong>从文件夹。

2、浏览并选择包含所有需合并的工作簿的文件夹，点击< strong>确定。

3、系统会列出该文件夹下的所有文件，点击< strong>转换数据进入Power Query编辑器。

4、在查询编辑器中，找到< strong>Content列，点击任意单元格右侧的展开图标，勾选< strong>SheetName和< strong>Data，取消其他字段。

5、筛选< strong>SheetName列，仅保留每个文件的第一个工作表名称（通常为Sheet1或实际命名）。

6、点击< strong>Data列右侧的展开按钮，选择< strong>扩展到新行，确保所有行列正确加载。

7、清理不需要的列，如文件名、工作表名等，保留所需数据列。

8、点击< strong>关闭并上载，数据将自动导入当前工作簿的新工作表中。

二、使用VBA宏代码批量合并

VBA可以编写脚本自动打开每个工作簿，复制其第一个工作表的数据，并粘贴到主工作簿中，适合处理大量文件。

1、打开一个新的Excel文件，按下< strong>Alt + F11进入VBA编辑器。

2、在左侧工程资源管理器中右键点击< strong>插入 → < strong>模块。

3、将以下代码粘贴进模块窗口：

Sub MergeFirstSheets()

Dim wbTarget As Workbook, wbSource As Workbook

Dim wsTarget As Worksheet

Dim folderPath As String, fileName As String

Set wbTarget = ThisWorkbook

Set wsTarget = wbTarget.Sheets(1)

folderPath = "C:\YourFolderPath\" ' 修改为此处的实际路径

fileName = Dir(folderPath & "*.xlsx")

Do While fileName <> ""

If Not fileName = wbTarget.Name Then

Set wbSource = Workbooks.Open(folderPath & fileName)

wbSource.Sheets(1).UsedRange.Copy

wsTarget.Cells(wsTarget.Rows.Count, 1).End(xlUp).Offset(1, 0).PasteSpecial xlPasteValues

wbSource.Close SaveChanges:=False

End If

fileName = Dir

Loop

Application.CutCopyMode = False

MsgBox "合并完成！"

4、修改代码中的< strong>folderPath变量值为存放Excel文件的实际文件夹路径。

5、按下< strong>F5运行宏，程序将自动读取每个文件的第一个工作表并追加数据。

三、手动复制粘贴方式

对于文件数量较少的情况，手动操作也是一种简单直接的方法，适用于对自动化不熟悉用户。

1、新建一个Excel工作簿作为目标文件，命名为“汇总.xlsx”或其他便于识别的名称。

2、依次打开每一个源工作簿，点击第一个工作表标签（如Sheet1）。

3、选中该工作表中所有数据区域，可使用快捷键< strong>Ctrl + A全选有效数据。

4、复制选中内容，使用< strong>Ctrl + C。

5、切换至目标工作簿，在第一个工作表中找到最后一行数据下方的空白行。

6、右键点击目标位置，选择< strong>选择性粘贴 → < strong>数值，避免格式冲突。

7、重复上述步骤，直到所有源文件的第一个工作表数据均被复制完成。