合并方法如下：

把需要合并的excel表格文档放到同一个文件夹里

新建一个“数据合并.xlsx“文档

打开“数据合并.xlsx“文档，在”Sheet1“工作表的地方右键→查看代码（快捷键：“Alt+F11”，尽量选用快捷方式）进入到Microsoft Visual Basic for Applications窗口

双击工程资源管理器里面的sheet1，在右侧的代码区粘贴如下代码：Sub 合并当前目录下所有工作簿的全部工作表()Dim MyPath, MyName, AWbNameDim Wb As Workbook, WbN As StringDim G As LongDim Num As LongDim BOX As StringApplication.ScreenUpdating = FalseMyPath = ActiveWorkbook.PathMyName = Dir(MyPath & "\" & "*.xls")AWbName = ActiveWorkbook.NameNum = 0Do While MyName <> ""If MyName <> AWbName ThenSet Wb = Workbooks.Open(MyPath & "\" & MyName)Num = Num + 1With Workbooks(1).ActiveSheet.Cells(.Range("A65536").End(xlUp).Row + 2, 1) = Left(MyName, Len(MyName) - 4)For G = 1 To Sheets.CountWb.Sheets(G).UsedRange.Copy .Cells(.Range("A65536").End(xlUp).Row + 1, 1)NextWbN = WbN & Chr(13) & Wb.NameWb.Close FalseEnd WithEnd IfMyName = DirLoopRange("A1").SelectApplication.ScreenUpdating = TrueMsgBox "共合并了" & Num & "个工作薄下的全部工作表。如下：" & Chr(13) & WbN, vbInformation, "提示"End Sub

运行→运行子过程/用户窗体（或者直接点击运行按钮，快捷键：F5），即可合并所有Excel表格到”数据合并.xlsx“文档的Sheet1工作表里面

完成Excel表格的合并。

（本文内容由百度知道网友lvrqing贡献）

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

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

二、效果展示

三、实现步骤

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

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

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

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

我们在工作中经常会遇到有各个分公司汇总上来的总表，但是根据职能部门的情况分类又没有对应的表格。这时大部分人可能就依靠【筛选】功能，按照每个部门进行一次筛选，然后再复制粘贴到新的表格中，这真的是要靠时间来完成，一不小心就又要加班喽，小编今天和大家一起学习，通过【创建数据透视表】完成工作表拆分出页~

点击任意单元格，切换到【插入】选项卡，选择【数据透视表】，弹出【创建数据透视表】，选定区域后，点击【确定】。将【部门】放入【报表筛选】，将需要的信息分别放置【行/列标签】及【数值】中。这里需要注意一下，大家想要按照什么进行拆分，就把相应的的字段拖动到【报表筛选】中。

切换到【数据透视工具表】的【分析】选项卡，在【数据透视表】组中，点击【选项】旁边的下三角，弹出下拉列表，选择【显示报表筛选页】，弹出【显示报表筛选页】，点击【确定】即可。汇总表格即按照【部门】分类进行拆分出新的工作表。

注意：拆分表功能并没有将原有的数据源破坏，而是按照数据拆分出N个表格，总表在最右侧。每一个分页都具有【数据透视表字段】，后期也可以进行内容的更改。

以上。

希望大家在阅读之余，多加练习办公软件Office的使用，提高我们的工作效率，成为职场高效率的一员。我将在每周都进行内容更新，大家一起学习，共同进步。

Office小技巧-Excel表格中五种常用的日期与时间函数

Office小技巧-三种EXCEL表格常用逻辑类函数

Office小技巧-Excel中引用单元格的种类

应用场景1

老板：小王啊，调查一下大家对我们人事部的服务有什么意见或建议没。小王：好的。

小王做好一份Excel调查表模板，分发下去。然后收到了100份结果文件。

应用场景2

老板：小王啊，还有5分钟我就要开会了，我们12家门店的销售情况表汇总到一起了吧。

小王应该怎么合并这些Excel文件？一个一个复制到手软吗？

合并多个Excel文件

第一步：将所有的Excel调查表文件存放在同一个文件夹下。打开一个空白Excel文件，点击“新建查询”，选择“从文件夹”中导入，然后粘贴所有Excel调查表所在路径。

第二步：在“组合”下拉菜单中选择“合并和编辑”。

第三步：选中要合并的工作表。

第四步：点击Power Query编辑器中的“关闭并上载”。

稍等片刻，所有的文件就都合并到同一个工作表啦。

可以看到表头的两行重复显示了很多遍。使用定位或筛选功能，删除多余的行即可。

当然，也可以在上述步骤4“关闭并上载”之前删除一些行。

更新数据

小王好开心，100份Excel调查表就这么轻松地合并到一起了。小丽：小王，我的调查表修改了一下，发一份新的给你吧。小王……

小王，莫急，直接在原来的文件夹下替换小丽的调查表，然后在合并后的汇总表上，右键一下，点击“刷新”即可。

合并多个Excel工作表

和合并excel文件类似，用Power Query同样可以快速完成。

第一步：打开一个空白Excel文件，点击“新建查询”，选择“从工作簿”中导入，然后打开需要汇总的Excel文件。

第二步：选中所有要合并的工作表名称，然后点击“编辑”。

第三步：按照图示的步骤，点击“追加查询”，然后将所有的工作表添加进来。

最后点击“关闭并上载”，所有工作表内容就合并到一个工作表下啦。同样的，如果原始的表格数据更新，在汇总表上刷新一下即可同步更新数据。

注意：以上步骤都基于Power Query插件，Excel2016才支持。使用低版本的Excel或WPS的朋友请查考明日的文章。

相关阅读：《多个word文档怎么合并》。

谢谢阅读，每天学一点，省下时间充实自己。欢迎点赞、评论、关注和点击头像。

在日常工作中，经常需要将相似结构或内容多个表格进行合并汇总。当数量庞大时人工进行计算比较繁琐，工作量大且易犯错，使用Excel中的“合并计算”功能可以轻松完成这项任务。

合并计算的数据源可以是同一工作表中的不同表格，也可以是同一工作簿中的不同工作表，还可以是不同工作簿中的表格。现针对第一种情形进行演示说明：

如图1所示的两个结构相同的数据表“表一”和“表二”，利用合并计算可以轻松将这两个表格进行合并，具体步骤如下。

图1 原始表

步骤1选中B10单元格，作为合并计算后结果的存放起始位置，再单击【数据】选项卡【数据工具】命令组的【合并计算】命令按钮，打开【合并计算】对话框，如图2所示。

图2 打开【合并计算】对话框

步骤2激活【引用位置】编辑框，选中“表一”的B2:D6单元格区域，然后在【合并计算】对话框中单击【添加】按钮，所引用的单元格区域地址会出现在【所有引用位置】列表框中。使用同样的方法将“表二”的F2:H6单元格区域添加到【所有引用位置】列表中。

步骤3依次勾选【首行】复选框和【最左列】复选框，然后单击【确定】按钮，即可生成合并计算结果表，如图3所示。

图3 生成合并计算结果表

注意：

1.在使用按类别合并的功能时，数据源列表必须包含行或列标题，并且在“合并计算”对话框的【标签位置】组合框中勾选相应的复选框。

2.合并的结果表中包含行列标题，但在同时选中【首行】和【最左列】复选项时，所生成的合并结果表会缺失第一列的列标题。

3.合并后，结果表的数据项排列顺序是按第一个数据源表的数据项顺序排列的。

4.合并计算过程中不能复制数据源表的格式。如果要设置结果表的格式，可以使用【格式刷】将数据源表的格式复制到结果表中。

Excel的分身术：在多个窗口中查看同一个工作表

大家好，我是@爱玩电脑。今天给大家讲讲如何将办公软件Excel的同一个工作表内容在两个及以上的窗口中显示，方便我们查看工作表的不同部分，进行数据核对、处理。我们前面讲过一个窗口拆分功能：天涯若比邻：Office办公软件的窗口拆分功能方便核对数据，这次讲的是另外一种方法。

概况：演示用的办公软件为Excel2007。我们的表格是这个样子的，表格的文件名是"新建窗口示例表格"：

一、新建窗口

点击"视图"/"新建窗口"。好像没什么变化？实际上你可以看到表格的名字已经变成"新建窗口示例表格：2"，

同时在屏幕下方的工具栏上可以看到已经是2个Excel文件窗口了。你还可以新建更多的窗口，但是好像更多的窗口也不太实用了。

二、排列窗口

点"视图"/"全部重排"，然后选择排列方式（我一般选"垂直并排"）

就可以发现两个相同内容的表格出现了。

三、处理数据

我们在任何一个窗口里面进行拖动，不会影响到另外一个窗口；我们在任何一个窗口进行数据修改，另外一个窗口都是同步修改。

好吧，办公软件Excel的新建窗口功能就讲到这里。文章由@爱玩电脑创作，转载请注明出处。

有时候，我会相信一切有尽头，相聚离开，其实都在眨眼之间。

上篇我们刚刚说过，将Excel多工作表数据汇总到一个工作表，但是有时候我们需要将同一个工作簿里的不同工作表，分别另存为单独的工作薄；如果只是一两张工作表需要这样处理，我们手工操作复制新建粘贴保存，可如果是数量非常大，这个时候你用手工操作显得格格不入。

我们今天还是想告诉你，用VBA来处理这件事，那么你会发现这事就非常简单了，功成名就就在你眼中。

举一个例子，如下图，我们总共有5个工作表，现在需要将他们分别拆分为不同的工作薄。

我们还是惯例看看动画是如何来操作的吧！

附上Excel VBA代码：

我们可以发现其中的关闭了屏幕刷新和取消了系统信息警告，所以当我们在所选择保存文件的路径下有和当前重名工作簿时，该段代码会直接以新文件覆盖旧文件的并保存，不会发出提醒信息给到你。

以上就是今天要和大家分享的技巧，希望对大家有所帮助，祝各位一天好心情！

唯有不断学习，才能不被淘汰！

Excel中每一个方法都有特定的用途，不是他们没有用处，只是你不了解或者暂时用不着，建议你收藏起来，万一哪天用着呢？

1.原始数据表如下（名称为：数据源），需要根据B列人员姓名拆分成每个人一个工作表。

2.点击【开发工具】-【Visual Basic】或者Alt+F11的快捷键进入VBE编辑界面。

3.如下图所示插入一个新的模块。

4.如下图，粘贴下列代码在模块中：

Sub CFGZB()

    Dim myRange As Variant

    Dim myArray

    Dim titleRange As Range

    Dim title As String

    Dim columnNum As Integer

    myRange = Application.InputBox(prompt:="请选择标题行：", Type:=8)

    myArray = WorksheetFunction.Transpose(myRange)

    Set titleRange = Application.InputBox(prompt:="请选择拆分的表头，必须是第一行，且为一个单元格，如：“姓名”", Type:=8)

    title = titleRange.Value

    columnNum = titleRange.Column

    Application.ScreenUpdating = False

    Application.DisplayAlerts = False

    Dim i&, Myr&, Arr, num&

    Dim d, k

    For i = Sheets.Count To 1 Step -1

        If Sheets(i).Name <> "数据源" Then

            Sheets(i).Delete

        End If

    Next i

    Set d = CreateObject("Scripting.Dictionary")

    Myr = Worksheets("数据源").UsedRange.Rows.Count

    Arr = Worksheets("数据源").Range(Cells(2, columnNum), Cells(Myr, columnNum))

    For i = 1 To UBound(Arr)

        d(Arr(i, 1)) = ""

    Next

    k = d.keys

    For i = 0 To UBound(k)

        Set conn = CreateObject("adodb.connection")

        conn.Open "provider=microsoft.jet.oledb.4.0;extended properties=excel 8.0;data source=" & ThisWorkbook.FullName

        Sql = "select * from [数据源$] where " & title & " = '" & k(i) & "'"

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

        With ActiveSheet

            .Name = k(i)

            For num = 1 To UBound(myArray)

                .Cells(1, num) = myArray(num, 1)

            Next num

            .Range("A2").CopyFromRecordset conn.Execute(Sql)

        End With

        Sheets(1).Select

        Sheets(1).Cells.Select

        Selection.Copy

        Worksheets(Sheets.Count).Activate

        ActiveSheet.Cells.Select

        Selection.PasteSpecial Paste:=xlPasteFormats, Operation:=xlNone, _

                               SkipBlanks:=False, Transpose:=False

        Application.CutCopyMode = False

    Next i

    conn.Close

    Set conn = Nothing

    Application.DisplayAlerts = True

    Application.ScreenUpdating = True

End Sub

5.如下图所示，插入一个控件按钮，并指定宏到刚才插入的模块代码。

6.点击插入的按钮控件，根据提示选择标题行和要拆分的列字段，本例选择“姓名”字段拆分，当然也可以选择C列的“名称”进行拆分，看实际需求。

7.代码运行完毕后在工作簿后面会出现很多工作表，每个工作表都是单独一个人的数据。具体如下图所示：

注意：

1）原始数据表要从第一行开始有数据，并且不能有合并单元格；

2）打开工作簿时需要开启宏，否则将无法运行代码。

（本文内容由百度知道网友茗童贡献）

excel使用技巧大全表格的拆分对很多人来说都是一件难事，大家都想到的第一个方法就是复制和粘贴，或者用代码解决，其实，EXCEL有自带功能的，可以快速的帮你实现拆分。今天就给大家介绍一下这种方法，不需要编写任何的代码，一下就学会了。

例如下面我们要把这个表格拆分成多个工作表。

要把A列的销售部门，按照部门的名称进行分表。这时候，传统的方法就是插表，再进行复制粘贴。其实，解决这个问题，我们只需要学会运用Excel自带的数据透视表功能就可以。

首先，创建一个数据透视表，选中我们有用的数据区域，接着插入数据透视表。记住除了销售部门名称外，其他都要添加行标签。

插入完之后，我们就调整格式，选中区域，在浮动选项卡——布局分分类汇总——不显示，报表布局那里在选择报个形式，在去分析选项卡里面把+/- 键进行取消。

第三步，就是最为关键的一步，进行拆分表格，在透视表工具中，按选项—显示报表筛选页—确定，那么拆分就完成。

第四部删除数据透视表格式，这个比较简单。按shift连选表格，然后根据下面的方法，复制粘贴相应的值，最后删除前2行和取消工作表就可以完成。

第二个例子，批量建设相同的表。

学了如何拆分表，现在学学如何批量新建表格，具体操作如下图：

工作中，我们经常遇到这样的问题，比如：如何将一个工作表按类别快速拆分成多个工作表？如何将一个工作簿的多个工作表快速拆分另存为多个工作簿？下面就用案例来说明如何解决这两个问题。

第1个问题：有关工作表快速拆分的问题。案例：将员工花名册按部门拆分成多个工作表。

批量拆分工作表的方法：数据透视表

1、创建数据透视表，首先按将普通的表格（员工基本情况表）转换成数据透视表。

具体方法：【插入】→【数据透视表】→在数据透视表字段中将部门拖选到筛选区域，勾选（或拖选）其他字段到行（Excel2016在勾选日期字段时会自动添加【年】和【季度】字段，如果不需要，您可以将前面的√取消选择）。

2、调整数据透视表格式。

默认条件下创建的透视表看起来不符合我们的要求，需要进行一些调整，让数据透视表更接近我们员工花名册的格式。

具体方法：点击数据透视表任何位置→【数据透视表工具】→【设计】→【分类汇总】不显示分类汇总→【总计】对行和列禁用→【报表布局】以表格形式显示。

友情提醒：

① 有时数据透视表会自动将日期变成月份格式，我们只要右击鼠标，选择【取消组合】就可以显示正常的日期了。

②有时日期会显示成####，这是因为字符宽度超出了列宽，我们只要把列宽调大就可以了。快速调整列宽适应单元格字符长度的快捷方法是选中要调整的列，将鼠标指针放到列号与列号之间，当指针变成十字后双击鼠标左键即可。

③有时身份证会显示不对，我们只要设置单元格格式为自定义格式“0”即可。

3、按部门拆分工作表

具体方法：【数据透视表工具】→【分析】→【选项】→【显示报表筛选页】→【部门】→【确定】。动画演示如下：

4、规范工作表格式。前面已将员工基本情况表数据源已按部门拆分成7个工作表，为了下一步工作表拆分，我们先将工作表格式进行规范。

具体方法：全选工作表→右键【复制】→【粘贴成值】→删除第1和第2行（数据透视表不粘贴成值不能删除第1和第2行，调整日期格式和身份证格式。动画演示如下：

第2个问题：将一个工作簿的多个工作表快速拆分另存为多个工作簿。案例，将我们刚刚用数据透视表按部门拆分的工作表批量另存为多个工作簿。

1、导入模块文件。

具体方法：按快捷键Alt+F11，打开工程窗口→【导入文件】→选择模块文件（.bas）→【打开】→关闭VBA 编辑器。

2、另存为工作簿。

①选中需要另存的工作表。选择连续的工作表可以按shift键选择第一个工作表，再选择最后一个工作表，选择不连续的工作表可以按住ctrl键点选工作表。

②【开发工具】→【宏】→选择“拆分工作表”宏→执行。

完成上述操作后，您就可以在当前工作表所在路径的文件夹中找到一个名为【拆分好的工作表】的文件夹，被另存的工作簿就存在这个文件夹里，工作簿名称默认为工作表的名称。

如果觉得好用，请关注、点赞、评论、转发，你的支持是我坚持的动力，更多的EXCEL技能，大家可以关注“EXCEL学习微课堂”。如需批量拆分工作表到工作簿VBA代码文件，请关注、转发后私信联系我。