[已解决]分类统计求助

szpwm

分类统计求助，谢谢

最佳答案

月排行榜 / 总排行榜

心正意诚身修

2022-5-8 20:27

1. Sub 计数()
   
2. Dim d, oldarr, arr(), lastrow, i As Byte, j As Integer, str1 As String, str2 As String
   
3. Set d = CreateObject("scripting.dictionary")
   
4. oldarr = Range("t4:u16")
   
5. For i = 1 To 13
   
6.    d(oldarr(i, 1) & oldarr(i, 2)) = 0
   
7. Next
   
8. arr = Range("a1").CurrentRegion
   
9. lastrow = UBound(arr)
   
10. For j = 2 To lastrow
    
11.    str1 = arr(j, 3) & arr(j, 4) & arr(j, 5) & arr(j, 6)
    
12.    str2 = arr(j, 7) & arr(j, 8) & arr(j, 9) & arr(j, 10) & arr(j, 11) & arr(j, 12)
    
13.   d(str1) = d(str1) + 1
    
14.    d(str2) = d(str2) + 1
    
15. Next
    
16. Range("v4:v16") = Application.Transpose(d.ItemS)
    
17. End Sub

复制代码

改短了一下

跳转到最佳答案楼层