统计次数

linda80200

见附件，还望前辈们抽空指点，谢谢。 统计次数.zip (8.78 KB, 下载次数: 14)

2017-7-23 11:30 上传

点击文件名下载附件

凌空一羽

数据透视表就可以了，不见得一定要VBA

marchwen01

透视表吧，在这里透视表比VBA更管用。

ww87725244

1. Sub 统计次数()
   
2. Dim arr, arr1, arr2
   
3. Dim arr3()
   
4. Dim d, i&, k, m, n, l
   
5. With Sheet2
   
6.     arr = .Range(.Cells(2, 1), .Cells(.UsedRange.Rows.Count, 2))
   
7. End With
   
8. With Sheet1
   
9.     arr1 = .Range("a2:a" & .Range("a65536").End(xlUp).Row)
   
10.     arr2 = .Range("b1:m1")
    
11. End With
    
12. For d = 1 To UBound(arr1)
    
13.     For i = 1 To UBound(arr2, 2)
    
14.         For k = 1 To UBound(arr)
    
15.             If arr(k, 1) & arr(k, 2) = arr2(1, i) & arr1(d, 1) Then
    
16.                 m = m + 1
    
17.             End If
    
18.         Next
    
19.         ReDim Preserve arr3(1 To UBound(arr1), 1 To UBound(arr2, 2))
    
20.         arr3(d, i) = m
    
21.         m = 0
    
22.     Next
    
23. Next
    
24. Sheet1.Range("b2").Resize(Sheet1.Range("a65536").End(xlUp).Row - 1, 12) = arr3
    
25. End Sub
    

复制代码