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

在使用Excel时，如果想把两个单元格中的文字合并到一个单元格中，或者想把两列文字合并成一列，可参考下述方法：

例如要将下图表格中的省和市合并到一个单元格、列中。

●先用鼠标点击选择一个保存合并内容的单元格。

●然后在编辑栏中输入一个等号。

●输入等号后，用鼠标点击要进行合并的第一个单元格。点击后，该单元格的名称会自动输入到编辑栏中。

●再在编辑栏中输入一个“&”符号（按住键盘的Shift键不放的同时按大键盘上方的数字7键）。

●输入“&”后，再用鼠标点击要合并的第二个单元格。

●完成以上步骤后，按键盘的回车键或者点击编辑栏左侧的对号按钮。

●这样，就将两个单元格中的文字合并到一个单元格中了。如果要合并两列，可用鼠标点击合并后单元格右下角的填充柄。

●点击填充柄后，按住鼠标左键不放，向下拖动鼠标，则相同两列中的文字就会自动合并到一列中。

合并后的单元格中虽然显示的是文字，但点击单元格后从编辑栏中可看出单元格中的实际内容是公式。此时如果将该单元格中的内容直接复制粘贴到其他位置，粘贴后的内容会发生改变。如果想保持粘贴后的内容不变，可以采用选择性粘贴数值的方法粘贴，或者将单元格中的内容复制粘贴到word中，再从word中复制粘贴过来。

在实际工作中，有时我们需要将EXCEL两列数值的内容合并成一列连贯的内容，最简单的做法就是用连结符“&”连结两个单元格，下图，A列和B列是EXCEL常用词语中英文对照表的部分内容，若想A、B两列的内容同时显示在一列当中，我们只要在D4单元格中输入=A2&B2公式就OK了。

如果，我们还想把A、B两列的内容依次在同一列中显示，有没有解决的办法呢？

D2单元格中输入以下公式，向下复制至单元格显示空白为止。

=OFFSET($A$2,(ROW(A1)-1)/2,MOD(ROW(A1)-1,2))&""

下面，我们对这个公式的运行逻辑作一个梳理：

公式以“(ROW(A1)-1)/2”部分的计算结果作为OFFSET函数的行偏移参数，在D2单元格中的计算结果为0。ROW函数使用了相对引用，在公式向下复制时计算结果依次为了0、0.5、1、1.5…从0开始构成了一个步长值为0.5递增序列。OFFSET函数对参数会自动去尾取整，因而，ROW函数生成的序列在OFFSET中的作用相当于0、0、1、1…也就是说，公式每向下复制两行，OFFSET偏移的行数增加1。

“MOD(ROW(A1)-1,2”部分的计算结果作为OFFSET函数列偏移参数，在D2单元格中的计算结果为0。在公式向下复制时计算结果依次为0、1、0、1。。。即从0开始构成了一个0和1的循环列。

用OFFSET函数以A2单元格为基点，使用ROW函数和MOD函数构建的有规律的序列作为行、列的偏移量，就完成了数据转置。如果OFFSET函数返回的引用为空单元格，公式结果将返回0，&" "部分就是用于屏蔽无意义的0值。

施老师：

有些同事不太会使用Excel表格，连录入数据都是乱七八糟，本来是可以在一个单元格录入的数据，偏偏弄到多个单元格中，如果录错的数据少，还可以手动移过来，如果数据多的话，一个一个的手动移过来，岂不是要累死，这时候我们也不需在重新建立或修改表格，只需找对规律将多个单元格内容合并到一个单元格中即可。

一、使用连接符&

最常用简单的方法，莫过于使用连接符【&】搞定。在需要合并的单元格中输入“=单元格位置&单元格位置”即可，完成后在公式栏中打对勾，然后相同的位置单元格我们可以直接用鼠标拉住单元格右下方的“+”即可合并下方的单元格，如果位置不同的话就用公式“=单元格位置&单元格位置”再算一遍。

二、 使用函数CONCATENATE

使用公式【=CONCATENATE(单元格位置,单元格位置,单元格位置）】也可以快速达到合并的效果。

大家一般用什么方法去合并EXCEL中单元格的内容的？请在下方评论区留言写下你的看法。和施老师一起探讨。

请关注宁双学好网施老师百家号，本文欢迎转载与分享，转载请注明出处！

施老师：

快要过年了，年前许多公司开始统计之前每月的销售表格，做一个整年的销售统计表。有的小公司的表格可能不是很多，手动就可以整好。但是对于一些需要整合大量表格的公司来说是一件很费时的事情。今天施老师就给大家分享下快速合并并计算表格方法！

一、下图中有两个表格，怎样把它们合并到一起呢，我们可以点【数据】-【数据工具】-【合并计算】。就可以了。

上面两个表格数据不是很多，但是我是做演示，所以先用的这个案例，如果碰到数据很多的表格，这个方法是再好不过了。大家不妨试一下下。

有什么疑问的大家可以在下方评论区留言给我，和施老师一起探讨，欢迎关注宁双学好网施老师！

更多Excel技巧，请关注我的百家号：欢喜小龙虾。

今天带个大家的是：如何把下面第一张图中的两列黄色背景的单元格中的内容合并放到一个单元格呢？第二张图是结果图。

下面是得到的结果，姓名这一列和语文成绩这一列的内容全部放在一个单元格了。怎么做到的呢？下面上步骤：

首先在下面空白处找到一个单元格用来放内容，并且首先输入一个等号，如下图中红色线框内的单元格。

等号输入后，有鼠标点击左侧姓名的单元格，如图中红色线框内。下面会出现A50，这是红色线框内单元格对应的位置。

然后，在A50后面输入一个“和”符号（&），如图：

再次单击右侧这一列黄色背景列的语文这个单元格，如图：

单击好后，直接回车，就得到第一个合并的单元格了，如图：

然后单击选中该单元格，把鼠标放在右下角，等出现黑色加号为止，如图：

向下拖拽，有多少列就拖拽多少列，如图：

拖拽好后，就得到下图的结果，如图

这个平常在工作中还是挺实用的，不需要一个一个复制粘贴了，学会的点个赞吧！！！

更多Excel技巧，请关注我的百家号：欢喜小龙虾。

把几个excel表格的内容，合并到同一张表格里面，如何操作？看小编给你演示。

第一步：把需要合并的表格放在同一个文件夹里面，然后再新建一个excel，如图：

第二步：打开“新建Excel2007”，鼠标右键单击Sheet1，选择“查看代码”并打开进去。

第三步：将下列代码粘贴进代码栏：

Sub 合并当前目录下所有工作簿的全部工作表()

Dim MyPath, MyName, AWbName

Dim Wb As Workbook, WbN As String

Dim G As Long

Dim Num As Long

Dim BOX As String

Application.ScreenUpdating = False

MyPath = ActiveWorkbook.Path

MyName = Dir(MyPath & "\" & "*.xls")

AWbName = ActiveWorkbook.Name

Num = 0

Do While MyName <>""

If MyName <> AWbName Then

Set Wb = Workbooks.Open(MyPath & "\" & MyName)

Num = Num + 1

With Workbooks(1).ActiveSheet

.Cells(.Range("B65536").End(xlUp).Row + 2, 1) = Left(MyName, Len(MyName) - 4)

For G = 1 To Sheets.Count

Wb.Sheets(G).UsedRange.Copy .Cells(.Range("B65536").End(xlUp).Row + 1, 1)

Next

WbN = WbN & Chr(13) & Wb.Name

Wb.Close False

End With

End If

MyName = Dir

Loop

Range("B1").Select

Application.ScreenUpdating = True

MsgBox "共合并了" & Num & "个工作薄下的全部工作表。如下：" & Chr(13) & WbN, vbInformation, "提示"

End Sub

第四步：点击菜单栏的“运行”、“运行子子过程/用户窗体”，等待几秒后提示合并完成，点击确定。如图：

完成，这样就把3个表格的内容合并到同一张表格里面。

好了，如果觉得小编文章不错，欢迎关注、点赞、收藏。

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

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

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

图1 原始表

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

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

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

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

图3 生成合并计算结果表

注意：

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

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

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

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

从事互联网行业的小编们，经常会遇到一个问题，就是导出多个Excel表格数据，经常是多个数据合并到一个excel表格里来做数据分析，那么如何快速的合并excel表格呢？

1、把所有excel文件放在同一个文件夹里。如下图：

2、打开汇总excel，并右键单击sheet1，找到“查看代码”，单击进去。进去之后就看到了宏计算界面。如图所示：

3、然后我们把下面代码复制进去，然后找到工具栏上面的“运行”下的“运行子过程/用户窗体”，代码如下，如图所示：

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("B65536").End(xlUp).Row + 2, 1) = Left(MyName, Len(MyName) - 4)For G = 1 To Sheets.CountWb.Sheets(G).UsedRange.Copy .Cells(.Range("B65536").End(xlUp).Row + 1, 1)NextWbN = WbN & Chr(13) & Wb.NameWb.Close FalseEnd WithEnd IfMyName = DirLoopRange("B1").SelectApplication.ScreenUpdating = TrueMsgBox "共合并了" & Num & "个工作薄下的全部工作表。如下：" & Chr(13) & WbN, vbInformation, "提示"End Sub

运行几十秒钟就OK啦！如果表格数据过多的话，时间会久一点。

一听到Excel数据多表合并计算，感觉很难，其实简单的Excel数据多表合并计算，实际上很简单的。

Excel数据多表合一的问题在工作中经常遇到，将两张表合并在在一起计算，我们想合成一张报表，怎么处理呢？

今天跟各位朋友分享下“Excel数据多表合并计算”操作步骤如下：

1、将鼠标定位在O1单元格中，然手点击【数据】选项卡下的“合并计算功能”；

2、在弹出的“合并计算”对话框中，先选择计算方式“求和”，再点击浏览旁边的“红色小箭头”按钮，

在弹出的“合并计算—引用位置”对话框中，选择左边表格中的数据；

引用位置选择

3、将“引用位置”添加到“所有引用位置"，再次选“引用位置”红色小箭头按钮

4、在弹出的“合并计算—引用位置”处选择右表的数据，将"引用位置"添加到“所有引用位置”处，勾选标签位置的“首行”和“最左列”，点击确定；

选择数据引用位置动态操作图

5、初步效果出来，左表加右表得出第3个数据表。

6、将合并计算得出的数据表格进行美化，得出最终数据表格。

今天分享的Excel多表合并计算你学会了吗？如果是跨表合并的话，选择引用位置到另一个表格提取即可操作。希望今天的分享对各位朋友在工作中有所帮助！

更多关于Office——Excel操作技巧可加入我们 群 一起交流学习！159534659