使用VBA合并多个Excel工作簿

1. 适用场景

在日常工作中，我们经常需要处理多个Excel工作簿的数据，尤其是当数据分散在不同的文件中时，手动合并不仅费时费力，还容易出错。使用VBA（Visual Basic for Applications）可以高效地完成这一任务，适用于以下场景：

• 数据汇总：将多个部门或项目的数据合并到一个工作簿中。
• 批量处理：定期需要合并大量文件，如月度报表、销售数据等。
• 自动化需求：减少重复性操作，提升工作效率。

2. 适配系统与环境配置要求

为了顺利运行VBA脚本合并Excel工作簿，请确保满足以下条件：

• 操作系统：Windows 7及以上版本（VBA在Mac上的支持有限）。
• 软件版本：Microsoft Excel 2010及以上版本（推荐使用Excel 2016或更高版本）。
• 启用宏：在Excel中启用宏功能（通过“文件” > “选项” > “信任中心” > “信任中心设置” > “宏设置”中选择“启用所有宏”）。
• 基础VBA知识：虽然脚本可以直接使用，但了解基本的VBA语法有助于调试和修改。

3. 资源使用教程

以下是使用VBA合并多个Excel工作簿的简单步骤：

步骤1：打开Excel并进入VBA编辑器

1. 打开Excel，按下 Alt + F11 组合键，进入VBA编辑器。
2. 在左侧的“项目资源管理器”中，右键点击当前工作簿的名称，选择“插入” > “模块”。

步骤2：编写VBA脚本

在新建的模块中粘贴以下代码：

Sub MergeWorkbooks()
    Dim Path As String, Filename As String, Sheet As Worksheet
    Dim TargetWorkbook As Workbook, SourceWorkbook As Workbook

    Path = "C:\YourFolderPath\" ' 替换为你的文件夹路径
    Filename = Dir(Path & "*.xlsx") ' 获取文件夹中的Excel文件

    Application.ScreenUpdating = False
    Set TargetWorkbook = ThisWorkbook

    Do While Filename <> ""
        Set SourceWorkbook = Workbooks.Open(Path & Filename)
        For Each Sheet In SourceWorkbook.Sheets
            Sheet.Copy After:=TargetWorkbook.Sheets(TargetWorkbook.Sheets.Count)
        Next Sheet
        SourceWorkbook.Close False
        Filename = Dir()
    Loop

    Application.ScreenUpdating = True
    MsgBox "合并完成！", vbInformation
End Sub

步骤3：运行脚本

1. 返回Excel界面，按下 Alt + F8，选择 MergeWorkbooks 并点击“运行”。
2. 脚本会自动合并指定文件夹中的所有Excel文件。

4. 常见问题及解决办法

问题1：脚本运行后没有反应

• 原因：文件夹路径错误或文件夹中没有Excel文件。
• 解决办法：检查路径是否正确，并确保文件夹中包含 .xlsx 文件。

问题2：合并后的工作表名称重复

• 原因：多个工作簿中有同名工作表。
• 解决办法：在代码中添加重命名逻辑，或在合并前检查工作表名称。

问题3：宏被禁用

• 原因：Excel的宏设置未启用。
• 解决办法：按照“环境配置要求”中的步骤启用宏。

通过以上方法，你可以轻松实现多个Excel工作簿的合并，大幅提升工作效率！