如何把Excel多个相同值的行 对应 后面的值 汇总到一起。

zhwy1

如图显示，把有很多行的前三列是相同的，最后一列是不同的，要把前三个相同的单元格中的后面不同的值汇总在一起，不是相加，是汇总显示到一个单元格里面。
条件是：这张表里面的前面三个相同值的行 对应 后面的数字 汇总到一起。

工作簿1.zip (9.09 KB, 下载次数: 29)

2019-9-20 11:46 上传

点击文件名下载附件

苏小亓

工作簿1.zip (50.89 KB, 下载次数: 58)

2019-9-20 11:54 上传

点击文件名下载附件

zhwy1

苏小亓 发表于 2019-9-20 11:54

感谢，感谢感谢感谢感谢感谢感谢

moonlit123

PQ参考


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

2019-9-20 12:37 上传

点击文件名下载附件

xuemei0216

Sub a()
Dim arr, brr
Dim d As Object
Dim i&, j&, k&, s$
Set d = CreateObject("scripting.dictionary")
arr = [a1].CurrentRegion           '数据源
ReDim brr(1 To UBound(arr), 1 To UBound(arr, 2))
For i = 1 To UBound(arr)                 '含标题
     s = arr(i, 1) & "|" & arr(i, 2) & "|" & arr(i, 3)          '条件
    If Not d.exists(s) Then
        k = k + 1                '计算，非重复个数
        d(s) = k                  '序号
        For j = 1 To 4
            brr(k, j) = arr(i, j)
        Next
    Else
        brr(d(s), 4) = brr(d(s), 4) & "/" & arr(i, 4)              '需合并列
    End If
Next
With [a1]
    .CurrentRegion.ClearContents            '清除内容
    .Resize(k, 4) = brr
End With
Set d = Nothing
End Sub

zhwy1

moonlit123 发表于 2019-9-20 12:37
PQ参考

虽然看不懂怎么实现的，不过还是感谢

moonlit123

zhwy1 发表于 2019-9-20 14:20
虽然看不懂怎么实现的，不过还是感谢

excel 2016自带的 数据（获取和转换）
或者2010和2013装插件power query。

对数据做处理工作很方便，比如楼主你遇到的这个问题，一个分组+Text.Combine公式，秒解。

jjmysjg

xuemei0216 发表于 2019-9-20 12:38
Sub a()
Dim arr, brr
Dim d As Object

留下记号，结果放到表2就更好了。谢谢

xuemei0216

jjmysjg 发表于 2019-9-21 06:51
留下记号，结果放到表2就更好了。谢谢

生成位置改一下就行。

Sub a()
Dim arr, brr
Dim d As Object
Dim i&, j&, k&, s$
Set d = CreateObject("scripting.dictionary")
arr = [a1].CurrentRegion           '数据源
ReDim brr(1 To UBound(arr), 1 To UBound(arr, 2))
For i = 1 To UBound(arr)                 '含标题
     s = arr(i, 1) & "|" & arr(i, 2) & "|" & arr(i, 3)          '条件
    If Not d.exists(s) Then
        k = k + 1                '计算，非重复个数
        d(s) = k                  '序号
        For j = 1 To 4
            brr(k, j) = arr(i, j)
        Next
    Else
        brr(d(s), 4) = brr(d(s), 4) & "/" & arr(i, 4)              '需合并列
    End If
Next
With Sheets(2).[a1]
    .CurrentRegion.ClearContents            '清除内容
    .Resize(k, 4) = brr
End With
Set d = Nothing
End Sub

zhwy1

xuemei0216 发表于 2019-9-21 09:40
生成位置改一下就行。

Sub a()

假如我的列有5列呢，该怎么写呢，
就是现在的写法，共四列，前三列相同 汇总第四列。
现在共五列，前四列相同，汇总第五列 该怎么写呀