把几个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个表格的内容合并到同一张表格里面。

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

有的时候工作需要把几个数据放在一个格子里，你还在一个个复制粘贴吗？数量少还好，如果数据特别多，那个时候就欲哭无泪了！

不用急，其实很简单，一招就可搞定！

我想合并D-F格的数据，先看图

下面看看怎么操作

在H格输入=合并格+“&”最后回车，最后在右下角拉下去，一次就搞定啦！是不是很简单

如果你有什么疑惑或者想知道其它的什么操作方法，留言，后期会推出哦！

WPS表格的合并功能确实比Excel好用，就工作中最常见的三个案例来说，使用WPS可以一键完成，而使用Excel操作起来却很麻烦。不信，让我们来比一比吧。

案例1：合并同类内容。

合并同类内容可以让报表看起来更清晰美观。在Excel中合并同类单元格，需要分别选中每一个类，不停地点击“合并后居中”，并且每一次点击“合并并居中”按钮，Excel软件都会弹出警告窗口。

而WPS表格中合并同类内容就非常简单了，选中单元格，点击“合并相同单元格”即可一键完成。

案例2：拆分合并单元格后补齐空白。

单元格合并之后，除了看起来方便一些之外，对于计算和统计却很不方便，因此常常需要取消合并单元格并补齐空白。

Excel中，你只能选中单元格一个一个去填充数据。或者按“Ctrl + G”，设置定位条件为“空值”，再输入“=↑”，最后按“Ctrl + Enter”完成补齐空白。

如果你用WPS，就只需要选中单元格，点击“拆分并填充内容”即可。

案例3：合并表头。

工作中，常常需要合并表头。WPS中点击“跨列合并”可以达到如下的效果。

而Excel中点击“跨越合并”后，只有第一个单元格的数据保留下来了，其他数据都被删除了，与WPS中的“按行合并”效果相同。相比“跨列合并”，哪种才是你最想要的效果呢？

功能选项对比。

Excel的合并菜单上就只有“合并后居中”、“跨越合并”、“合并单元格”和“取消单元格合并”四个功能。

WPS表格的合并菜单下有“合并居中”、“合并单元格”、“合并相同单元格”、“合并内容”、“取消合并单元格”、“拆分并填充内容”、“按行合并”、“跨列居中”等。

可以说Excel中支持的合并功能，WPS也都支持。除此之外，WPS还支持更多的功能。如果要处理的数据很多，两者之间的效率差别就很大啦。

谢谢阅读，欢迎点赞、评论、关注和点击头像。

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

使用“删除重复项”功能

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

使用高级筛选功能

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

提取了唯一值之后

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

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

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

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

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

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

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

问题：

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

方法：

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

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

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

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

执行报错

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

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

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

注意事项：

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

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

日常工作中我们有碰到过要把相同名称所对应的数据相加，如果说数据不是很多可以用简单的sum函数可以完成。当数据比较庞大，SUM可能就不好用了。

比如表格（1）要把名称相同的数据都相加，简便的方法是用SUMIF，有俩种用法

表格（1）

一、单独算“梨、苹果。。”的数据，直接点击B19为条件区域则可以按表格（1）中可以轻松求出。

=sumif(B1:B17,B19,C1:C17) 如果求苹果则把B19改成B18

二、批量算出所要相加的名称数据则用到：

=SUMIF(B1:B17,{"苹果";"梨";"香蕉";"葡萄";"橘子";"橙子";"西瓜"},C1:C17)

表格（2）

B1:B17则是我们要引用的区域（及我们求和的苹果，梨。。。名称相同的地方）我们输入的，{"苹果";"梨";"香蕉";"葡萄";"橘子";"橙子";"西瓜"}和单独输入的“苹果”。。。为条件区域。表格（1）（2）

3.C1：C17则是我们要求和的区域

俩种方法都没有多大区别，只是条件区域用{}把几个名称联系在一起组成一个数组

4.如果要让结果按列显示，则用;（分号） 如表格（1），如果要让结果按行显示，则用，(逗号）。

表格（3）

5.批量填充下来的话，则选中求和的区域表格（3）中的红色框框中，点击输入函数的框框表格（4），然后按住shift+ctrl+enter则所有求和都可以了如表格（5）

表格（4）

表格（5）

简单几步，再复杂的求和也可以搞定，如果名称排序没有规律，可以用这个函数来求和，是不是比用sum一个个求和快呢

我们想把姓名一样的人员，语文的分数匹配到一起。我们可以用到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有大量需要合并单元格的时候，你真确定要一个一个的合并吗？其实你大可不必慌忙，我们今天分享的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中的每一个函数都有特定的用途，不是他们没有用处，而是你不了解他们或者用不着，建议同学们收藏起来，万一要用着呢！

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

这个问题应该这样处理：

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

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

也可以高级筛选；

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

三、写公式取值：

=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表格里来做数据分析，那么如何快速的合并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啦！如果表格数据过多的话，时间会久一点。