源数据

结果

要求：同一个条码的箱号，位置，用逗号链接起来，合计进行求和。

POWERQUERY操作

1、上传到PQ编辑器，对箱号字段数据类型更改为文本。

1

2、根据条码对箱号，位置，合计3个字段进行分组求和。

2.1

2.2

3、更改箱号/位置的公式,使用Txet.Combine合并。
原公式

= Table.Group(更改的类型, {"條碼"}, {{"箱号", each List.Sum([箱號]), type text}, {"位置", each List.Sum([位置]), type text}, {"合计", each List.Sum([合計]), type number}})

更改后的公式

= Table.Group(更改的类型, {"條碼"}, {{"箱号", each Text.Combine([箱號], ",")}, {"位置", each Text.Combine([位置], ",")}, {"合计", each List.Sum([合計]), type number}})

4、结果

结果

示例文件下载

链接: http://pan.baidu.com/s/1jI5NOwQ 密码: geej

VBA解法

Sub 合并()
    Dim arr, brr
    arr = [a1].CurrentRegion'将数据放进数组arr
    ReDim brr(1 To UBound(arr), 1 To UBound(arr, 2))'定义数组brr和arr一样大小，用来存放合并的数据
    Set d = CreateObject("scripting.dictionary")'创建字典
    For i = 2 To UBound(arr)'遍历数据
        If Not d.exists(arr(i, 1)) Then'如果是第一条数据
            k = k + 1'标记行号
            d(arr(i, 1)) = k'用字典标记行号，方便查询
'将数据放进数组brr
            brr(k, 1) = arr(i, 1)'订单号
            brr(k, 2) = Format(arr(i, 2), "0000")'箱号，处理成文本
            brr(k, 3) = arr(i, 3)'位置
            brr(k, 4) = arr(i, 4)'合计
        Else
            m = d(arr(i, 1))'读取标识的行号
            brr(m, 2) = brr(m, 2) & "," & Format(arr(i, 2), "0000")'箱号用逗号链接
            brr(m, 3) = brr(m, 3) & "," & arr(i, 3)'位置用逗号链接
            brr(m, 4) = brr(m, 4) + arr(i, 4)'合计相加
        End If
    Next
    [i4].Resize(k, UBound(brr, 2)) = brr'输出数据
End Sub