[已解决]求助！想在一个总表中统计出来300个分表的内容

stephen919

分表估计300个左右，每个分表里边有不同文本，当然里边的文本也有相同的，
所以想在总表上体现出来这所有的分表里边 排名前10 相同文本出现的次数

例如 分表里边 数据有

表1：张三 李四 王二 张三 李四 李四 李四 王五 张无 张三 李四 李四 李四 王二 王伟 张伟。。。
表2 张三 李四 王二 张三 李四 李四 李四 王五 张无 张三 李四 李四 李四 王二 王伟 张伟。。。
。。。。。。


想在总表体现出来所有分表出现次数的降序，假设
1. 张三    155
2. 李四  14
3. 马      50
。。。前10 即可

最佳答案

月排行榜 / 总排行榜

dsmch

2014-6-28 15:23

………………

跳转到最佳答案楼层

stephen919

急死了

江河行地

=SUM(COUNTIF(INDIRECT(ROW($1:$5)&"!B1:B200"),B2))
数组公式 下拉

stephen919

不行啊

dsmch

1. Sub Macro1()
   
2. Dim arr, brr(1 To 10, 1 To 3), d, i&, j&, s%
   
3. Set d = CreateObject("scripting.dictionary")
   
4. For i = 1 To Sheets.Count
   
5.     If Sheets(i).Name <> "总表" Then
   
6.         arr = Sheets(i).UsedRange
   
7.         For j = 1 To UBound(arr)
   
8.             If arr(j, 1) <> "" Then d(arr(j, 1)) = d(arr(j, 1)) + 1
   
9.         Next
   
10.     End If
    
11. Next
    
12. a = d.keys: b = d.items
    
13. For i = 1 To d.Count
    
14.     x = Application.Large(d.items, i)
    
15.     For j = 0 To d.Count - 1
    
16.         If b(j) = x And s < 11 Then
    
17.             s = s + 1
    
18.             brr(s, 1) = s
    
19.             brr(s, 2) = a(j)
    
20.             brr(s, 3) = x
    
21.         End If
    
22.     Next
    
23. Next
    
24. Range("a2").Resize(s, 3) = brr
    
25. End Sub
    

复制代码

dsmch

………………

豪放

高手在民间啊