有条件统计单元格个数

cshzh

怎么用vba分别 统计列中等于1301和1302的单元格个数？

deadzlq

这也要VBA么

lsc900707

1. Sub gj23w98()
   
2.     Set d = CreateObject("scripting.dictionary")
   
3.     r = Cells(Rows.Count, 5).End(3).Row
   
4.     arr = Range("e2:e" & r)
   
5.     ReDim brr(1 To UBound(arr), 1 To 2)
   
6.     For i = 1 To UBound(arr)
   
7.         s = arr(i, 1)
   
8.         If Not d.exists(s) Then
   
9.             k = k + 1
   
10.             d(s) = k
    
11.             brr(k, 1) = arr(i, 1)
    
12.             brr(k, 2) = 1
    
13.         Else
    
14.             brr(d(s), 2) = brr(d(s), 2) + 1
    
15.         End If
    
16.     Next
    
17.     If k Then [l2].Resize(k, 2) = brr
    
18. End Sub

复制代码

lsc900707

参考测试附件：