快到年底了，有小伙伴提出了如何快速将12个月的数据合并到一个工作表问题，比如将每个月不同销售员不同产品的销售数据汇总到一个工作表。今天我们就来分享一个快速将多个结构相同的工作簿数据汇总到一个工作表的方法，快速简单，一键搞定，提问的小伙伴速来围观！

一、如下数据源，我们需要将12个月的产品销售数据工作簿合并到一个工作表中。

二、效果展示

三、实现步骤

1、导入VBA模块：新建一个EXCEL汇总表，将sheet1更名为“汇总表”，删除其余的工作表，按ALT+F11 调出VBA 编辑器 →在工程窗口右击选择【导入文件】→选择VBA 模块文件（快速合并工作表和工作簿.bas）→关闭VBA 编辑器。导入后可以从【开发工具】→【宏】处看到“合并工作簿”和“合并工作表”两个宏。

2、制作一键＂合并工作簿＂和一键＂合并工作表＂按钮。插入矩形，输入文字“合并工作簿”并调整文字颜色大小和对齐方式等，然后复制一个矩形，并将文字改为“合并工作表”。选中文字为“合并工作簿”的矩形，右键→指定宏→选择宏“合并工作簿”，选中文字为“合并工作表”的矩形，右键→指定宏→选择宏“合并工作表”。

３、合并1至12月的12个工作簿数据到1个工作表。单击“合并工作簿”，首先选择需要合并的所有工作簿，点【打开】，将12个月的销售表合并到EXCEL汇总表。然后复制标题行到汇总表的第一行，再单击“合并工作表”，所有工作表即汇总到汇总表中了。

我是EXCEL学习微课堂，分享EXCEL学习的小技巧，小经验。如一键合并工作表如果分享的内容对您有用，欢迎点赞、收藏、评论、转发，更多的EXCEL技能，可以关注“EXCEL学习微课堂”。 需要一键快速合并多个工作簿到工作表原文件和VBA代码的，请评论转发后私信联系我或留下您的邮箱！

在Excel2010中，我们可以将Excel工作表移动或复制到同一工作簿的其他位置或其他Excel工作簿中。但在Excel2010移动或复制工作表时需要十分谨慎，因为若移动了工作表，则基于工作表数据的计算可能出错。

一、 同一工作簿中移动和复制工作表

在同一个工作簿中，直接拖动工作表标签至所需位置即可实现工作表的移动；若在拖动工作表标签的过程中按住【Ctrl】键，则表示复制工作表。

二、不同工作簿间的移动和复制工作表

要在不同工作簿间移动和复制工作表，可执行以下操作。

1、打开要进行移动或复制的源工作簿和目标工作簿，单击要进行移动或复制操作的工作表标签，然后单击“开始”选项卡“单元格”组中“格式”按钮，在展开的列表中选择“移动或复制工作表”项，打开“移动或复制工作表”对话框，如图1所示。

2、在“将选定工作表移至工作簿”下拉列表中选择目标工作簿；在“下列选定工作表之前”列表中选择要将工作表复制或移动到目标工作簿的位臵；若要复制工作表，需选中“建立副本”复选框。最后单击“确定”按钮，即可实现不同工作簿间工作表的移动或复制。

通过Excel2010移动或复制工作表这篇教程，我们了了解工作表组的作用。利用Excel工作表组功能，可以快捷地在同一工作簿的多张工作表的相同位置输入或编辑一批相同或格式类似的工作表，从而提高工作效率。

Excel作为一个具有强大的数据处理的办公软件，对于白领一族来说，使用频率应该较高。在处理数据过程中，您是否碰到过清单之类汇总的情况，就是将同一个工作簿中的所有工作表的内容合并到一个工作表中。对于不会取巧的朋友，可能就是一个表一个表的复制，然后粘贴拼凑在一块，若碰到表格数量不多的情况，这种方法还好，若是碰到工作表数量庞大，例如50个工作表，100个工作表......这种方法就很鸡肋。今天本篇以Excel2013为例，教大家如何一键实现所有工作表合并到新工作表中，同样适用于Excel其他版本，碰到细微差异，可以适当调整代码。

教程将内容分成三部分：第一部分是新建一个汇总的工作表，并重新自定义命名；第二部分是逐一将各个工作表复制粘贴到汇总工作表中；第三部分为提示，即当合并工作完成后弹出提示。具体操作如下：

打开工作簿，在工作表标签中会显示包含的工作表名称，教程以下图中三个工作表为例，分别是Sheet1，Sheet2，Sheet3.按下组合键Alt+F11即可从Excel工作界面切换到VBA界面，在VBA窗口单击菜单栏中的插入，找到模块命令，单击该命令即可创建一个新的模块窗口，在模块窗口复制粘贴以下代码：

Sub Comb()

Dim i%

On Error Resume Next

Sheets(1).Select

Worksheets.Add '新建一个工作表

Sheets(1).Name = "汇总工作表" '对新建工作表重命名

For i = 2 To Sheets.Count 'For循环，遍历所有工作表

Sheets(i).Activate '激活工作表

Range("a1").Select

Selection.CurrentRegion.Select '选择活动工作表数据区域

Selection.Copy Destination:=Sheets(1).Range("a65536").End(xlUp).Offset(1) '粘贴到汇总工作中

Next

MsgBox ("工作表已全部合并到指定工作表中！") '弹窗提示合并完成

End Sub

工作表创建大家应该都不陌生，可能绝大多数的小伙伴会一张一张建立工作表。

倘若我们要快速建立50甚至上100张工作表怎么办呢？

方案一：自定义工作表张数

具体操作步骤：点击文件，点击选项，然后设置工作表包含数量。

如果你要打开这个工作簿有20张，你只需要填写数字20即可。

方案二：通过数据透视表显示报表筛选页的方法

具体操作步骤：

①先把标题和表名称罗列出来，比如我现在要12个月的报表。

②选中标题和表名称，然后点击插入选项卡，建立数据透视表。

③把字段名称退拽至报表筛选区间

④在数据透视表工具下，选项里面选择报表筛选页。

⑤点击确定，然后就会发现神奇的事情了。

⑥清除内容，右击选定全部工作表，然后Ctrl+A选定工作表所有内容，然后点击开始选项卡下方的编辑组里面的清除，点击全部清除。

--------------------------------------------------------------

每日互动

①你之前用过这样的操作吗？

②目前有木有什么工作问题想解决吗？可以留言，老师免费为你解答哦！

在使用Excel表格过程中，我们会发现一个工作簿中可以包含多个工作表，仅03版就有能创建二百多个（具体数值是255），在往上的高版本更是可以创建数量惊人的工作表格，数量能够达到上万。对于如此多的工作表格，如何只是新建工作表，我们可以设置默认工作簿包含几个工作表设置来简单实现。但是如果需要对这么多的工作表标签指定命名，若我们还是用这种常规的命名方式（双击改名），那真是会把人的累的虚脱。今天本教程就教大家如何根据指定单元格内容，以工作表名方式批量创建工作表技巧。感兴趣的朋友，赶紧来看看吧！

1、首先是创建工作表名称：这个可以自己输入，也可以复制粘贴，也可以导入文本。不管你用什么方式创建，反正只要是合法字符的名称即可。教程以Excel为例，创建工作表的名称如下，A1单元格为创建表格标题，从A2到A20单元格均为需要创建工作表的名称。

2、代码汇编：在Excel界面按下组合键Alt+F11快速调出VBA窗口；在VBA界面中单击菜单栏插入，然后选择模块命令；此时会弹出一个模块窗口，在模块窗口复制粘贴以下代码（最好是将输入法切换至中文输入法模式下复制粘贴）：

Sub 批量生成指定名称工作表()

Dim i%, j%, k%

i = Application.CountA(Range("a2:a20"))

For j = 2 To i Step 1

Sheets.Add after:=Sheets(Sheets.Count)

k = Worksheets.Count

Sheets(k).Select

Sheets(k).Name = Sheets(1).Cells(j, 1).Value

Next

End Sub

3、结果显示：将鼠标光标定位在这段代码当中，然后按下F5键运行该段代码程序（或单击菜单栏中的运行，然后选择运行子程序命令，如上图所示）。待代码运行完毕，按下Alt+F11关闭VBA窗口，返回Excel工作界面查看结果，发现已经按照我们的要求批量生产了一堆工作表。

有的时候一个工作簿中有十多个工作表，想把格式或者数据进行批量处理，如果逐个修改，即便使用复制粘贴功能，依然很是浪费时间，很麻烦。其实，微软为我们提供了很简单的解决方法，那就是先选中多个目标工作表，再进行操作，就可以完成批量修改啦。今天来和小编一起来学习如何为多张工作表同时进行批量编辑吧。

一、选中多个工作表

如果是连续的工作表，则点击第一个目标工作表标签，按住【Shift】键，同时再点击末尾的目标工作表标签，这样就选中了区间所有的工作表。如果不是连续的工作表，则点击第一个工作表标签后，按住【Ctrl】键，依次点击目标工作表，这样就选中了不连续工作表。

二、批量编辑

完成工作表的选中后，在目前单元格中的任意操作都将运用到被选中的每一个工作表中。例如：（1）输入数据：当我在A1中输入数字1，则后面的所有表格中都将在单元格A1中完成数字1的输入。（2）格式设置：比如调整单元格A1中的数字大小、颜色、填充色等。（3）单元格设置：合并单元格、插入、删除、调整单元格大小等；（4）插入公式：自制公式、插入函数等。

PS：完成批量操作后，需要在任意工作表标签上单击鼠标右键，在弹出的列表中，点击【取消成组工作表】按钮，再次操作时就会只应用到当前工作表。

欢迎关注，以上。

Excel中快速把一个表格的格式复制在多个表格？ 同一个模板快速复制到其它表格

1先全选单元格，（可以根据自己的需求决定），确认这个是模板表格！

2按下 【↑Shift 上档】键 然后用鼠标全选 表格；

小窍门：

（直接点击最后面的表格，那么代表全选表格，示例：Sheet8 →Sheet10）

3选中后，点击表格 右上方的 【填充】按钮，选中【成组工作表】

4在弹出的【填充成组工作表】中可以根据自己的需求进行选中 粘贴的 格式

分别是： 【内容】 或者 【格式】 也可以选择 【全部】；

5最后可以检查Sheet9 和Sheet10 查看是否已经覆盖全部内容！

如图所示：

施老师：

经常有学员问我，EXCEL中一个表格中有大量的数据，如何把整张EXCEL复制一份，下面就听我详细的讲解。

一、右击下方的工作表名称，点击【移动或复制】。

二、然后点击【工作簿】后方的小三角。3.选择要移动的工作簿，然后勾选【建立副本】，如果没有勾选，工作簿将移动到另一个工作簿，原来的Excel将没有这个工作簿。

三、然后点击【确定】。

四、就完成复制了。

Excel文档（工作簿）是由一个或者多个工作表（Sheet）组成的。在编辑表格时，如果想把整个Excel工作表复制到其他Excel文档中，虽然可以采用全选后复制粘贴的方法，但是这样容易弄乱原来的格式，如果数据较多，粘贴时可能还要花费点时间。这里介绍如何快速把整个工作表复制到其他Excel文档中，以供参考。

●如下图的Excel文档中有多个工作表，想把其中的一个或者多个工作表复制到其他的Excel文档中。

●先打开要复制的目标文档，建议最好在Excel中打开。因为有的电脑可能会设置成每打开一个Excel文档就开启一个Excel进程，这样不同的Excel进程之间就不能用本文的方法快速复制整个工作表，而且也不能复制粘贴公式等，只能粘贴数值。

●点击Excel左上角的菜单按钮（不同版本Excel的菜单按钮样式可能不同，但位置都差不多）。

●在弹出的菜单中点击“打开”，会打开一个浏览窗口（也可以按键盘的Ctrl+O键打开浏览窗口）。

●在浏览窗口中找到目标Excel文档，双击该文档名称即可打开。

●打开目标文档后，点击Windows任务栏的原Excel文档，回到该文档。

●在要复制的工作表的标签上点击鼠标右键。

●弹出右键菜单后，鼠标左键点击其中的“移动或复制工作表”。

●弹出“移动或复制工作表”对话框后，点击工作簿处的下拉按钮。

●在下拉菜单中点击刚才打开的目标文档。（注：如果电脑被设置成每打开一个Excel文档就开启一个Excel进程，而且目标文档是直接在Windows中双击打开的，不是按上述方法在Excel中打开的，那么下拉菜单中就不会显示该文档。）

●点击勾选下方的“建立副本”选项，如果不勾选就变成移动工作表了，这样原文档中就没有这个工作表了。

●点击下方的选项可以设置工作表复制后在工作表标签中的位置，如果想把工作表复制到目标文档工作表标签的最后面，应点选“移至最后”。

●设置好后点击“确定”按钮。

●这样，就将整个工作表复制到目标文档中了。

●如果要复制多个工作表，可先用鼠标左键点击其中的一个工作表标签，然后按住键盘的Ctrl键不放，鼠标点击其他要复制的工作表标签，再在选中的工作表标签上点击鼠标右键，然后按上述方法操作即可。

再提醒一下要注意的地方：

●如果电脑被设置成每打开一个Excel文档就开启一个Excel进程，而且目标文档是直接在Windows中双击打开的，不是按上述方法在Excel中打开的，那么“移动或复制工作表”对话框的下拉菜单中就不会显示目标文档名称。

●如果只是想复制工作表，一定要点击勾选“移动或复制工作表”对话框的“建立副本”选项，否则点击确定按钮后原文档中就没有这个工作表了。

我们在使用表格的时候，不仅会复制和移动单元格，很多时候也会直接借用原有的工作表。一般你会怎么做呢？全选-复制-新建工作表-切换到新表-粘贴？？？有没有稍稍觉得操作起来有点麻烦？有的时候复制粘贴不好原有的格式又变动了，还需要再次去调整格式。小编今天和大家一起学习如何快速复制工作表。

一、鼠标拖动复制工作表

这个方法不限于是否在同一工作薄中。点击并选中目标工作表标签，同时按住组合键【Ctrl】和鼠标左键，并拖动鼠标至目标位置，即可获得所选的工作表复制表。若在同一工作簿，工作表标签被重新命名，如在不同的工作簿，且未重名的情况下，工作表标签将被沿用。

二、功能区命令法

选择目标工作表，切换到【开始】选项卡，在【单元格】组中，点击【格式】按钮，在弹出的列表中选择【移动或复制工作表】按钮。此时，弹出【移动和复制工作表】对话框，在【将选定工作表移至工作簿】选项中，选择需要移动到的目标工作薄。在【下列选定工作表之前】设定被粘贴工作表在工作薄中出现的位置，同时勾选【建立副本】，单击【确定】按钮即可。

欢迎关注，以上。