求助大人们！统计跨工作表的名单出现次数

lizi1200

见附件，我有三个工作表，在第一个sheet页中H列是总名单，I列是我想统计出来的次数，比如“盖伦”这个名在在三个sheet页中的D和E列一共出现了多少次。
大家看一下附件就明白我的意思了，求各位帮忙啊。。VBA不会写。。

lizi1200

求助啊大神们！！

lizi1200

求顶啊不要沉！！谢谢各位！！

lsc900707

要有耐心等候解答！

lizi1200

是的是的我耐心等待！

lsc900707

1. Sub gj23w98()
   
2.     Set d = CreateObject("scripting.dictionary")
   
3.     For Each sht In Sheets
   
4.         arr = sht.[a1].CurrentRegion
   
5.         For i = 2 To UBound(arr)
   
6.             For j = 4 To UBound(arr, 2)
   
7.                 d(arr(i, j)) = d(arr(i, j)) + 1
   
8.             Next
   
9.         Next
   
10.     Next
    
11.     brr = [h1].CurrentRegion
    
12.     For i = 2 To UBound(brr)
    
13.         brr(i, 2) = d(brr(i, 1))
    
14.     Next
    
15.     [h1].CurrentRegion = brr
    
16.     Set d = Nothing
    
17. End Sub

复制代码

lsc900707

附件供测试参考：

lizi1200

lsc900707 发表于 2018-10-16 14:52

给跪了！谢谢！！！！！我爱死你了

lizi1200

求版主删帖！谢谢！爱死你们！