跨表有条件计数

hdbk

需要根据E列和sheet2中C列匹配结果，分别来对两个城市（SH,BJ)准时订单计数，计数结果放在C列，相应日期单元格中。比如说7月1日北京准时订单数量为184，就将184写入单元格C3。

请见附件，请问要如何写代码？多谢！

跨表有条件计数.zip (40.61 KB, 下载次数: 5)

2018-7-17 23:01 上传

点击文件名下载附件

liulang0808

1. Sub 按钮1_Click()
   
2.     arr = Sheets(1).UsedRange
   
3.     Set d = CreateObject("scripting.dictionary")
   
4.     brr = Sheets("Sheet2").UsedRange
   
5.     For j = 2 To UBound(brr)
   
6.         If brr(j, 2) = "准时" Then
   
7.             d(brr(j, 3)) = 1 + d(brr(j, 3))
   
8.         End If
   
9.     Next j
   
10.     For j = 1 To UBound(arr)
    
11.         If Len(arr(j, 5)) > 0 Then
    
12.             arr(j, 3) = d(arr(j, 5))
    
13.         End If
    
14.     Next j
    
15.     Sheets(1).UsedRange = arr
    
16. End Sub
    

复制代码

liulang0808

附件内容供参考。。。。。。