excel怎么快速合并多个工作表数据到一个工作表

本文分步介绍如何在 Excel 2000 中将多个工作表合并成一个工作表。

通过合并数据并创建合并表，可以从一个或多个源区域中汇总数据。这些源区域可以位于合并表所在的同一工作表中，同一工作簿的不同工作表中或不同的工作簿中。在合并源数据时，可以使用汇总函数（如 SUM() 函数）创建汇总数据。

有两种方法可以合并数据：按类别或按位置。

按位置合并：适用于源区域中的数据按相同顺序排列并使用相同标签时。使用此方法可以从一系列工作表（如使用同一模板创建的部门预算工作表）中合并数据。

按类别合并：适用于源区域中的数据未按相同顺序排列但使用相同标签时。使用此方法可以从一系列布局不同、但有相同数据标签的工作表中合并数据。

注意：按类别合并数据与创建数据透视表类似。不过，用数据透视表可以容易地重组类别。如果要更灵活地按类别进行合并，应考虑创建数据透视表。
回到顶端
如何按位置合并数据
要按位置合并数据，请按照下列步骤操作：

在 Sheet1 中键入以下数据：

A1：字母 B1：代码编号 C1：其他编号
A2:A B2:50 C2:62
A3:H B3:99 C3:11
A4:G B4:86 C4:68
A5:K B5:18 C5:31
A6:K B6:67 C6: 9

在 Sheet2 中键入以下数据：

A1：字母 B1：代码编号 C1：其他编号
A2:M B2:38 C2:17
A3:H B3:53 C3:25
A4:G B4:48 C4:18
A5:C B5:59 C5:53
A6:K B6:78 C6:97

单击用于合并数据的目标区域的左上单元格。在本例中，单击 Sheet3 上的单元格 A1。
在数据菜单上，单击合并计算。
在函数列表中，选择 Microsoft Excel 用于合并数据的汇总函数。在本例中，使用“求和”。
在引用位置框中，键入要合并的每一个源区域，然后单击添加。在本例中，键入第一个区域 Sheet1!$A$1:$C$6，然后单击添加。键入第二个区域 Sheet2!$A$1:$C$6，然后单击添加。
对要合并的所有源区域都重复步骤 6。
在“标签位置”下，选中“首行”复选框和“最左列”复选框（在本例中，首行和最左列中都有标签）。
单击确定。

回到顶端
如何按类别合并数据
要按类别合并数据，请按照下列步骤操作：

在 Sheet1 中键入以下数据：

A2:A B2:50 C2:62
A3:H B3:99 C3:11
A4:G B4:86 C4:68
A5:K B5:18 C5:31
A6:K B6:67 C6: 9

A12:M B12:38 C12:17
A13:H B13:53 C13:25
A14:G B14:48 C14:18
A15:C B15:59 C15:53
A16:K B16:78 C16:97

单击用于合并数据的目标区域的左上单元格，即 Sheet2 上的单元格 A1。
在数据菜单上，单击合并计算。
在函数列表中，选择 Microsoft Excel 用于合并数据的汇总函数。在本例中，使用“求和”。
在引用位置框中，键入要合并的每一个源区域，然后单击添加。键入第一个区域 Sheet1!$A$2:$C$6，然后单击添加。键入第二个区域 Sheet1!$A$12:$C$16，然后单击添加。
对要合并的所有源区域都重复步骤 5。
在“标签位置”下，单击以选中“最左列”复选框（在本例中，最左列中有标签）。
单击确定。

注意：如果希望 Microsoft Excel 在源数据更改时自动更新合并表，请选中“创建连至源数据的链接”复选框。源和目标区域位于同一工作表时，不能创建链接。

回到顶端
选择用于合并表的源区域
在合并对话框的引用位置框中指定要汇总数据的源区域。在定义源区域时请遵循以下准则：

当源和目标位于同一工作表时，使用单元格引用。
当源和目标位于不同的工作表时，使用工作表和单元格引用。
当源和目标位于不同的工作簿中时，使用工作簿、工作表和单元格引用。
当源和目标位于磁盘上不同位置的不同工作簿中时，使用完整路径、工作簿、工作表和单元格引用。也可以键入源区域的完整路径、工作簿名称和工作表名称。在工作表名称之后键入叹号，然后键入单元格引用或源区域名称。
当源区域是一个命名范围时，使用其名称。
提示：要不通过键入就输入源定义，请单击引用位置框，然后选择源区域即可。

可以利用VBA快速合并单个excel工作簿中的多个工作表（sheet）
软件版本：Office2007
方法如下：
1.当前工作簿中有多个工作表，结构都一样如下所示，当里面的数据不一样，将它们全部合并到当前工作表中：
2.Alt+F11，打开宏界面，输入如下代码：
Sub
m()
For
Each
sh
In
Sheets
'遍历每个工作表，提取数据
If
sh.Name
<>
"Sheet1"
Then
'排除当前工作表
sh.Range("A2:C"
&
sh.Range("A65536").End(3).Row).Copy
Range("A"
&
Range("A65536").End(3).Row
+
1)
'将工作表中的所有数据复制到当前工作表最后一行的下一行中
End
If
Next
End
Sub
3.F5执行代码，返回Excel得到结果如下，工作表合并完成：