如何快速合并

jhw007

请教各位大神，单位里负责管理资产的，所以平时有很多资产的数据（导出来可能有4万条），同一批设备买来每个设备都有不同的资产编号，同一批次的除了资产编号不同，其他信息都是一致的，如何快速的将资产信息一样的一行一行的数据进行快速合并（资产编号不用管），比如测试文档中的“衣柜”和“床”，相关内容合并后，数量进行汇总，谢谢各位大神了，快速的合并。

mjm04

汇总数量用 sumif/sumifs

后面的文本内容用 filter + UNIQUE

jhw007

mjm04 发表于 2024-7-3 08:42
汇总数量用 sumif/sumifs

后面的文本内容用 filter + UNIQUE

能详细说一下怎么操作吗？谢谢

mjm04

jhw007 发表于 2024-7-3 08:47
能详细说一下怎么操作吗？谢谢

套件数：
D2单元格：
=SUMIFS(Sheet1!$D$2:$D$40,Sheet1!$B$2:$B$40,B2)
下拉

使用人
E2单元格：
=UNIQUE(FILTER(Sheet1!$E$2:$O$40,Sheet1!$B$2:$B$40=B2,""))
下拉
这种用法，需要确定 数据源表中同类物资在“ 使用人”列开始，右边列中的文字内容都一样，没有变化

quqiyuan

这个vba比较方便咯，仅供参考。。。

quqiyuan

代码如下。。。
Sub test()
    arr = Sheet1.UsedRange
    ReDim brr(1 To UBound(arr), 1 To UBound(arr, 2))
    Set d = CreateObject("scripting.dictionary")
    For i = 2 To UBound(arr)
        For j = 2 To UBound(arr, 2)
            s = s & arr(i, j)
        Next
        If Not d.exists(s) Then n = n + 1: d(s) = n
        m = d(s)
        For k = 1 To UBound(arr, 2)
            If k <> 4 Then brr(m, k) = arr(i, k)
        Next
        brr(m, 4) = brr(m, 4) + arr(i, 4)
        If brr(m, 4) > 1 Then brr(m, 1) = Empty
        s = Empty
    Next
    Set d = Nothing
    With Sheet2
        .[a20].CurrentRegion.Clear
        .[a20].Resize(, UBound(arr, 2)) = arr
        .[a21].Resize(n, UBound(arr, 2)) = brr
        With .[a20].CurrentRegion
            .Borders.LineStyle = 1
            .HorizontalAlignment = xlCenter
            .Columns.AutoFit
        End With
        .Activate
    End With
    Beep
End Sub

沈默00

沈默00

第二个公式，右拉，下拉，，
最后再改一下C列的公式，下拉

j65311

资产名称：=UNIQUE(B2:B21)

套件数：=SUMIF($B$2:$B$21,UNIQUE(B2:B21),$D$2:$D$21)