分类求和但不要字典法

ck03w11

请各位老师看看，按车间统计女员工人数，分类求和但不要字典法如何实现？？？

rlz680926

Sub test()
Dim arr
Dim i As Integer
Dim j As Integer
Dim brr(1 To 100)
Dim crr(1 To 100)
arr = Range("f3", Range("f65536").End(xlUp))
Rem 求不重复车间名
For i = 1 To UBound(arr)
    For j = 1 To UBound(brr)
        If brr(j) = arr(i, 1) Then
            GoTo 100
        End If
    Next
   n = n + 1
   brr(n) = arr(i, 1)
100
Next
Rem 求不重复个数
For i = 1 To UBound(brr)
    For j = 1 To UBound(arr)
        If brr(i) = arr(j, 1) Then
            k = k + 1
        End If
    Next
    m = m + 1
    crr(m) = k
    k = 0
Next
Range("l3").Resize(UBound(brr)) = Application.Transpose(brr)
Range("m3").Resize(n) = Application.Transpose(crr)
End Sub

eennoo

1. Sub marco()
   
2. Set Rng = Cells(Cells.Rows.Count, "F").End(xlUp)
   
3. ReDim arr(1 To Rng.Row) As String
   
4. ReDim brr(1 To Rng.Row) As Long
   
5. 
   
6. que = 1
   
7. arr(que) = Cells(3, "F") & "|" & Cells(3, "I")
   
8. For i = 3 To Rng.Row
   
9. 
   
10. For q = 1 To que
    
11.     If arr(q) = Cells(i, "F") & "|" & Cells(i, "I") Then
    
12.     brr(q) = brr(q) + 1
    
13.     flag = True
    
14.     Exit For
    
15.     End If
    
16. Next
    
17. 
    
18. If flag = False Then
    
19.     que = que + 1
    
20.     arr(que) = Cells(i, "F") & "|" & Cells(i, "I")
    
21.     brr(que) = 1
    
22. End If
    
23. 
    
24. flag = False
    
25. Next
    
26. 
    
27. For i = 1 To que
    
28. Range("AC1").Offset(i, 0) = Split(arr(i), "|")(0)
    
29. Range("AC1").Offset(i, 1) = Split(arr(i), "|")(1)
    
30. Range("AC1").Offset(i, 2) = brr(i)
    
31. Next
    
32. End Sub
    

复制代码

ck03w11

谢谢各位帮助，调试成功！谢谢