一个工作表里几个数据区域，vba生成数据透视表

业务员

工作中导出了几个工作簿，我用vba合并到了一个工作表里。

但是有表头，而且可能是4个甚至5个区域。每次都人工整理弄数据透视表，麻烦，还是想简化一下。


需要的结果是

chxw68

1. Sub test()
   
2.     Dim r%, i%
   
3.     Dim arr, brr
   
4.     Dim d As Object
   
5.     Set d = CreateObject("scripting.dictionary")
   
6.     With Worksheets("销量合并")
   
7.         r = .Cells(.Rows.Count, 1).End(xlUp).Row
   
8.         arr = .Range("a1:k" & r)
   
9.         For i = 1 To UBound(arr)
   
10.             If Len(arr(i, 3)) <> 0 And IsNumeric(arr(i, 6)) Then
    
11.                 d(arr(i, 3)) = d(arr(i, 3)) + arr(i, 6)
    
12.             End If
    
13.         Next
    
14.     End With
    
15.     With Worksheets("sheet1")
    
16.         .UsedRange.Offset(1, 0).Clear
    
17.         .Range("a2").Resize(d.Count, 2) = Application.Transpose(Array(d.keys, d.items))
    
18.         r = .Cells(.Rows.Count, 1).End(xlUp).Row
    
19.         .Cells(r + 1, 1) = "合计"
    
20.         .Cells(r + 1, 2) = Application.Sum(d.items)
    
21.     End With
    
22. End Sub
    

复制代码

chxw68

详见附件。

业务员

chxw68 发表于 2023-4-14 18:53
详见附件。

老师用的数组，或许比透视表更简单呢