统计各个门店的销售数量，横向展示的，谢谢。武汉加油，中国加油！

月下当前

最后效果
明细表可能会随种类增多而添加，求VBA将各个明细里的门店按存在日期汇总数量，效果如上图，谢谢了，武汉加油，中国加油。！

zzj198237

看了你的数据，就问题而言，数据透视表是很好的一个解决方案（如果想学习VBA编程，建议不要用这个联系）

microyip

用 门店+日期 为关键字建立字典就可得到统计表对应数据

chxw68

1. Sub test()
   
2.   Dim r%, i%
   
3.   Dim arr, brr
   
4.   Dim ws As Worksheet
   
5.   Dim d As Object
   
6.   Set d = CreateObject("scripting.dictionary")
   
7.   For Each ws In Worksheets
   
8.     If ws.Name <> "汇总" Then
   
9.       With ws
   
10.         r = .Cells(.Rows.Count, 1).End(xlUp).Row
    
11.         arr = .Range("a3:c" & r)
    
12.         For i = 1 To UBound(arr)
    
13.           If Len(arr(i, 1)) <> 0 And arr(i, 1) <> "合计" Then
    
14.             n = Application.Match(arr(i, 2), Array("福海店", "顺发店", "长光店"), 0)
    
15.             If Not IsError(n) Then
    
16.               If Not d.exists(arr(i, 1)) Then
    
17.                 ReDim brr(1 To 5)
    
18.                 brr(1) = arr(i, 1)
    
19.               Else
    
20.                 brr = d(arr(i, 1))
    
21.               End If
    
22.               brr(n + 1) = brr(n + 1) + arr(i, 3)
    
23.               d(arr(i, 1)) = brr
    
24.             End If
    
25.           End If
    
26.         Next
    
27.       End With
    
28.     End If
    
29.   Next
    
30.   brr = Application.Transpose(Application.Transpose(d.items))
    
31.   For i = 1 To UBound(brr)
    
32.     For j = 2 To 4
    
33.       brr(i, 5) = brr(i, 5) + brr(i, j)
    
34.     Next
    
35.   Next
    
36.   With Worksheets("汇总")
    
37.     .UsedRange.Offset(2, 0).Clear
    
38.     With .Range("a3").Resize(UBound(brr), UBound(brr, 2))
    
39.       .Value = brr
    
40.       .Borders.LineStyle = xlContinuous
    
41.     End With
    
42.   
    
43.   End With
    
44. End Sub
    

复制代码

chxw68

详见附件。

月下当前

chxw68 发表于 2020-2-24 09:09
详见附件。

为何统计不了12号的数据的，还有，门店数量增加了是不是要自己添加进去的，不能自动生成门店再匹配？麻烦大师了。帮我看看这代码哪里错了

chxw68

修改好了。

月下当前

chxw68 发表于 2020-2-24 19:39
修改好了。

谢谢大师，辛苦了！

blackttea1

学习啦，谢谢