Excel表格如何将有相同内容的行合并在一起?
发布网友
发布时间：2023-08-01 01:41
共1个回答
热心网友
时间：2023-10-17 18:52
合并内容相同的行常见的三种方法：
一、用数据透视表，最简单方便。如下：
点击数据-数据透视表及数据透视图-完成，把第一列的字段名拉到“行字段”，把第二列的字段名拉到“数据”即可
二、可以使用分类汇总，步骤如下：
1、数据-排序，按代号、名称排序，这样相同的代号名称就会排在一起；
2、数据-分类汇总-汇总字段：代号，汇总方式：求和，求和字段：数量
三、高级筛选
点击数据--筛选--高级筛选--列表区域就是你的数据区域，选中“选择不重复的记录”--确定即可（此法适应于计数，不能累计）
2.excel表格如何将有相同内容的行合并在一起
星期几和上课班级都一样才合并，宏会不会用？打开工作表后按ALT+F11调出VBA窗口，窗口左边工程栏下有个“Microsoft Excel 对象”，选择它点鼠标右键在弹出菜单中选择插入>>模块，下面会出现模块>>模块1，双击模块1，把下面的代码复制到右边空白处，以后你在数据表中按住ALT+F8，在弹出窗口中选择宏"合并"后执行就可以了.代码如下：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 对象”，选择它点鼠标右键在弹出菜单中选择插入>>；模块，下面会出现模块>>；模块1，双击模块1，把下面的代码复制到右边空白处，以后你在数据表中按住ALT+F8，在弹出窗口中选择宏"合并"后执行就可以了.代码如下：
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班
