如何在Excel中将多个工作表中的数据收集到主表中？

在某些时候，您可能需要将多个工作表中的数据收集到一个主工作表中以进行合并或其他操作，如下图所示，但是要逐个复制粘贴内容很麻烦，是否有任何技巧可以快速解决？ Excel？

使用合并功能将多张纸中的数据收集到一张

使用VBA代码从多张纸中收集数据

强大的合并功能将多张纸中的数据收集到一张

使用合并功能将多张纸中的数据收集到一张

如果要将数据从多个工作表收集到同一工作簿的一个工作表中，则可以在Excel中应用合并功能。

1.在要从工作表中收集数据的工作簿的新工作表中，单击 时间 > 整合.

2.在 Consolidate 对话框中，请执行以下操作：

（1在合并数据后选择要执行的一项操作 功能 下拉列表;

（2点击  选择要收集的每张纸的范围；

（3点击 Add 按钮将数据范围添加到 All references 列表框;

（4合并数据后检查使用的标签，并检查 Create links to source data 如果要链接合并表中的数据与源数据，请选择此选项。

3。 点击 OK。 现在，数据已收集并汇总到一张纸中。

轻松地将多个工作表/工作簿合并为一个工作表或工作簿

在Excel中，将多个工作表或工作簿组合成一个工作表或工作簿可能很麻烦，但是使用 结合 Kutools for Excel 中的功能，您可以将数十个工作表/工作簿合并为一张工作表或工作簿，也可以通过几次点击将工作表合并为一张。  点击获取全功能 30 天免费试用！

Kutools for Excel：拥有300多个便捷的Excel加载项，可以在30天内免费试用。

使用VBA代码从多张纸中收集数据

这是一个VBA代码，可以从当前工作簿的新工作表中的所有工作表中收集数据。

1。 按 Alt + F11 启用 Microsoft Visual Basic for Applications 窗口。

2。 点击 Insert > Module，然后将以下代码复制并粘贴到 Module 脚本。

VBA：将工作表中的所有数据收集到一个。

Sub Combine()
'UpdatebyExtendoffice20180205
    Dim I As Long
    Dim xRg As Range
    On Error Resume Next
    Worksheets.Add Sheets(1)
    ActiveSheet.Name = "Combined"
   For I = 2 To Sheets.Count
        Set xRg = Sheets(1).UsedRange
        If I > 2 Then
            Set xRg = Sheets(1).Cells(xRg.Rows.Count + 1, 1)
        End If
        Sheets(I).Activate
        ActiveSheet.UsedRange.Copy xRg
    Next
End Sub

3。 按 F5 运行代码的关键是，整个工作簿的所有数据都已收集在新表Combined中。

从多个工作表收集数据，功能强大 Combine 功能

如果您通常需要将工作表合并为一张，我会为您介绍一个功能强大的合并功能，它是 Kutools for Excel“ 结合 该实用程序具有以下四个主要功能：

将工作簿中的多个工作表合并为一个工作表

将所有相同名称的工作表合并到一个工作表中

将工作簿中的多个工作表合并到一个工作簿中

将多个工作簿中的值合并并计算到一个工作表中

后 免费安装 Kutools for Excel，请执行以下操作：

如果你只是想 结合 从一张纸变成一张纸而无需任何其他操作，您可以按照以下步骤操作：

1.启用Excel，单击 Kutools Plus > Combine，弹出一个或两个对话框以提醒您一些注意事项，只需点击 OK 和 接受 接着说。 看截图：

2。 点击 OK 去 Combine 窗口，检查 Combine multiple worksheets from workbook into worksheet 选项。

3。 点击 Next，然后点击 Add > File / Folder 添加您将用于合并的工作簿 Workbook list。 然后去 Worksheet list 检查要合并的表格以构成每个工作簿。

4。 点击 Next 要转到最后一步，可以根据需要指定一些关于合并结果的设置。 如果不需要此步骤。

5。 点击 Finish 并选择一个文件夹以放置新工作簿，该工作簿将合并工作表中的数据。

6。 点击 优惠。 现在，所有数据已从工作簿中的工作表收集到一个主工作表中。

如果您想 巩固 将工作簿中的工作表合二为一，如下所示：

1.在 Combine 窗口，检查 Consolidate and calculate values across multiple worksheets into one worksheet 选项。

2。 点击 Next，然后将文件添加到 Workbook list，然后检查用于合并和计算的工作表。

3。 点击 Next，然后从中选择一种计算 Function 下拉列表，然后根据需要检查其他选项。

4。 点击 Finish 将新工作簿保存到文件夹中。

现在，跨工作簿的工作表已合并并计算为一张工作表。