如何进行多条件汇总排序

木易2008

表1“银行转账”是每天从系统里导出的表，这个表每天都会有更新，
表2“存取汇总”A--F列是表1按照客户编号来汇总，如果一个客户一天有多笔交易，会汇总成1笔，H列是通过透视表查找该客户日初资产金额
表3“汇总”是表1按员工姓名和关系类型来做的汇总
表4“按金额”、表5“按比例”是存取汇总表完全同步过来的。并且把“关系类型”为存量的标黄，存取比例小于-10%的标红。
表6和表7是表5、表6通过下面两张图自定义排序来实现的最终结果。
现在想通过表1“银行转账”，并添加表2中的H列和G列，直接得到表6“按金额完成效果”和表7“按比例完成效果”。
想请教下各位高手，这是不是用vba或是pq来实现？如何实现呢？

ykcbf1100

不确定是不是这个意思，目前只做了good表。

木易2008

ykcbf1100 发表于 2022-12-15 16:06
不确定是不是这个意思，目前只做了good表。

差不多就是这样，但是可以排序的时候把“存量”下面吗？就是2层排序，另外，在实际测试的时候，有些客户会显示很多个，数据不准确了。可以再完善下吗？万分感谢
  

ykcbf1100

木易2008 发表于 2022-12-15 16:47
差不多就是这样，但是可以排序的时候把“存量”下面吗？就是2层排序，另外，在实际测试的时候，有些客户 ...

你表1要排重汇总吗？

木易2008

一个客户只要一行，行数应该和表2“存取汇总”一样，只是对这个表按资金和按比例两种方式排序，并且把存量的放在下面。

ykcbf1100

木易2008 发表于 2022-12-15 16:53
一个客户只要一行，行数应该和表2“存取汇总”一样，只是对这个表按资金和按比例两种方式排序，并且把存量 ...

明天看下吧。那应该按表2来提取数据。

木易2008

ykcbf1100 发表于 2022-12-15 16:59
明天看下吧。那应该按表2来提取数据。

最好是按表1来提取，这样可以省去表2，表1里A列同一个客户编号可能有好几条信息，汇总成1条，
如果同一客户编号有多条信息，H列存取金额做轧差。

ykcbf1100

木易2008 发表于 2022-12-15 22:53
最好是按表1来提取，这样可以省去表2，表1里A列同一个客户编号可能有好几条信息，汇总成1条，
如果同一 ...

除了存量放下面外，其它问题解决了。
二个工作簿要放在同一个目录下。

木易2008

ykcbf1100 发表于 2022-12-16 09:38
除了存量放下面外，其它问题解决了。
二个工作簿要放在同一个目录下。

你好，做出来的数据不准，多个客户只取了第一个数据，后面的数据没有做轧差，群里有位高手做了个，只能实现一部分功能，可以把您的和这个结合下吗？他做的代码如下：
Sub TEST()
    Dim ar, br(), n&, m&, sKey$, iRow&
    Dim d: Set d = CreateObject("scripting.dictionary")
    Application.ScreenUpdating = False
    ar = Sheets("银行转账").UsedRange
    ReDim br(1 To UBound(ar), 1 To 6)
    For i = 2 To UBound(ar)
        sKey = Trim(ar(i, 1))
        If Not d.Exists(sKey) Then
            n = n + 1
            br(n, 1) = ar(i, 1): br(n, 2) = ar(i, 2)
            br(n, 3) = ar(i, 6): br(n, 4) = ar(i, 7)
            br(n, 5) = ar(i, 5): br(n, 6) = Val(ar(i, 8))
            d(sKey) = n
        Else
            m = d(sKey)
            br(m, 6) = br(m, 6) + Val(ar(i, 8))
        End If
    Next i
    With Sheets("按金额")
    .[a1].Resize(1, 8) = Split("客户编号 客户姓名 员工姓名 关系类型 交易日期 资金存取汇总 日初资产 存取比例")
    .[a1].CurrentRegion.Offset(1).Clear
    .[a2].Resize(n, 8) = br
    .[a1].CurrentRegion.Borders.LineStyle = 1
     .Cells.Interior.Pattern = xlNone
      iRow = Cells(Rows.Count, "a").End(3).Row
      For i = 1 To iRow
        If .Cells(i, 4).Value = "存量" Then
            .Cells(i, 4).Interior.Color = vbYellow
        End If
      Next i
     .Sort.SortFields.Add Columns("D"), xlSortOnCellColor, 1, xlSortNormal
     .Sort.SortFields.Add Columns("F"), xlSortOnValues, 1, xlSortNormal
      With .Sort
        .SetRange [a1].CurrentRegion
        .Header = xlYes
        .MatchCase = False
        .Orientation = xlTopToBottom
        .SortMethod = xlPinYin
        .Apply
      End With
    End With
    Application.ScreenUpdating = True
    Set d = Nothing
    MsgBox "OK!"
End Sub

木易2008

你好，做出来的结果不对，一个客户有多条信息，没有做汇总，只取了第一条，有个高手写了下面的代码，实现了按金额排序的部分，可以把您的和这个代码结合下再写下吗？谢谢！