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

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

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

图1 原始表

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

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

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

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

图3 生成合并计算结果表

注意：

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

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

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

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

原数据与结果数据：

第一种方法：数据——删除重复项

第二种方法：数据——高级筛选

第三种方法：数据——合并计算

第四种方法：COUNTIF函数

在B1输入公式：“=COUNTIF($A$2:A2,A2)”，随着公式的向下填充，查询区域是以A2为起始单元格，结束单元格不断增加的动态区域。公式每向下填充一行，查询区域向下增加一个单元格。

此公式返回的值中，凡是“1”的，对应的数据要么是唯一值，要么是重复值中的第一个。

再用筛选功能，筛选出不是“1”的行，删除，留下的即是不重复的数据。

第五种方法：数据透视表

关注

转发

收藏

会让小编更有动力输出高价值的内容

今天

我们来讲讲

在职场中经常会用到的

EXCEL合并技巧

合并

顾名思义

就是将多个内容合并成新的内容

从范围上讲

它包括

单元格与单元格之间的合并

区域与区域之间的合并

工作表与工作表之间的合并

工作簿与工作簿之间的合并

那么

我们就一起来看看

这4种都是怎么进行合并的

一：单元格与单元格

以下列表格为例

将A列和B列的内容合并到C列中

使用连接符号&

按住“Shift和7”出现&

输入“=A2&B2”

合并后如下

二：区域与区域

以下列表格为例

将新工号区域合并到旧工号区域上

复制新工号区域

选中A1

右击选择【选择性粘贴】

勾选【跳过空单元】

点击确定

合并后如下

三：工作表和工作表

以下列3个工作表为例

将【1月销售量】工作表

和【2月销售量】工作表

的牛奶和面包的销售量

合并到【1,2月总销售量】中

选中【1,2月总销售量】中的范围

点击【数据】—【合并计算】

函数选择【求和】

引用位置选择

【1月销售量】和【2月销售量】

中的销售量范围

最后点击确定

合并后如下

四：工作簿和工作簿

以下列两个工作簿为例

将工作簿【1-6月工资】的内容

合并到工作簿【7-12月工资】上

将两个工作簿都打开

在【1-6月工资】工作簿上

点击【视图】—【全部重排】—【垂直并排】

在【1-6月工资】工作簿上

选中【1月】工资表

按住Shift键

选中其他工资表

右击选择【移动或复制】

选择对应的【7-12月工资】工作簿后

选择【移至最后】

点击确定

这样

就将两个工作簿的内容

合并在一起了

所以

这4种EXCEL合并技巧

我们就讲完了

大家看完有没有收获呢

应该都是有的吧

学会这4种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个表格的内容合并到同一张表格里面。

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

最近领导提了一份Word文档，里面全是打乱的，总共有六百多项，要是人工来筛查，也不知何时很搞定，寻求有什么办法去掉重复项目，保留其中一个，本文分享一个比较有效，快捷方法，供大家参考学习。

问题：

如何去掉重复项保留其中一个？

方法：

一、将Word内容复制粘贴到Excel里面

不需要装其他复杂工作，比如数据库或者ACCESS等等，也不需要过多sql语言进行删除表建立表，只需利用Excel其中一个功能即可解决。

二、执行命令，可能会报错，比如这个合并单元格必须相同大小

由于Word内容出现合并表格，因此必须去掉单元格，在Excel里删除。

执行报错

出现以上执行错误，是因为表格里有合并项，如下图，把其中一项删除了。

三、执行【删除重复项】命令，可以看到已经删除三百多项

总体来说，这技巧挺方便，毕竟我们遇到这种情况很多，靠着人工来处理，效率低且未能达到目的，因此可以借此强大Excel功能来处理，达到事半功倍的效果。

注意事项：

必须只有一行数据，单元格不能有合并项；若合并太多，可以考虑ACCESS工具，直接复制进去，排序，然后在复制出来到Excel。

更多信息关注【电脑帮帮手】，了解更多计算机管理以及医院信息管理，期待您的关注和支持！

我们想把姓名一样的人员，语文的分数匹配到一起。我们可以用到Vlookup函数，比如下面俩个表格：

（表格1）

（表格2）

第一种方法，数据比较小，我们可以复制对应的分数去第一个表中。

如果数据比较复杂可以用VLOOKUP来按姓名匹配语文分数：

（表格3）

公式为=vlookup（A2,sheet2!A1:B6,2，0）

A2为我们要匹配的对象，sheet2!A1:B6为我们要匹配(提取）的数据所在的表格（表格2），分数在第二列，所以为2，如果我们要匹配的是人名则是所在的列为1。精确匹配则是1.模糊匹配则是0.

鼠标定位到75的单元格，当鼠标变成+时双击鼠标左键则下面的数据都会显示。

注意：精确匹配必须得名称一致。否则会提示#N/A。

这个公式可以帮我们处理很大的数据，好好学习吧

从事互联网行业的小编们，经常会遇到一个问题，就是导出多个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啦！如果表格数据过多的话，时间会久一点。

这个问题应该这样处理：

一、将列数据去除重复项：

可以直接复制出去，删除重复项；

也可以高级筛选；

二、去除重复项后的数据复制后转置

三、写公式取值：

=IFERROR(INDEX(A$1:A$4,SMALL(IF((B$1:B$4=F$1),ROW(A$1:A$4),4^8),ROW(1:1))),"")

这是一个数组公式，输入后，需要同时按下CTRL+SHIFT+ENTER

有些Excel表格使用时间长了，就出现了一些重复项，有整行内容重复的，也有部分内容重复的，就像下图左边的表格，有三个“张三”和两个“王五”，怎样变成右边那个没有重复项的表格呢？如果只有一部分列的内容重复，其他列的内容不重复的又怎么处理呢？怎样统计每个不重复项的个数呢？

使用“删除重复项”功能

首先选中所有数据，接着点击“数据”菜单——“删除重复值”——“确定”，这时Excel会告知你原始表中有几个重复值，几个唯一值，所有的重复项都会被删除掉。

使用高级筛选功能

首先还是选中所有数据，点击“数据”菜单——“高级”——选中“选择不重复的记录”——“确定”。这个窗口中提供了两种方式去显示筛选后的数据，第一种会在原有区域显示筛选结果，第二种，需要先用鼠标点击“复制到”，接着点击一个空白单元格，确定之后就会以该单元格为第一个单元格，显示所有唯一值，也就会看到文章开头的表格啦。

提取了唯一值之后

上述两种方法都可以用来删除重复项，根据需要选取，如果提取了唯一值后，不需要任何操作，按就适合选择第一种方法，方便、快捷；如果提取了唯一值之后，还要计算这些唯一值出现的次数，那就适合第二种方法。如图，输入公式“=COUNTIF($A$2:$A$10,E2)”，然后向下填充复制公式，即可计算出每个不重复数据出现的次数（不了解COUNTIF公式用法的，请点击Excel中按条件统计之COUNTIF和SUMIF公式这篇文章）。

只有一部分数据重复怎么办

用上面的两个方法，如果操作前你选中的是很多列的数据，那只有一整行数据都相同的才能称之为重复项，只有这样的行才会被删除掉。如果只有一列或几列内容相同，其他列不相同或空白，那怎么办呢？

首先建议先用上面的两种方法删除掉一些重复项；接着选中一个关键列（例如姓名），点击“开始”菜单——“条件格式”——“突出显示单元格规则”——“重复值”，给这一列中重复值用颜色标记出来；再选中数据，给它按照颜色和数值排序，将有颜色的放在前面；最后，由于排过序，表格有规律，就可以逐行查看，如果不需要就删除它，否则就保留。

上一篇：Excel中如何快速隐藏一定条件的单元格

来源：“解晴新生”，点击文章开头的“解晴新生”或“关注”可以查看更多相关文章哦。方便的话，请点赞支持下，谢谢！

大家好，Excel合并单元格，是一个让人又爱又恨的东西！强烈建议，尽量不要把单元格合并在一起，因为合并单元格会给以后的数据处理带来很多的麻烦！但合并单元格的功能，在套打或设定版面时，又有其不可替代的作用，因此让人又爱又恨！

我们在工作中经常会遇到需要合并相同值的单元格，但是对于Excel有大量需要合并单元格的时候，你真确定要一个一个的合并吗？其实你大可不必慌忙，我们今天分享的VBA小代码内容是批量合并相同值的单列单元格。您只需将以下代码复制到VBE窗口中，执行代码即可。

照例举个例子，如下图所示，C列是部门字段，需要将相同的部门单元格修改为合并单元格。

源数据：

我们看看执行的效果：

看了上面的动画，是不是感觉非常适合合并大量的单元格。其实上述的代码也是非常简单.

附上Excel VBA代码

Sub MergeRange()

Dim rngData As RangeDim i&, lngCol&, lngFirst, lngLast On Error Resume Next

Set rngData = Application.InputBox("请选择单列数据列！", Default:=Selection.Address, Type:=8)

Set rngData = Intersect(rngData.Parent.UsedRange, rngData) 'intersect语句避免用户选择整列造成低效运算

lngCol = rngData.Column 'rngData所在列 lngFirst = rngData.Row '用户选择的区域并不是一定从第一行开始，使用此句读取开始行

lngLast = lngFirst + rngData.Rows.Count - 1 'rngData结束行 Application.ScreenUpdating = False '取消屏幕刷新 Application.DisplayAlerts = False '取消消息提醒。 rngData.Parent.Select

'激活rngData对象所在的工作表，避免跨工作表操作问题 For i = lngLast To lngFirst + 1 Step -1 '对rngData进行从尾向前遍历 If Cells(i, lngCol) = Cells(i - 1, lngCol) Then Cells(i - 1, lngCol).Resize(2, 1).Merge End If Next

rngData.VerticalAlignment = xlCenter '单元格格式上下居中 Application.ScreenUpdating = True Application.DisplayAlerts = True MsgBox "合并完成！"End Sub

PS:

1，该段代码只支持单列单元格区域，即按照相同的列进行合并。例如A10:A20，B2:B500等。

2，由于merge合并后的单元格区域只保留右上角首个单元格的值，因此该段代码遍历单元格区域的顺序是从后向前，而不是从前向后，后者是新人常出错之处，注意for-next循环是从Step -1开始的。

3，当然也可以采用从前向后的遍历顺序，先将Rng装入数组，对数组中的数据进行遍历判断是否等同，标记头尾行号，再批量合并单元格。该方法的效率也会高于遍历单元格两两合并的方法。

其实合并单元格，对我处理数据的时候，造成非常大的麻烦，我们最好还是少合并单元格。

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

Excel中的每一个函数都有特定的用途，不是他们没有用处，而是你不了解他们或者用不着，建议同学们收藏起来，万一要用着呢！

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