怎么把多个excel表格合成一个工作薄

创作时间:

作者:

@小白创作中心

怎么把多个excel表格合成一个工作薄

引用

来源

https://docs.pingcode.com/baike/4939706

在日常工作中，我们常常需要将多个Excel表格合并成一个工作簿。无论是手动操作还是使用自动化工具，都有多种方法可供选择。本文将详细介绍四种常见的合并方法，帮助你根据具体需求选择最适合的方式。

要把多个Excel表格合成一个工作簿，可以使用以下几种方法：手动复制粘贴、使用Excel内置的功能、利用VBA宏、借助第三方工具。其中，使用VBA宏是一种高效且灵活的方法，适合处理大量数据或重复性任务。接下来，我将详细介绍如何使用VBA宏来合并多个Excel表格。

一、手动复制粘贴

手动复制粘贴是最简单直接的方法，适用于数据量较少且不需要频繁操作的情况。

打开所有需要合并的Excel表格。
选择需要复制的数据区域，按Ctrl+C复制。
在目标工作簿中选择目标位置，按Ctrl+V粘贴。

虽然这种方法简单易行，但当数据量较大或需要频繁操作时，效率较低。

二、使用Excel内置的功能

Excel内置了数据导入功能，可以从其他工作簿中导入数据。

打开目标工作簿。
在“数据”选项卡中，选择“获取数据”。
选择“从文件”->“从工作簿”。
浏览并选择需要合并的Excel文件。
按照提示选择需要导入的工作表或数据区域。

这种方法适合导入结构化的数据，但操作步骤较多，且每次导入时需要重复以上步骤。

三、利用VBA宏

使用VBA宏是一种高效的合并方法，适合处理大量数据或需要频繁操作的情况。以下是一个VBA宏的示例代码，可以自动合并多个Excel表格。

1. 准备工作

首先，确保所有需要合并的Excel文件都放在同一个文件夹中，并且文件格式一致。

2. 编写VBA宏

打开一个新的Excel工作簿，按Alt+F11打开VBA编辑器。
在VBA编辑器中，插入一个新的模块（Insert -> Module）。
复制以下代码到模块中：

Sub 合并多个Excel表格()  

    Dim 文件路径 As String  
    Dim 文件名 As String  
    Dim 工作簿 As Workbook  
    Dim 目标工作簿 As Workbook  
    Dim 工作表 As Worksheet  
    Dim 目标工作表 As Worksheet  
    Dim 最后行 As Long  
    Dim 最后列 As Long  
    Dim 目标行 As Long  
    ' 设置文件路径  
    文件路径 = "C:\Your\Folder\Path\"  
    ' 创建一个新的工作簿作为目标工作簿  
    Set 目标工作簿 = Workbooks.Add  
    Set 目标工作表 = 目标工作簿.Sheets(1)  
    ' 获取文件夹中的第一个文件  
    文件名 = Dir(文件路径 & "*.xlsx")  
    ' 循环处理文件夹中的每个文件  
    Do While 文件名 <> ""  
        ' 打开当前文件  
        Set 工作簿 = Workbooks.Open(文件路径 & 文件名)  
        ' 复制每个工作表的数据到目标工作簿中  
        For Each 工作表 In 工作簿.Sheets  
            最后行 = 工作表.Cells(Rows.Count, 1).End(xlUp).Row  
            最后列 = 工作表.Cells(1, Columns.Count).End(xlToLeft).Column  
            目标行 = 目标工作表.Cells(Rows.Count, 1).End(xlUp).Row + 1  
            工作表.Range(工作表.Cells(1, 1), 工作表.Cells(最后行, 最后列)).Copy 目标工作表.Cells(目标行, 1)  
        Next 工作表  
        ' 关闭当前文件  
        工作簿.Close False  
        ' 获取下一个文件  
        文件名 = Dir()  
    Loop  
    MsgBox "合并完成！"  
End Sub