想把4个级别负责人的2个单品的销售数据按要求汇总到新表，有什么办法能一键达成

zyapple

nandyhe

应该可以通过power query进行实现，单表操作改成需要的格式，然后追加查询

3190496160

这种问题，最好是上传你真实的表格，你实际的文件，a表，吧表不可能在一个工作表中吧？
安妮目前的附件写出代码来，你自己会改吗？？恐怕你还得追问的

3190496160

Sub 汇总()
Application.ScreenUpdating = False
Dim d As Object
Dim ar As Variant, br As Variant
Dim i As Long
Dim arr()
ReDim arr(1 To 5000, 1 To 5)
Set d = CreateObject("scripting.dictionary")
For Each sh In Sheets
    If sh.Name <> "汇总" Then
        m = m + 1
        ar = sh.[a1].CurrentRegion
        For i = 3 To UBound(ar)
            For j = 1 To 4
                If Trim(ar(i, j)) <> "" Then
                    t = d(Trim(ar(i, j)))
                    If t = "" Then
                        k = k + 1
                        d(Trim(ar(i, j))) = k
                        t = k
                        arr(k, 1) = ar(i, j)
                        arr(k, 2) = ar(2, j)
                    End If
                    arr(t, m + 2) = arr(t, m + 2) + ar(i, 5)
                    arr(t, 5) = arr(t, 3) + arr(t, 4)
                End If
            Next j
        Next i
    End If
Next sh
With Sheets("汇总")
    r = .Cells(Rows.Count, 1).End(xlUp).Row
    If r > 2 Then .Range("a3:d" & r) = Empty
    .[a3].Resize(k, 5) = arr
End With
MsgBox "ok!"
End Sub

3190496160

表1.rar (22.05 KB, 下载次数: 6)

2021-8-13 10:41 上传

点击文件名下载附件