麻烦大家帮我看一下这种分类统计的表格要怎么设计

zhxj1983

要求在附件上说明了，主要是数量这里的，要用我写的这样来体现

w609053988

鲜花说明了些问题，这类统计字典+数组再合适不过了，lz可以去了解下

lvying

如果只是生成这样的一个统计结果不难实现

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("sheet1")
   
7.     r = .Cells(.Rows.Count, 1).End(xlUp).Row
   
8.     arr = .Range("a2:d" & r)
   
9.     For i = 1 To UBound(arr)
   
10.       If Not d.exists(arr(i, 2)) Then
    
11.         Set d(arr(i, 2)) = CreateObject("scripting.dictionary")
    
12.       End If
    
13.       d(arr(i, 2))(arr(i, 3)) = d(arr(i, 2))(arr(i, 3)) + arr(i, 4)
    
14.     Next
    
15.     m = 2
    
16.     For Each aa In d.keys
    
17.       .Cells(m, 16) = aa
    
18.       ss = ""
    
19.       For Each bb In d(aa).keys
    
20.         ss = ss & "+" & d(aa)(bb) & bb
    
21.       Next
    
22.       .Cells(m, 17) = Mid(ss, 2)
    
23.       m = m + 1
    
24.     Next
    
25.   End With
    
26. End Sub
    

复制代码

chxw68

详见附件。

deadzlq

PQ参考解法

zhxj1983

deadzlq 发表于 2019-7-30 15:35
PQ参考解法

这个不懂怎么看，是公式吗

zhxj1983

chxw68 发表于 2019-7-30 14:32
详见附件。

谢谢老师，就是这样没有错

zhxj1983

chxw68 发表于 2019-7-30 14:31

麻烦老师替我看下附件，里面那个批量新建工作表的，为什么总是提示出错，是哪里出了问题。根据那个模版样式，然后把订单记录里面每一条记录按模版那个工作那样自动生成所有的工作表。

zhxj1983

chxw68 发表于 2019-7-30 14:31

然后第一个表，即表面首页的，就是根据表名称，然后我把每个表对应要打印多少份录入在这里，然后点了就能批量打印的，这个打印宏不知道对不对，以前没有改之前都是可以的，今天改模版我重新调了之后，这个批量创建工作表就不能用了