excel表格如何把一行内容全部合并到一起

发布网友发布时间：2023-07-31 09:41

共1个回答

热心网友时间：2023-11-01 11:51

1.excel如何合并相同内容的行
合并内容相同的行常见的三种方法：

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

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

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

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班