Excel文件工作表合并实用指南

2024-01-23 15:19:52

使用 VBA 代码轻松合并多个 Excel 工作表

管理和分析数据不再困难

在日常办公中，经常需要处理大量 Excel 文件，其中包含多个工作表。将这些分散的数据整合到一个文件中可以极大地简化数据管理和分析流程。借助 VBA 代码的强大功能，这一任务变得轻而易举。本文将循序渐进地介绍如何使用 VBA 代码将指定目录中所有 Excel 文件中的工作表无缝合并到一个文件中。

VBA 代码详解

1. 打开 VBA 编辑器

按住 Alt 键并按下 F11 键即可打开 VBA 编辑器。

2. 创建新模块

点击菜单栏上的插入 > 模块，创建一个新的模块用于编写代码。

3. 粘贴代码

将以下 VBA 代码粘贴到新模块中：

Sub 合并工作表()
    Dim wbSource As Workbook
    Dim wsSource As Worksheet
    Dim wbTarget As Workbook
    Dim wsTarget As Worksheet
    Dim strPath As String
    Dim strFile As String
    Dim strSheet As String
    Dim intRow As Integer
    Dim intCol As Integer

    ' 获取指定目录中的所有Excel文件
    strPath = "D:\VBA其实很简单\"
    strFile = Dir(strPath & "*.xlsx")

    ' 循环处理每个Excel文件
    Do While strFile <> ""
        ' 打开当前Excel文件
        Set wbSource = Workbooks.Open(strPath & strFile)

        ' 获取当前Excel文件中的所有工作表
        For Each wsSource In wbSource.Worksheets
            ' 获取当前工作表的名称
            strSheet = wsSource.Name

            ' 在目标工作簿中创建新的工作表
            Set wbTarget = Workbooks.Add
            Set wsTarget = wbTarget.Worksheets(1)
            wsTarget.Name = strSheet

            ' 复制当前工作表中的数据到目标工作表
            For intRow = 1 To wsSource.Rows.Count
                For intCol = 1 To wsSource.Columns.Count
                    wsTarget.Cells(intRow, intCol).Value = wsSource.Cells(intRow, intCol).Value
                Next intCol
            Next intRow

            ' 关闭当前Excel文件
            wbSource.Close savechanges:=False
        Next wsSource

        ' 保存目标工作簿
        wbTarget.SaveAs "D:\合并工作表.xlsx"
        wbTarget.Close

        ' 获取下一个Excel文件
        strFile = Dir()
    Loop
End Sub