excel合并相同内容的单元格

1、电脑打开Excel表格，选中数据。

2、选中数据后，点击进入插入页面，然后点击插入数据透视表。

3、进入数据透视表页面，选中一个位置放置透视表。

4、在右侧数据透视表字段中，把所有的选项都勾选上。

5、勾选上之后，数据透视表就做好了，就可以把相同内容的单元格合并到一起了。

1.excel如何合并相同内容的行

合并内容相同的行常见的三种方法：

一、用数据透视表，最简单方便。如下：

点击数据-数据透视表及数据透视图-完成，把第一列的字段名拉到“行字段”，把第二列的字段名拉到“数据”即可

二、可以使用分类汇总，步骤如下：

1、数据-排序，按代号、名称排序，这样相同的代号名称就会排在一起；

2、数据-分类汇总-汇总字段：代号，汇总方式：求和，求和字段：数量

三、高级筛选

点击数据--筛选--高级筛选--列表区域就是你的数据区域，选中“选择不重复的记录”--确定即可（此法适应于计数，不能累计）

2.excel表格如何将有相同内容的行合并在一起

星期几和上课班级都一样才合并，宏会不会用？打开工作表后按ALT+F11调出VBA窗口，窗口左边工程栏下有个“Microsoft Excel 对象”，选择它点鼠标右键在d出菜单中选择插入>>模块，下面会出现模块>>模块1，双击模块1，把下面的代码复制到右边空白处，以后你在数据表中按住ALT+F8，在d出窗口中选择宏"合并"后执行就可以了.代码如下：Sub 合并（）fr = [a65536].End(xlUp).Row Range("A1:D" &fr).Sort Key1:=Range("A2"), Order1:=xlAscending, Key2:=Range( _ "D2"), Order2:=xlAscending, Key3:=Range("B2"), Order3:=xlAscending, _ Header:=xlYes, OrderCustom:=1, MatchCase:=False, Orientation:= _ xlTopToBottom, SortMethod:=xlPinYin, DataOption1:=xlSortNormal, _ DataOption2:=xlSortNormal, DataOption3:=xlSortNormalFor i = fr To 2 Step -1If Cells(i, 1) = Cells(i - 1, 1) And Cells(i, 4) = Cells(i - 1, 4) ThenIf Cells(i, 3) = Cells(i - 1, 3) ThenCells(i - 1, 2) = Cells(i - 1, 2) &"/" &Cells(i, 2)Rows(i &":" &i).DeleteElseCells(i - 1, 2) = Cells(i - 1, 2) &"/" &Cells(i, 2)Cells(i - 1, 3) = Cells(i - 1, 3) &"/" &Cells(i, 3)Rows(i &":" &i).DeleteEnd IfEnd IfNext iEnd Sub以上代码达到下面的效果：（原数据）星期几 节次 上课老师 上课班级周二 第1,2节 史风华 06信息1班周一 第1,2节 史风华 06信息1班周一 第1,2节 龙安利 06信息2班周一 第3,4节 史风华 06信息2班周一 第3,4节 龙安利 06信息1班周二 第3,4节 史风华 06信息1班（执行后）星期几 节次 上课老师 上课班级周二 第1,2节/第3,4节 史风华 06信息1班周一 第1,2节/第3,4节 史风华/龙安利 06信息1班周一 第1,2节/第3,4节 龙安利/史风华 06信息2班。

3.如何将一张excel表格中不同行的内容合并到一起

在第10行输入=A1&A2&A3。.&A9（全部行要写进来）

如果行有多个单元格内容，通用的是：

假设第1、2行内容需要合并。在第3行第一个格输入=A1&A2，回车，然后把公式向右拉。

如果不想向右拉，可以先把第1、2行转成列：选中第1行内容（不能全选整行）---复制---选定空列中的第一格---选择性粘贴----转置。第2行同样 *** 作。假设转置后在第I、J列，在第K列输入=I1&J1，回车，双击填充公式。把第K列转换成文本后再转置成行。

如果需要合并的行太长，第二种方法比较方便。不明白可以再问。

4.excel如何将相同大项的具体内容合并

首先排序一下：鼠标点中最左侧行号2，按Ctrl+Shift+向下的箭头，选中所有有数据的行，排序，自定义排序，主要关键字选“列A”，确定。即可将所有相同的姓名排序在一起。

在G2单元格输入公式=SUBSTITUTE(IFERROR(INDEX(0&A$2:A$10000,SMALL(IF(MATCH(0&A$2:A$10000,0&A$2:A$10000,)=ROW(A$2:A$10000)-1,ROW(A$2:A$10000)-1,5^5),ROW(A1)))&"",""),"0","")

数组公式，按CTRL+SHIFT+ENTER结束公式，使公式前后出现大括号{}，下拉到出现空白单元格止。

在H2单元格输入公式=IFERROR(MID(SUBSTITUTE(PHOIC(OFFSET(A$1:B$1,MATCH(G2,A$1:A$10000,)-1,,COUNTIF(A:A,G2))),G2,"+"),2,10000),"")

下拉公式到空白单元格出现为止。（两个公式帮你预设了1万行，如不够，可自行修改！）

如图：

5.excel表格如何将有相同内容的行合并在一起

星期几和上课班级都一样才合并，宏会不会用？打开工作表后按ALT+F11调出VBA窗口，窗口左边工程栏下有个“Microsoft Excel 对象”，选择它点鼠标右键在d出菜单中选择插入>&gt；模块，下面会出现模块>&gt；模块1，双击模块1，把下面的代码复制到右边空白处，以后你在数据表中按住ALT+F8，在d出窗口中选择宏"合并"后执行就可以了.代码如下：

Sub 合并（）

fr = [a65536].End(xlUp).Row

Range("A1:D" &fr).Sort Key1:=Range("A2"), Order1:=xlAscending, Key2:=Range( _

"D2"), Order2:=xlAscending, Key3:=Range("B2"), Order3:=xlAscending, _

Header:=xlYes, OrderCustom:=1, MatchCase:=False, Orientation:= _

xlTopToBottom, SortMethod:=xlPinYin, DataOption1:=xlSortNormal, _

DataOption2:=xlSortNormal, DataOption3:=xlSortNormal

For i = fr To 2 Step -1

If Cells(i, 1) = Cells(i - 1, 1) And Cells(i, 4) = Cells(i - 1, 4) Then

If Cells(i, 3) = Cells(i - 1, 3) Then

Cells(i - 1, 2) = Cells(i - 1, 2) &"/" &Cells(i, 2)

Rows(i &":" &i).Delete

Else

Cells(i - 1, 2) = Cells(i - 1, 2) &"/" &Cells(i, 2)

Cells(i - 1, 3) = Cells(i - 1, 3) &"/" &Cells(i, 3)

Rows(i &":" &i).Delete

End If

End If

Next i

End Sub

以上代码达到下面的效果：

（原数据）

星期几 节次 上课老师 上课班级

周二 第1,2节 史风华 06信息1班

周一 第1,2节 史风华 06信息1班

周一 第1,2节 龙安利 06信息2班

周一 第3,4节 史风华 06信息2班

周一 第3,4节 龙安利 06信息1班

周二 第3,4节 史风华 06信息1班

（执行后）

星期几 节次 上课老师 上课班级

周二 第1,2节/第3,4节 史风华 06信息1班

周一 第1,2节/第3,4节 史风华/龙安利 06信息1班

周一 第1,2节/第3,4节 龙安利/史风华 06信息2班

您好,我就为大家解答关于两个相同的excel表格怎么合并，同一张excel表格中相同数据合并相信很多小伙伴还不知道,现在让我们一起来看看吧！...

您好,我就为大家解答关于两个相同的excel表格怎么合并，同一张excel表格中相同数据合并相信很多小伙伴还不知道,现在让我们一起来看看吧！

1、第一把这些表放在一个新建立 的文件夹里，第二在这个新建立 的文件夹里再新建一个excel表格文件 打开这个文件 在左下角sheet1标签处右键 查看代码 然后把下面代码 复制进去 然后点运行 运行子过程等几不一会时间就可以了，你的表格没有合并过和单元格才行，如果 有这个程序也会中断的，还有确定每个表的A列得有内容等待合并完以后把B列有空的行用筛选的方式删除了就行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 = ***.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 &"个工作薄下的全部工作表。

2、如下："&Chr(13) &WbN, vbInformation,"提示"End Sub。

---