按地区分类汇总销售量

chqyz

求助大神帮忙
统计不同型号产品按地区销售量
汇总的行数不固定，无销售量产品不统计
谢谢！

汇总.zip (16.43 KB, 下载次数: 40)

2018-7-21 07:57 上传

点击文件名下载附件

jiangxiaoyun

透视表就行，筛选一下，不要空白的地区而已。

shi353

Sub test11()
Dim A()
Set d = CreateObject("scripting.dictionary")
[H2:J20000].ClearContents
arr = [A1].CurrentRegion
For i = 2 To UBound(arr)
    If arr(i, 2) <> "" Then
        If Not d.exists(arr(i, 1) & "|" & arr(i, 2)) Then
            d(arr(i, 1) & "|" & arr(i, 2)) = arr(i, 3)
        Else
            d(arr(i, 1) & "|" & arr(i, 2)) = d(arr(i, 1) & "|" & arr(i, 2)) + arr(i, 3)
        End If
    End If
Next
'----------------------------
brr = Application.Transpose(Array(d.keys, d.items))
ReDim A(1 To 3, 1 To UBound(brr))
For i = 1 To UBound(A, 2)
    A(1, i) = Split(brr(i, 1), "|")(0)
    A(2, i) = Split(brr(i, 1), "|")(1)
    A(3, i) = brr(i, 2)
Next
A = Application.Transpose(A)
[H2].Resize(UBound(A), 3) = A
End Sub

chqyz

shi353 发表于 2018-7-21 08:46
Sub test11()
Dim A()
Set d = CreateObject("scripting.dictionary")

非常感谢，就是想要得到的结果