用VBA根据条件统计次数

ugyun

各位老师：
如何用VBA实现：根据此表B列的货号，在“明细表”中查找并统计对应店铺销售的笔数，结果放在此表的J列，如果没有售出，则返回“无售出”。
例如：货号为WR5026H，店铺1的销售笔数15，店铺2的销售笔数1。



用VBA根据条件统计次数.rar (41.11 KB, 下载次数: 23)

2014-11-6 08:48 上传

点击文件名下载附件

zealotte

你给的明细表有大量的合并单元格，会增加额外的代码。
直接给非合并的话，连VBA都用不着，直接用Vlookup可能都搞定了。

ugyun

zealotte 发表于 2014-11-6 08:56
你给的明细表有大量的合并单元格，会增加额外的代码。
直接给非合并的话，连VBA都用不着，直接用Vlookup可 ...

老师，您好，难度就在这儿，合并单元格不能删的，改了明细表我还有其他表可能就不能用了
里面的K列已经用数组公式实现了，但是好像很影响速度，电脑都变卡了，所以考虑用VBA

chxw68

1. Sub test()
   
2.   Dim d As New Dictionary
   
3.   Dim r%, i%
   
4.   Dim arr, brr
   
5.   Application.ScreenUpdating = False
   
6.   With Worksheets("明细表")
   
7.     r = .Cells(.Rows.Count, 2).End(xlUp).Row
   
8.     For i = 2 To r
   
9.       xm = .Cells(i, 2) & "+" & .Cells(i, 12).MergeArea.Cells(1, 1)
   
10.       d(xm) = d(xm) + 1
    
11.     Next
    
12.   End With
    
13.   With Worksheets("统计")
    
14.     r = .Cells(.Rows.Count, 2).End(xlUp).Row
    
15.     arr = .Range("b2:j" & r)
    
16.     For i = 1 To UBound(arr)
    
17.       xm = arr(i, 1) & "+" & arr(i, 8)
    
18.       If d.Exists(xm) Then
    
19.         arr(i, 9) = d(xm)
    
20.       End If
    
21.     Next
    
22.     .Range("j2").Resize(UBound(arr), 1) = Application.Index(arr, 0, 9)
    
23.   End With
    
24.   Application.ScreenUpdating = True
    
25.   
    
26. End Sub
    

复制代码

chxw68

参见附件。

zealotte

用VBA根据条件统计次数_Updated.rar (55.3 KB, 下载次数: 28)

2014-11-6 10:08 上传

点击文件名下载附件

换一下思路，我在明细表里帮你做了个2个辅助列，然后用公式将合并后的单元格自动拆分。
最后用数据转置表直接统计出你想要的结果。
请参见附件。