想统计岗位出现的次数，但是不统计合计的项目的次数，如图。

zhangcheng6688

借个楼学习一下字典，打扰
Sub test()
arr = [g11].CurrentRegion
brr = [a2].CurrentRegion
Set d = CreateObject("scripting.dictionary")
For i = 2 To UBound(arr)
   s = arr(i, 1) & arr(i, 2)
   d(s) = 0
Next
For j = 2 To UBound(brr)
   If brr(j, 1) <> "合计" Then
      ss = brr(j, 3) & brr(j, 4)
      If d.exists(ss) Then
         d(ss) = d(ss) + 1
      End If
   End If
Next
[I12].Resize(d.Count, 1) = Application.WorksheetFunction.Transpose(d.items)
End Sub