用VBA进行筛选并求和，具体请看示意图

用VBA进行筛选并求和，具体请看示意图

不知道你说的是不是这个意思，自己测试吧！
不知道你的具体行、列，所以配图了，自己根据行列修改吧！

Option Explicit

Sub 部门汇总()

    Dim arr, brr, d
    Dim i%, j%
    
    [G2:G65536].ClearContents
    Application.ScreenUpdating = False
    
    
    Set d = CreateObject("scripting.dictionary")
    arr = Range("A1:B" & [A65536].End(3).Row)
    
    For i = 2 To UBound(arr)
        d(arr(i, 2)) = d(arr(i, 2)) + 1
    Next
     
    brr = Range("F1:G" & [F65536].End(3).Row)
    
    For i = 2 To UBound(brr)
       If d.exists(brr(i, 1)) Then Cells(i, "G") = d(arr(i, 2))
    Next
    
    Application.ScreenUpdating = True

End Sub