请问如何把多行相同一列里的数据合并成一行

swzsq · 发表于 2017-7-21 12:07

比如这个表格在名称列里面有多个行都是公司1 但是内容1 内容2 内容3 等几个列都有不一样的数据

我想实现只要是公司1的行那么把这些行里的内容都汇总到一行里其他公司2 公司3都类似这样的填写

谢谢

工作簿1.rar (5.78 KB, 下载次数: 92)

swzsq · 发表于 2017-7-21 12:43

另外内容1 内容2 内容3里面的不是数据的又怎么汇总在一行

朱荣兴 · 发表于 2017-7-21 12:55

提示: 作者被禁止或删除内容自动屏蔽

henrydsy · 发表于 2017-7-21 14:01

分类汇总,然后隐藏明细

VBA95599 · 发表于 2017-7-21 14:59

VBA实现

Sub 矩形1_Click()
Dim x As String
Dim y As String
Dim z As String
Dim i As Long
Dim j As Long
Dim k As Long
For i = 21 To 24
x = Sheets(1).Cells(i, 1)
For j = 2 To 7
      y = Sheets(1).Cells(20, j)
      z = 0
         For k = 2 To 10
            If Sheets(1).Cells(k, 1) = x And Sheets(1).Cells(1, j) = y And Sheets(1).Cells(k, j) > z Then z = Sheets(1).Cells(k, j)
         Next k
      Sheets(1).Cells(i, j) = z
Next j
Next i
End Sub

hcm19522 · 发表于 2017-7-21 15:00

本帖最后由 hcm19522 于 2017-7-21 15:35 编辑

I2:N10=IF(B2="","",IF(COUNTIF($A$2:$A2,$A2)=1,","&B2,LOOKUP(1,0/($A$1:$A1=$A2),I$1:I1)&","&B2))

名稱 (不重複)A15:A19{=INDEX(A:A,MIN(IF(COUNTIF(A$14:A14,A$2:A$10)=0,ROW(A$2:A$10),4^8)))&""

B15:G19=IFERROR(MID(LOOKUP(1,0/(($A$2:$A$10=$A15)*(I$2:I$10<>"")),I$2:I$10),2,99),"")

浮生未歇 · 发表于 2017-7-21 15:13

先复制出来，用定位常量加辅助，之后用公式。

dtmkzhb · 发表于 2017-7-28 11:15

用数据透视表即可。

hw875758352 · 发表于 2019-5-13 09:06

hcm19522 发表于 2017-7-21 15:00

请教大神，当内容列有重复时怎麽实现取唯一值，不相同的值合并。

hcm19522 · 发表于 2019-5-13 12:16

hw875758352 发表于 2019-5-13 09:06
请教大神，当内容列有重复时怎麽实现取唯一值，不相同的值合并。

I2:N10=IF(COUNTIFS($A$2:$A2,$A2,B$2:B2,B2)=1,IFERROR(LOOKUP(1,0/($A$1:$A1=$A2)/(I$1:I1<>""),I$1:I1),"")&","&B2,"")

		自动登录	找回密码
密码			免费注册

[已解决] 请问如何把多行相同一列里的数据合并成一行

最新热点 /1

朱荣兴朱荣兴当前离线性别保密 UID 1318548 阅读权限 0 注册时间 2011-2-2 在线时间小时最后登录 1970-1-1 积分 19282 财富分享技术精华头像被屏蔽 TA的精华主题 TA的得分主题	发表于 2017-7-21 12:55 \| 显示全部楼层 [广告] ★Excel Home云课堂 - 专业的职场技能充电站★ ★Excel三大利器★ ★ 笨办法学VBA全系列★ 提示: 作者被禁止或删除内容自动屏蔽

	回复举报