快速高效的数据整合：将指定文件夹中所有工作簿里的数据合并到同一工作表

利用Excel VBA轻松实现数据整合

在日常工作中，我们经常需要处理来自不同来源的数据，并将其整合到统一的工作表中进行分析。利用Excel VBA，我们可以轻松实现数据合并，并节省大量手动操作的时间。

具体步骤如下：

1. 准备工作：

   • 将要合并的数据工作簿保存在同一文件夹中。
   • 在合并数据的目标工作簿中，创建新的工作表。

2. 编写VBA代码：

   • 打开VBA编辑器（Alt+F11）。
   • 在“插入”菜单中，选择“模块”。
   • 将以下代码复制并粘贴到模块中：

Sub 合并多工作簿第一张表的数据()
    Dim wb As Workbook, ws As Worksheet
    Dim sPath As String
    Dim i As Long, j As Long, k As Long

    ' 获取工作簿路径
    sPath = "C:\Users\Desktop\我的文件"

    ' 循环遍历文件夹中的所有工作簿
    For i = 1 To Len(Dir(sPath & "\*.xls*"))
        ' 打开工作簿
        Set wb = Workbooks.Open(sPath & "\" & Dir)

        ' 获取工作簿中的第一张工作表
        Set ws = wb.Worksheets(1)

        ' 获取工作表中的数据范围
        j = ws.UsedRange.Rows.Count
        k = ws.UsedRange.Columns.Count

        ' 将数据复制到目标工作簿
        ws.Range(ws.Cells(1, 1), ws.Cells(j, k)).Copy Destination:=Worksheets("合并数据").Cells(i * j + 1, 1)

        ' 关闭工作簿
        wb.Close savechanges:=False
    Next i

    ' 提示合并完成
    MsgBox "数据合并完成！"
End Sub

3. 运行代码：

   • 在VBA编辑器中，按F5键或单击“运行”按钮，即可运行代码。

4. 查看结果：

   • 合并完成的数据将显示在目标工作簿的“合并数据”工作表中。

优化技巧：

1. 使用相对路径：

   • 在代码中使用相对路径，而不是绝对路径，可以提高代码的可移植性。

2. 使用多线程：

   • 如果需要合并大量数据，可以使用多线程来提高合并速度。

3. 使用错误处理：

   • 在代码中加入错误处理，可以防止意外错误导致程序崩溃。

示例代码：

Sub 合并多工作簿所有工作表的数据()
    Dim wb As Workbook, ws As Worksheet
    Dim sPath As String
    Dim i As Long, j As Long, k As Long

    ' 获取工作簿路径
    sPath = "C:\Users\Desktop\我的文件"

    ' 循环遍历文件夹中的所有工作簿
    For i = 1 To Len(Dir(sPath & "\*.xls*"))
        ' 打开工作簿
        Set wb = Workbooks.Open(sPath & "\" & Dir)

        ' 循环遍历工作簿中的所有工作表
        For j = 1 To wb.Worksheets.Count
            ' 获取工作表中的数据范围
            k = wb.Worksheets(j).UsedRange.Rows.Count
            l = wb.Worksheets(j).UsedRange.Columns.Count

            ' 将数据复制到目标工作簿
            wb.Worksheets(j).Range(wb.Worksheets(j).Cells(1, 1), wb.Worksheets(j).Cells(k, l)).Copy Destination:=Worksheets("合并数据").Cells((i - 1) * k + j + 1, 1)
        Next j

        ' 关闭工作簿
        wb.Close savechanges:=False
    Next i

    ' 提示合并完成
    MsgBox "数据合并完成！"
End Sub

本例演示了如何将文件夹中所有工作簿的所有工作表的数据合并到统一的工作表中。