50秒合并100个工作表，让数据处理更轻松

Excel技巧

2023-12-16 15:20:53

快速合并100个工作表，省时省力！

问题：数据合并难题

在数据处理工作中，合并多个工作表的数据是一项繁琐的任务，尤其当工作表数量庞大时。手动复制粘贴的方式不仅耗时，还容易出错。

解决方法：高效合并

今天，我们介绍一种高效的方法，只需 50 秒 即可将 100 个工作表 的数据合并到一个工作表中。

步骤 1：准备工作

将所有工作表放入同一个工作簿。
确保工作表的数据格式一致，包括列名、数据类型和日期格式。

步骤 2：合并工作表

使用 Excel 表格功能：

在目标工作表中点击 "插入" > "表"。
在 "插入表" 对话框中，选择 "选择数据"。
输入合并工作表的范围，如：'工作表1'!A1:F100,'工作表2'!A1:F100，以此类推。
点击 "确定"，合并后的数据将显示在目标工作表中。

使用 VBA 代码：

Sub MergeMultipleSheets()
    Dim ws As Worksheet, wb As Workbook
    Dim rng As Range, arrData()

    Set wb = ThisWorkbook
    Set ws = wb.Worksheets.Add

    For i = 1 To wb.Worksheets.Count
        Set rng = wb.Worksheets(i).UsedRange
        arrData = arrData & rng.Value
    Next i

    ws.Range("A1").Resize(UBound(arrData, 1), UBound(arrData, 2)) = arrData
End Sub

结果：合并完成

合并后的数据将显示在目标工作表中，供你分析和处理。

结语

利用这种方法，你可以快速、高效地合并大量工作表的数据。省时、省力，让你告别繁琐的数据处理任务。

常见问题解答

合并工作表时数据格式会丢失吗？
如果工作表数据格式一致，则合并时不会丢失。

可以使用 VBA 代码合并非相邻的工作表吗？
可以，使用以下代码：

Sub MergeNonAdjacentSheets()
    Dim wb As Workbook, ws As Worksheet
    Dim arrSheets(), i As Long, lastRow As Long, lastCol As Long

    Set wb = ThisWorkbook

    ' 将非相邻工作表名称存入数组
    arrSheets = Split("工作表1,工作表3,工作表5", ",")

    ' 循环非相邻工作表
    For i = LBound(arrSheets) To UBound(arrSheets)
        Set ws = wb.Worksheets(arrSheets(i))

        ' 获取工作表最后一行和最后一列
        lastRow = ws.Cells.Find("*", ws.Cells(ws.Rows.Count, "A"), xlFormulas, xlPart, xlByRows, xlPrevious).Row
        lastCol = ws.Cells.Find("*", ws.Cells(1, ws.Columns.Count), xlFormulas, xlPart, xlByCols, xlPrevious).Column

        ' 合并数据
        wb.Worksheets("目标工作表").Range("A1").Resize(lastRow, lastCol) & ws.Range("A1").Resize(lastRow, lastCol)
    Next i
End Sub